搜索
第七章常用控件(12学时)7.1单选按钮和复选框7.2框架7.3列表框和组合框7.4滚动条和Slide控件7.5时钟7.6ProgressBar控件7.7UpDown控件7.8Animation控件7.9SSTab控件7.10鼠标器和键盘1.标准控件内部控件出现在工具箱上的控件，20个2.ActiveX控件ActiveX部件：是可以重复使用的编程代码和数据是由用ActiveX技术创建的一个或多个对象所组成ActiveX部件文件：扩展名OCX，在Windows的SYSTEM目录中ActiveX部件ActiveX控件ActiveX文档ActiveXDLLActiveXEXEActiveX控件添加到工具箱：工程/部件选定控件常用ActiveX控件所在的文件：ActiveX控件ActiveX部件文件名通用对话框(CommonDialog)MicrosoftCommonDialogControl6.0COMDLG32.OCXToolBarMicrosoftWindowsCommonControl6.0MSCOMCTL.OCXStatusBarProgressBarSliderAnimationMicrosoftWindowsCommonControl-26.0MSCOMCT2.OCXUpDownActiveX控件与ActiveXDLL/EXE的区别：ActiveX控件：有界面用“工程/部件”命令加载工具箱上有图标ActiveXDLL/EXE：没有界面用“工程/引用”设置引用工具箱上没有图标3.可插入对象Windows应用程序的对象可插入对象可添加到工具箱上同标准控件一样使用例如：MicrosoftExcel工作表7.1单选钮和复选框Caption属性：文本标题。Alignment属性0：控件钮在左边，标题显示在右边。1：控件钮在右边，标题显示在左边。Value属性单选钮(逻辑型)检查框（数值型）True：选定0--Unchecked：未被选定False：未选定1--Checked：选定2--Grayed：灰色，禁止选择Style属性0--Standard：标准方式1--Graphical：图形方式事件：Click因为单击时自动改变状态，故不需要编写过程例7.1用单选钮和检查框设置文本框的字体。7.2框架(Frame)框架内控件的创建方法：方法1：单击工具箱上的工具，然后用出现的“+”指针，在框架中适当位置拖拉出适当大小的控件。不能使用双击工具箱上图标的自动方式。方法2：将控件“剪切”到剪贴板，然后粘贴(Ctrl+V)到框架。框架设Caption为字体Caption属性：框架标题Enabled属性False：标题呈灰色，不允许对框架内的对象进行操作。Visible属性True：框架及其控件可见。False：框架及其控件被隐含起来。Click、DblClick事件一般不需要编写框架的事件过程。例7.2框架用法示例7.3列表框和组合框列表框各主要属性的值：List1.ListIndex=3(下标从0开始的)List1.ListCount=5List1.Selected(3)=True，其余为False。List1.Sorted=False，没有排序。List1.Text为“cox”，与List1.List(List1.ListIndex)相等List1下拉式组合框简单组合框下拉式列表框列表框各主要属性的值：List1.ListIndex=0List1.ListCount=8List1.Selected(3)=True其余为False。List1.Sorted=FalseList1.Text为“李宁”Combo11.共有的重要属性(P：可在程序中设置或引用，D：可在设计状态设置)List：PD字符型数组，存放列表框的项目，下标是从0开始。ListIndex：P选中的项目的序号，没有项目被选定时为-1ListCount：P项目的数量，ListCount-1是最后一项的下标。Sorted：DTrue：按字母顺序排列。False：按加入先后顺序排列。Text：P列表项中被选定的内容，List1.List(List1.ListIndex)=List1.Text。2.列表框的特有属性Selected：P逻辑数组。Selected(i)的值为True表示第i+1项被选中。MultiSelect0-None：禁止多项选择。1-Simple：简单多项选择。2-Extended：扩展多项选择。3.列表框的特有属性Style类型Style输入下拉式组合框0能简单组合框1能下拉式列表框2不能4.方法AddItem对象.AddItemitem[,index]RemoveItem对象.RemoveItemindexClear对象.Clear5.事件列表框：Click、DblClick组合框：Click，只有简单组合框才有DblClick事件一般不需要编写Click事件过程通常在单击命令按钮或发生DblClick事件时才读取Text属性例7.3对列表框进行项目添加、修改和删除操作。例7.4对列表框进行项目添加、修改和删除操作。Check1Combo1Text1Check2Option1Option27.4滚动条和Slider控件共同具有的重要属性Max：最大值-32,768~32,767Min：最小值-32,768~32,767SmallChange最小变动值，单击箭头时移动的增量值。LargeChange最大变动值，单击空白处时移动的增量值。Value滑块所处位置所代表的值。水平滚动条垂直滚动条SmallChangeMinValueMaxSmallChangeLargeChangeLargeChangeSlider控件Min属性Max属性SmallChange属性LargeChange属性事件：Scroll：拖动滑块时会触发Scroll事件。Change：Value属性改变时触发Change事件。例7.5用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。例7.6调色板程序。SubhsbSpeed_Change()Text1.Text=HScroll1.ValueEndSub例7.7用Slider控件设置文本框中的字体大小。时钟控件以Interval为时间间隔产生Timer事件。属性Interval属性单位：ms(0.001s)，0.5秒是500。Interval＝0：屏蔽计时器。Enabled属性True：有效计时False：停止时钟工作事件Timer例7.8定时的闹钟例7.9蝴蝶飞舞7.5时钟(Timer)Max属性Min属性MousePointer属性BorderStyle属性Appearance属性Orientation属性Scrolling属性例7.10用进度条指示一个大数组的计算进度。7.6ProgressBar控件位于MicrosoftWindowsCommonControl6.0部件重要属性：Max、Min：该控件的界限Value：决定控件被填充多少位于MicrosoftWindowsCommonControl-26.0通常与伙伴控件“捆绑”在一起使用。UpDown应用示例BuddyControlBuddyPropertyMinMaxValueIncrement7.7UpDown控件位于MicrosoftWindowsCommonControl-26.0属性：Center：决定动画是否在控件的中央播放AutoPlay属性：决定在用Open方法打开文件时是否自动播放。方法：Open：打开文件Play：播放动画Stop：停止播放Close：关闭文件例7.11为例7.10配上动画。7.8Animation控件位于MicrosoftTabbedDialogControl6.0重要属性Style：选项卡样式Tabs：选项卡总数TabsPerRow：每一行选项卡的数目Rows：选项卡总行数TabOrientation：选项卡的位置。ShowFocusRect：决定选项卡上的焦点矩形是否可视。Tab：当前选项卡的序号。序号从0开始，如果Tab为1，则第二个选项卡为当前活动的选项卡。例7.12选项卡制作示例7.9SSTab控件7.10鼠标器和键盘1.鼠标器事件注意：鼠标事件发生在什么对象上，是窗体上还是控件上。MouseDown事件SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)（发生在窗体上的事件过程）MouseUp事件SubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)（发生在窗体上的事件过程）MouseMove事件SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)（发生在窗体上的事件过程）(1)Button参数b2b1b0B0为1：按下了左键B1为1：按下了右键B2为1：按下了中键例如：Button为2(010B)，即B1为1，表示按下了右键；如果按了左键，则B0为1，B1和B2为0，Button为1(001B)IfShift=1Then'或者IfShift=vbLeftButtonThen…'这是按了左健后执行的代码…Endif使用符号常数：1—vbLeftButton：用户按下左键触发了鼠标事件；2—vbRightButton：用户按下右键触发了鼠标事件；4—vbMiddleButton：：用户按下中键触发了鼠标事件。(2)Shift参数b2b1b0B0为1：按下了Shift键B1为1：按下了Ctrl键B2为1：按下了Alt键例如：Button为2(010B)，即B1为1，表示仅按下了Shift键；如果同时按了Ctrl和Shift键，则B0和B1为1，B2为0，Button为3(011B)注意：可能同时按下两个或三个键。如果Button1成立，并不表示没有按下Shift，因为可能其它键也被按下了。如果要测试按下了某个键，则应用and进行位运算。例如Buttonand1成立，表示肯定按下了Shift（可能其它键也被按下了）。IfShift=1andButton=2Then…‘这是仅按住Ctrl了健单击鼠标后执行的代码…EndIf思考：Shift=1andButtonand2表示什么意义？符号常数：1—vbShiftMask2—vbCtrlMask4—vbAltMaskShfitAndvbCtrlMask为真：按下了Ctrl键CBool(ShiftAndvbCtrlMask)OrCBool(ShiftAndvbShiftMask)为真：按下了Ctrl键和Shift键(3)x,y：鼠标的当前位置例7.13显示鼠标器指针所指的位置例7.14画圆程序按下鼠标右键画园，按下鼠标左键移动时画线。在画线时用note14.ico作为鼠标的指针。2.键盘事件KeyPress事件过程SubForm_KeyPress(KeyAsciiAsInteger)Subobject_KeyPress([indexAsInteger,]KeyAsciiAsInteger)KeyDown事件过程SubForm_KeyDown(keycodeAsInteger,shiftAsInteger)Subobject_KeyDown([indexAsInteger,]keycodeAsInteger,shiftAsInteger)KeyUp和KeyDown事件过程SubForm_KeyUp(keycodeAsInteger,shiftAsInteger)Subobject_KeyUp([indexAsInteger,]keycodeAsInteger,shiftAsInteger)参数说明Shift与鼠标事件过程Shift相同KeyCode：键盘扫描码KeyAscii：字符ASCII码KeyPre