ti常用控件.ppt

《ti常用控件.ppt》由会员分享，可在线阅读，更多相关《ti常用控件.ppt（36页珍藏版）》请在金锄头文库上搜索。

1、1,Visual Basic 程序设计教程,王勇超,2,第七章 常 用 控 件,7.1 单选按钮和复选框 7.2 框架 7.3 列表框和组合框 7.4 滚动条和Slide控件 7.5 时钟 7.6 ProgressBar控件 7.7 UpDown控件 7.8 Animation控件 7.9 SSTab控件 7.10 鼠标器和键盘,3,1. 标准控件 内部控件 出现在工具箱上的控件20个。,2. ActiveX控件 ActiveX部件：是可以重复使用的编程代码和数据。 是由用ActiveX技术创建的一个或多个对象所组成 。 ActiveX部件文件：扩展名OCX，在Windows的SYSTEM目录

2、中。,ActiveX部件,ActiveX控件,ActiveX文档,ActiveX DLL,ActiveX EXE,ActiveX控件添加到工具箱：,工程/部件,选定控件,4,常用ActiveX控件所在的文件：,5,ActiveX控件与ActiveX DLL/EXE的区别： ActiveX控件： 有界面； 用“工程/部件”命令加载； 工具箱上有图标。 ActiveXDLL/EXE： 没有界面； 用“工程/引用”设置引用； 工具箱上没有图标。 3. 可插入对象 Windows应用程序的对象； 可插入对象可添加到工具箱上； 同标准控件一样使用。 例如：Microsoft Excel工作表。,6,7.

3、1 单选钮和复选框,Caption属性：文本标题。 Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性 单选钮(逻辑型) 检查框（数值型） True：选定 0-Unchecked：未被选定 False：未选定 1-Checked：选定 2-Grayed：灰色，禁止选择 Style属性 0-Standard：标准方式 1-Graphical：图形方式,7,事件：Click 因为单击时自动改变状态，故不需要编写过程。 例7.1 用单选钮和检查框设置文本框的字体。,8,7.2 框架(Frame),框架内控件的创建方法： 方法1：单击工具箱上

4、的工具，然后用出现的“+”指针，在框架 中适当位置拖拉出适当大小的控件。 不能使用双击工具箱上图标的自动方式。 方法2：将控件“剪切”到剪贴板，然后粘贴(Ctrl+V)到框架。,9,Caption属性：框架标题 Enabled属性 False：标题呈灰色，不允许对框架内的对象进行操作。 Visible属性 True：框架及其控件可见。 False：框架及其控件被隐含起来。 Click、DblClick事件： 一般不需要编写框架的事件过程。 例7.2 框架用法示例。,10,7.3 列表框和组合框,列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始的) List1. L

5、istCount = 5 List1. Selected(3) = True，其余为False。 List1. Sorted = False，没有排序。 List1. Text 为 “cox” ， 与List1. List(List1. ListIndex)相等,List1,列表框各主要属性的值： List1.ListIndex = 0 List1. ListCount = 8 List1. Selected(3) = True 其余为False。 List1. Sorted = False List1. Text 为 “李宁”,Combo1,11,1. 共有的重要属性 (P：可在程序中设置或

6、引用，D：可在设计状态设置。) List ：PD 字符型数组，存放列表框的项目，下标是从0开始。 ListIndex：P 选中的项目的序号，没有项目被选定时为-1 ListCount：P 项目的数量，ListCount-1是最后一项的下标。 Sorted：D True：按字母顺序排列。 False：按加入先后顺序排列。 Text：P 列表项中被选定的内容， List 1.List(List 1.ListIndex) = List1.Text。,12,2. 列表框的特有属性 Selected：P 逻辑数组。 Selected(i)的值为True表示第i+1项被选中。 MultiSelect 0-

7、None：禁止多项选择。 1-Simple：简单多项选择。 2-Extended：扩展多项选择。 3. 列表框的特有属性 Style,13,4. 方法 AddItem 对象.AddItem item , index RemoveItem 对象.RemoveItem index Clear 对象.Clear 5. 事件 列表框：Click、DblClick。 组合框：Click，只有简单组合框才有DblClick事件。 一般不需要编写Click事件过程。 通常在单击命令按钮或发生DblClick事件时才读取Text属性。,14,例7.3 对列表框进行项目添加、修改和删除操作。,例7.4 对列表框

8、进行项目添加、修改和删除操作。,15,7.4 滚动条和Slider控件,共同具有的重要属性 Max：最大值 -32 76832 767 Min：最小值 -32 76832 767 SmallChange 最小变动值，单击箭头时移动的增量值。 LargeChange 最大变动值，单击空白处时移动的增量值。 Value 滑块所处位置所代表的值。,水平滚动条,垂直滚动条,SmallChange Min Value Max SmallChange,LargeChange LargeChange,Slider控件,16,事件： Scroll：拖动滑块时会触发Scroll事件。 Change：Value属

9、性改变时触发Change事件。 例7.5 用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。,例7.6 调色板程序。,Sub hsbSpeed_Change() Text1.Text= HScroll1.Value End Sub,例7.7 用Slider控件设置文本框中的字体大小。,17,时钟控件以Interval为时间间隔产生 Timer事件。 属性 Interval属性 单位：ms(0.001s)，0.5秒是500。 Interval0：屏蔽计时器。 Enabled属性 True：有效计时 False：停止时钟工作 事件 Timer 例7.8 定时的闹

10、钟 例7.9 蝴蝶飞舞,7.5 时钟(Timer),18,例7.10 用进度条指示一个大数组的计算进度。,7.6 ProgressBar控件,位于Microsoft Windows Common Control 6.0部件。 重要属性： Max、Min：该控件的界限。 Value：决定控件被填充多少。,19,位于Microsoft Windows Common Control-2 6.0。 通常与伙伴控件 “捆绑”在一起使用。,UpDown应用示例。,7.7 UpDown控件,20,位于Microsoft Windows Common Control-2 6.0。 属性： Center：决定动

11、画是否在控件的中央播放。 AutoPlay属性：决定在用Open方法打开文件时是否自动播放。 方法： Open：打开文件； Play： 播放动画； Stop： 停止播放； Close：关闭文件。 例7.11 为例7.10配上动画。,7.8 Animation控件,21,位于Microsoft Tabbed Dialog Control 6.0。 重要属性： Style：选项卡样式； Tabs： 选项卡总数； TabsPerRow：每一行选项卡的数目； Rows：选项卡总行数； TabOrientation：选项卡的位置； ShowFocusRect：决定选项卡上的焦点矩形是否可视； Tab：当

12、前选项卡的序号。序号从0开始，如果Tab为1， 则第 二个选项卡为当前活动的选项卡。 例7.12 选项卡制作示例。,7.9 SSTab控件,22,7.10 鼠标器和键盘,1. 鼠标器事件 注意：鼠标事件发生在什么对象上，是窗体上还是控件上。 MouseDown事件 Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)（发生在窗体上的事件过程） MouseUp事件 Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Sin

13、gle, Y As Single) （发生在窗体上的事件过程） MouseMove事件 Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) （发生在窗体上的事件过程）,23,(1) Button参数,B0为1：按下了左键； B1为1：按下了右键； B2为1：按下了中键。 例如：Button为2(010B)，即B1 为1，表示按下了右键； 如果按了左键，则B0为1， B1和B2为0， Button为1(001B) If Shift = 1 Then 或者 If Shift = vbLe

14、ftButton Then 这是按了左健后执行的代码 Endif 使用符号常数： 1vbLeftButton：用户按下左键触发了鼠标事件； 2vbRightButton：用户按下右键触发了鼠标事件； 4vbMiddleButton：用户按下中键触发了鼠标事件。,24,(2) Shift参数,B0为1：按下了Shift键； B1为1：按下了Ctrl键； B2为1：按下了Alt键。 例如：Button为2(010B)，即B1 为1，表示仅按下了Shift键； 如果同时按了Ctrl和Shift键，则B0和B1为1，B2为0，Button为3(011B) 注意： 可能同时按下两个或三个键。如果Butt

15、on1成立，并不表示没有按下Shift，因为可能其他键也被按下了。如果要测试按下了某个键，则应用and进行位运算。例如Button and 1成立，表示肯定按下了Shift（可能其他键也被按下了）。 If Shift = 1 and Button = 2 Then 这是仅按住Ctrl了健单击鼠标后执行的代码 End If 思考： Shift = 1 and Button and 2 表示什么意义？,25,符号常数： 1vbShiftMask； 2vbCtrlMask； 4vbAltMask 。 Shfit And vbCtrlMask为真： 按下了Ctrl键； CBool(Shift And

16、vbCtrlMask) Or CBool(Shift And vbShiftMask)为真， 按下了Ctrl键和Shift键,(3) x,y：鼠标的当前位置 例7.13 显示鼠标器指针所指的位置。 例7.14 画圆程序。 按下鼠标右键画圆，按下鼠标左键移动时画线。 在画线时用note14.ico作为鼠标的指针。,26,2. 键盘事件 KeyPress事件过程 Sub Form_KeyPress(KeyAscii As Integer) Sub object_KeyPress(index As Integer,KeyAscii As Integer) KeyDown事件过程 Sub Form_KeyDown(keycode As Integer, shift As Integer) Sub object_KeyDown(index As Integer,keycode As Integer, shift As Integer