VB第七章常用控件.ppt

第七章 常用控件,张琴,主要内容,单选按钮和复选框 框架 列表框和组合框 滚动条和Slide控件 时钟 ProgressBar进度条控件 UpDown控件 Animation控件 SSTab控件 鼠标器和键盘,VB的控件,标准控件-全部出现在工具箱中，20个 ActiveX控件-使用前需要添加到工具箱中 ActiveX部件：是可以重复使用的编程代码和数据，是由用ActiveX技术创建的一个或多个对象所组成。 ActiveX部件文件：扩展名OCX，在Windows的SYSTEM目录下。 包括ActiveX控件、 ActiveX文档、 ActiveX DLL、 ActiveX EXE四种，其中控件是有界面的，加载到工具箱上有图标；而dll/exe没有。 可插入对象- Windows应用程序的对象；可添加到工具箱上，同标准控件一样使用。例如：Microsoft Excel工作表。,常用的ActiveX控件,1.单选按钮和复选框,属性 Caption 标题 Alignment 0-控件钮在左边，标题显示在右边。 1-控件钮在右边，标题显示在左边。 Value 单选钮(逻辑型) 检查框（数值型） True：选定 0-Unchecked：未被选定 False：未选定 1-Checked：选定 2-Grayed：灰色，禁止选择 Style 0-Standard：标准方式 1-Graphical：图形方式,事件 Click事件 由于单击时单选按钮和复选框均自动改变状态，故不需要编写过程。,例：用单选按钮和复选框设置文本框的字体,2.框架Frame,用于将控件分组，特别是一个界面上需要多组单选按钮的时候。 属性 Caption属性：框架标题 Enabled属性： False：标题呈灰色，不允许对框架内的对象进行操作。 Visible属性： True：框架及其控件可见。 False：框架及其控件被隐藏起来。 事件支持Click、DblClick事件，但是一般不需要编写框架的事件过程,例：,3.列表框和组合框,二者共有的属性,(P：可在程序中设置或引用，D：可在设计状态设置。) List ：PD 字符型数组，存放列表框的项目，下标是从0开始。 ListCount：P 项目的数量，ListCount-1是最后一项的下标。 ListIndex：P 被选中的项目的序号，没有项目被选中时为-1 Sorted：D True：按字母顺序排列。False：按加入先后顺序排列。 Text：P 列表项中被选定项目的内容， 注意：List1.List(List1.ListIndex) List1.Text 二者表示相同含义,列表框独有的属性,Selected：P 逻辑数组 Selected(i)的值为True表示第i+1项被选中。 MultiSelect 0-None：禁止多项选择。 1-Simple：简单多项选择。 2-Extended：扩展多项选择。,组合框独有的属性,style,方法,AddItem 对象.AddItem item , index RemoveItem 对象. RemoveItem index Clear 对象. Clear,事件,列表框：Click、DblClick。 组合框：Click，只有简单组合框才有DblClick事件。 一般不需要编写Click事件过程。 通常在单击命令按钮或发生DblClick事件时才读取Text属性,例7.4,4.滚动条和Slide控件,附加在窗体或其它控件上 1.协助观察数据 2.确定位置 3.数据输入,滚动条：标准控件，位于工具箱中 Slider控件：位于MicroSoft Windows Common Control 6.0部件中，使用之前需要手动添加引用,二者共有的属性,Max：滑块位于最大位置时代表的值 （-32 76832 767） Min：滑块位于最小位置时代表的值 （-32 76832 767） SmallChange：最小变动值，单击滚动条两端箭头时移动的增量值。 LargeChange：最大变动值，单击滚动条空白处时移动的增量值。 Value：滑块所处位置所代表的值。,Slider控件的其它属性,TickStyle：控件的显示样式 TickFrequency：控件上刻度的疏密，如果为1代表每隔一个单位就有一个刻度点 TextPosition：设置当前刻度值的提示,事件,Scroll：拖动滑块时会触发Scroll事件。 Change：Value属性改变时触发Change事件。,5.时钟,时钟控件以Interval为时间间隔产生 Timer事件-闹钟 程序运行时时钟控件并不显示在窗体上 属性 Interval属性 单位：ms(0.001s)，1秒是1000ns。 Interval0：屏蔽计时器。 Enabled属性 True：有效计时 False：停止时钟工作 事件 Timer,6. ProgressBar控件,在执行一个耗时较长的操作时通常会用一个进度条显示事务处理的进程 位于Microsoft Windows Common Control 6.0部件中 属性 Max、Min：进度条的界限 Value：进度条当前到达的值 使用value/(max-min+1)决定当前进度条被填充的多少,7.UpDown控件,位于Microsoft Windows Common Control-2 6.0 通常与其它控件 “捆绑”在一起使用 设置UpDown控件的合作者名称和属性，将UpDown控件与伙伴控件关联起来,8.Animation控件,用于显示无声的AVI视频文件 位于Microsoft Windows Common Control-2 6.0 四个重要的方法： Open 打开视频文件 Play 播放视频文件 Stop 停止播放 Close 关闭视频文件,9.SSTab控件,选项卡 位于Microsoft Tabbed Dialog Control 6.0 重要属性： Style：选项卡样式； Tabs： 选项卡总数； TabsPerRow：每一行选项卡的数目； Rows：选项卡总行数； TabOrientation：选项卡的位置； ShowFocusRect：决定选项卡上的焦点矩形是否可视； Tab：当前选项卡的序号。序号从0开始，如果Tab为1， 则第 二个选项卡为当前活动的选项卡,10.鼠标和键盘,鼠标和键盘是两种最重要的与计算机进行交互的工具 VB应用程序可以响应多种鼠标和键盘事件,鼠标事件,Click DblClick MouseDown按下鼠标按钮时触发 MouseUp抬起鼠标按钮时触发 MouseMove鼠标移动时触发 编程时需要注意这些鼠标事件需要被什么对象识别，即鼠标事件发生在哪些对象上,以窗体为例,Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single),参数,Button：表示用户按下或释放了那个键，b2b1b0(b0=1表示用户操作了左键；b1=1表示右键；b2=1表示中键) 1vbLeftButton 单击左键 2vbRightButton 单击右键 4vbMiddleButton 单击中键 Shift：包含了键盘上shift,ctrl,alt键的信息b2b1b0 (b0=1表示用户按下shift键；b1=1表示ctrl；b2=1表示alt) 1vbShiftMask shift键被按下 2vbCtrlMask ctrl键被按下 4vbAltMask alt键被按下 X,Y：鼠标当前位置的坐标值,思考：,如果鼠标左键右键同时按下，button取值应该是多少？ b0=1 b2=1 = button and 111B=011B Button=3 如果键盘上ctrl和alt键同时按下，shift取值应该是多少？ b1=1 b2=1 = shift and 111B=101B shift=5,键盘事件,KeyPress：按下并释放了一个会产生ASCII码的键时触发 KeyDown：按下任意一个键时触发 KeyUp：释放任意一个键时触发,键盘事件过程,KeyPress事件过程 Sub Form_KeyPress(KeyAscii As Integer) Sub object_KeyPress(index As Integer,KeyAscii As Integer) KeyUp事件过程 Sub Form_KeyUp(keycode As Integer, shift As Integer) Sub object_KeyUp(index As Integer,keycode As Integer, shift As Integer) KeyDown事件过程 Sub Form_KeyDown(keycode As Integer, shift As Integer) Sub object_KeyDown(index As Integer,keycode As Integer, shift As Integer),参数,KeyAscii：字符的ASCII码 KeyCode：键盘上键的扫描码（物理键的编码，同一个键只有一个扫描码） Shift：与鼠标事件过程参数的定义相同,ASCII码与扫描码的区别,默认情况下，窗体是不接收KeyPress,KeyDown,KeyUp事件的，需要将窗体的KeyPreview属性设成true，窗体才能够响应键盘事件。,例1,？窗体KeyPreview为False时 在文本框中输入“1”时，实际上得到的是什么。,Sub Form_KeyPress(KeyAscii AsInteger) KeyAscii = KeyAscii + 1 End Sub,Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = KeyAscii + 1 End Sub,将窗体的KeyPreview属性设为true,例2-修改输入数据,只接收大写字符 将KeyPreview设置为True时： Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(“a“) And KeyAscii = Asc(“z“) Then KeyAscii = KeyAscii + Asc(“A“) - Asc(“a“) End If End Sub,如果把它改为某个控件的事件过程，效果一样吗？,例3-限制输入数据,文本框只能接收“0”“9”的数字字符 Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii asc(9) Then KeyAscii = 0 End If End Sub,例4,编写一个程序，按下alt+F5组合键的时候终止程序运行。 首先需要将窗体的KeyPreview设为true 对窗体的KeyDown事件进行编程,拖放,Drag and Drop技术 可以用鼠标将一个对象“拖”到另外的地方再“放”下 理解为两个操作： 发生在源对象上的“拖”操作 发生在目标对象上的“放”操作,例子,将图形框拖放到窗体上的其他位置，如果被拖动到“取消拖放”标签上则取消对图形框的拖放。,第一步,设置picture控件的DragMode属性 1自动拖放模式。程序运行期间，用户只要将鼠标指针置于需要拖放的对象上，按下左键，然后拖动鼠标，源对象的图标就可以跟随鼠标移动。 0手工拖放模式。必须在MouseDown事件中用Drag方法实现对源对象的拖动。 Sub Picture1_MouseDown(button as interger,shift as integer,x as single,y as single) Picture1.drag 1 End sub,第二步,编写窗体的DragDrop事件过程 当源对象被拖动到某个地方释放鼠标的时候，本身并不会移动到新的位置，但是会在目标对象上引发DragDrop事件。需要在该事件过程中使用Move方法实现源对象的移动。 Sub Form_DragDrop(source as control,x as single,y as single) Source.move(x-source.width/2),(Y-source.height/2) 将源对象的中心置于鼠标指针的位置 End sub Source表示被拖放的源对象，x y表示鼠标指针的位置。,第三步,编写“取消拖放”标签的DragOver事件过程 Sub label1_DragOver(source as control,x as single,y as single) source.drag 0 End sub 对象的Drag方法：对象名.Drag 参数 0：取消拖放操作； 1(省略)：启动拖放操作； 2：结束并停止拖放拖放操作并释放控件。,第四步,拖动时随鼠标移动的只是代表源控件的一个边框。如果希望拖动的是某个图标而不只是一个边框，就需要对源对象的DragIcon属性进行设置。,自动拖放,手工拖放,OLE拖放,OLE Drag and Drop 将数据从一个控件或者应用程序中移动到另一个控件或应用程序