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

单击以编辑母版标题样式,单击以编辑母版文本样式,第二级,第三级,第四级,第五级,*,第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,】,用单选按钮和复选框制作如图所示窗口。当用户选择了“所在学院”和“学习课程”后，单击“确定”，则选择结果显示在下面的文本框中。,默认名,Name属性,其它属性及设置,Option1,opthh,Caption：航海学院,Option2,optlj,Caption：轮机工程学院,Option3,Optjs,Caption：计算机科学与技术学院,Check1,Chksx,Caption：高等数学,Check2,Chkwl,Caption：普通物理,Check3,Chklx,Caption：理论力学,Check4,Chkjg,Caption：数据结构,Label1,Lblxy,Caption：所在学院，FontBold：True，FontSize：5号,Label2,Lblkc,Caption：学习课程，FontBold：True，FontSize：5号,Text1,Txtxs,Text：空；MultiLine：True,Command1,cmdok,Caption：确定,【属性设置】,框架创建方法：,建立框架及其内部控件时，须先建框架，然后在其中建立控件。,在框架内建立控件的方法：,方法1：,单击工具箱上的相应工具，然后在框架中适当位置拖拉出适当大小的控件。,方法2：,将控件“剪切”到剪贴板，然后粘贴(Ctrl+V)到框架中。,注 意：,不能使用双击工具箱上工具的自动方式。,框架,设Caption为 字体,使用框架（Frame）把具有同一性质的控件集中在一起，好处是各框架中的控件相对独立，不会互相干扰；操作起来更直观、更方便；框架中的控件会与框架成为一个整体一起被移动，不必每次单独修改。,52 框架（Frame）,Caption,属性,：,框架标题,Enabled,属性：,False：,标题呈灰色，不允许对框架内的对象进行操作。,Visible,属性：,True：,框架及其控件可见。,False：,框架及其控件被隐含起来。,5.2 框架,常用属性,常用事件,Click、DblClick事件：,一般不需要编写框架的事件过程。,5.2 框架,【,例5-2,】,完成图示窗口界面。当用户选择了具体的“字体”和“对齐方式”后，单击“确定”，通过上面的文本框显示效果。,默认名,Name属性,其它属性及设置,Option1,Optst,Caption：宋体,Option2,Optht,Caption：黑体,Option3,Optzq,Caption：左齐,Option4,Optjz,Caption：居中,Option5,Optyq,Caption：右齐,Frame1,Frmzt,Caption：字体,Frame2,Frmdq,Caption：对齐方式,Text1,Txtxs,Text：谢谢光临，下次再见！FontSize：12,Command1,Cmdqd,Caption：确定,Command2,Cmdgb,Caption：关闭,【属性设置】,列表框（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属性，显示出用户做出的选择。,SmallChange Min Value Max SmallChange,水平滚动条,垂直滚动条,LargeChange LargeChange,在项目列表很长或者信息量很大时，可以使用滚动条（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 Co