大学计算机vb课程第五章常用控.ppt

第5章 常用控件,5.1 单选按钮和复选框 5.2 框架 5.3 列表框和组合框 5.4 滚动条 5.5 时钟-计时器 5.6 鼠标器、键盘,单选按钮（OptionButton）和复选框（CheckBox）都属于选择性控件，用来指示用户进行项目选择。在一组单选按钮中必须且最多只能选中一项；在一组复选框中可以同时选中一项或多项，甚至一个不选。 当单选按钮被选中时，其左侧的圆圈中出现一个黑点；当复选单选框被选中时，其左侧的方框中出现一个对勾。,51 单选按钮和复选框,单选,复选,Caption属性：文本标题。 Alignment属性 0：控件钮在左边，标题显示在右边。 1：控件钮在右边，标题显示在左边。 Value属性 单选钮 复选框 True：选定 0-Unchecked：未被选定 False：未选定 1-Checked：选定 2-Grayed：灰色，禁止选择 Style属性 0-Standard：标准方式 1-Graphical：图形方式 Picture属性 未选定时的图标或位图 DownPicture属性 选定时的图标或位图 DisabledPicture属性 禁止选择时的图标或位图,5.1 单选钮和复选框,常用属性,有Click事件，因为单击时自动改变状态，故不需要编写过程。,5.1 单选钮和复选框,常用事件,【例5-1】,用单选按钮和复选框制作如图所示窗口。当用户选择了“所在学院”和“学习课程”后，单击“确定”，则选择结果显示在下面的文本框中。,【属性设置】,框架创建方法： 建立框架及其内部控件时，须先建框架，然后在其中建立控件。 在框架内建立控件的方法： 方法1：单击工具箱上的相应工具，然后在框架中适当位置拖拉出适当大小的控件。 方法2：将控件“剪切”到剪贴板，然后粘贴(Ctrl+V)到框架中。 注 意：不能使用双击工具箱上工具的自动方式。,使用框架（Frame）把具有同一性质的控件集中在一起，好处是各框架中的控件相对独立，不会互相干扰；操作起来更直观、更方便；框架中的控件会与框架成为一个整体一起被移动，不必每次单独修改。,52 框架（Frame）,Caption属性：框架标题 Enabled属性： False：标题呈灰色，不允许对框架内的对象进行操作。 Visible属性： True：框架及其控件可见。 False：框架及其控件被隐含起来。,5.2 框架,常用属性,常用事件,Click、DblClick事件：一般不需要编写框架的事件过程。,5.2 框架,【例5-2】完成图示窗口界面。当用户选择了具体的“字体”和“对齐方式”后，单击“确定”，通过上面的文本框显示效果。,【属性设置】,列表框（ListBox）和组合框（ComboBox）都是选择控件，提供多个选项供用户选择，以达到交互的目的。,53 列表框和组合框,列表框仅仅把可以选择的项目列出来，不能直接修改项目。,组合框是列表框和文本框的组合，不仅可以选项，还允许用户输入数据。 组合框有三种类型，由其Style属性值决定，Style可为0、1或2。 0默认值。下拉式组合框。 1简单组合框。 2下拉式列表框。,说明：P只可在程序中设置或引用，D只可在设计状态设置 List (PD) ：字符型数组，存放列表框的项目，下标从0开始。 ListIndex(P)：选中项目的序号，无项目被选定时为-1。 ListCount(P)：项目的数量，ListCount-1是最后一项的下标。 Selected(P)：逻辑数组。Selected(i)的值为True表示第i+1项被选中。 Sorted(D)：True：按字母顺序排列。False：按加入先后顺序排列。 Text(P) ：被选中列表项的内容，如： List 1.List(List 1.ListIndex) = List1.Text MultiSelect：0-None：禁止多项选择； 1-Simple：简单多项选择； 2-Extended：扩展多项选择。,5.3 列表框和组合框,常用属性,AddItem 对象.AddItem item , index RemoveItem 对象.RemoveItem index Clear 对象.Clear 说明：“对象”可是列表框、组合框或剪贴板。,方法,5.3 列表框和组合框,【例5-3】用组合框制作一个国家选择窗口。,程序运行后，首先出现图示界面，在Form的Load事件中，使用了ComboBox的AddItem方法，向组合框中添加选项；当用户在ComboBox中选择了一个国家后，点击“确定”按钮，就会弹出一个消息窗口，通过检查ComboBox的Text属性，显示出用户做出的选择。,在项目列表很长或者信息量很大时，可以使用滚动条（ScrollBar）来协助观察数据或确定位置。 有水平滚动条和垂直滚动条两种。,54 滚动条(ScrollBar),Max：返回或设置当滑块处于最大位置时所代表的值，-3276832767间的一个整数。默认值为32767 Min：返回或设置当滑块处于最小位置时所代表的值，-3276832767间的一个整数。默认值为0。 SmallChange: 最小变动值，单击箭头时移动的增量值。 LargeChange: 最大变动值，单击空白处时移动的增量值。 Value: 滑块所处位置所代表的值。,常用属性,5.4 滚动条,事件,Scroll：拖动滑块时会触发Scroll事件。 Change：Value属性改变时触发Change事件。,Sub hsbSpeed_Change() txtSpeed.Text= hsbSpeed.Value End Sub,【例5-4a】用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。,【例5-4】设计一个调色板程序 。,使用三个滚动条作为三种基本颜色的输入工具，合成的颜色显示在右边的颜色区中。颜色区实际上是一个文本框，用合成的颜色设置其BackColor属性。当完成调色后，用“设置前景颜色（Command1）”或“设置背景颜色（Command2）”按钮设置右边文本框（Text2）的颜色。,5.4 滚动条,时钟控件以Interval为时间间隔产生 Timer事件。,55 时钟（Timer）,属性 Interval: Timer事件产生的时间间隔。单位：ms(0.001s)，0.5秒是500。Interval0：屏蔽计时器。 Enabled属性：True：有效计时 False：停止时钟工作 Timer事件,【例5-5】利用计时器产生闪烁的窗体和标签。 程序运行后，每隔0.6秒发生一次Timer事件，相邻的Timer事件中显示位置不同的亮和暗标签，就出现了闪烁的窗体。,鼠标器事件 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 Single, Y As Single) MouseMove事件：当鼠标移动时被触发。 Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 这三个事件被触发时，可检测到键盘的Shift、Ctrl或Alt键是否同时被按下，鼠标目前的位置以及当前按下或放开的是哪一个鼠标按键。 x,y：鼠标的当前位置 Button、Shift参数含义如表,56 鼠标与键盘,5.6.1 鼠标,【例5-6】实现用鼠标当作画笔在窗体上写字的功能。,KeyPress事件 用户按下并且释放一个会产生ASCII码的键时被触发。 Private Sub 控件_KeyPress(KeyAscii As Integer) 其中KeyAscii为与按键相对应的ASCII码值。 例如，限制数据输入，文本框只能接收“0”“9”的数字字符。 Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then Beep KeyAscii = 0 End If End Sub,5.6.2 键盘,5.6 鼠标与键盘,KeyDown事件：用户按下键盘上任意一个键时被触发。 KeyUp事件：用户释放键盘上任意一个键时被触发。 【格式】 Sub 控件_KeyDown(KeyCode As Integer,Shift As Integer) Sub 控件_KeyUp(KeyCode As Integer,Shift As Integer) 【说明】 （1）KeyCode参数值是用户所操作键的扫描代码。不管键盘处于小写状态还是大写状态，用户在键盘按“A”键，KeyCode参数值相同。对于有上档字符和下档字符的键，其KeyCode也是相同的，为下档字符的ASCII码。 （2）当窗体的KeyPreview属性为true时，首先触发窗体的KeyPress、KeyDown、KeyUp事件，然后触发其它控件的KeyPress、KeyDown和KeyUp事件。 （3）如果窗体的事件过程将KeyAscii设置为0，则不再调用对象的KeyPress事件过程。 【例5-7】制作一个对文本框中键入内容加以限制的程序,5.6 鼠标与键盘,拖放（Drag and Drop）是使用鼠标将对象从一个地方拖动到另一个地方再放下。 1DragDrop事件：拖动的控件放在了另一个窗体或控件上时引发 【格式】 Private Sub 控件_DragDrop(Source As Control, X As Single, Y As Single) 【说明】Source参数表示被拖动的对象，Control类型的变量是说明这个变量代表一个控件，也就是控件的名字，但在传递这个参数时不必打上引号；X、Y参数表明鼠标指针所在的位置。 2DragOver事件：被拖动的控件可能会从其它控件上空飘过，或者在目标控件上空盘旋一下时引发。可以修改被拖动控件的DragIcon属性，使它表明是否允许控件的着陆。 【格式】 Private Sub 控件_DragOver(Source As Control, X As Single, Y As Single, State As Integer) 【说明】DragOver事件的Source、X、Y 参数的意义与DragDrop 的相同。State 参数表明被拖动的控件相对于它飘过的控件的迁移状态。含义见表。,5.6.3 拖放,5.6 鼠标与键盘,自动拖放,手工拖放,3.拖放的模式,5.6 鼠标与键盘,DragIcon属性 拖动过程中显示的图标(Ico或Cur文件)。 lblExample1.DragIcon=LoadPicture (“C:IconsMail.ico“) lblExample2.DragIcon=picIcon.Picture Drag方法 当DragMode为0时，需用Drag方法启动拖放 控件名称.Drag 参数 0：开始拖放操作 1(省略)：结束拖放操作 2：取消拖放操作,5.6 鼠标与键盘,5.6 鼠标与键盘,【例5-8】鼠标拖放应用程序设计。,程序运行后，出现图