《常用标准控件扩充.ppt》由会员分享，可在线阅读，更多相关《常用标准控件扩充.ppt（53页珍藏版）》请在三一办公上搜索。
1、1,3.4 框架和选择控件,框架（Frame）在VB中，可以作为其他对象容器的有窗体、图片框和框架。框架的主要作用是将窗体上的控件进行分组，让窗体界面整齐。框架控件的属性Caption：设置框架的标题，说明框架的功能。Enabled：设置框架及框架内控件是否可用。属性值为True（默认值）表示框架可用，属性值为False则表示框架和其上的控件不可用。Visible：设置框架及框架内控件是否可见。,2,3.4 框架和选择控件,框架（Frame）框架控件的事件 框架的常用事件是Click，在框架上单击鼠标时触发。向框架添加控件的方法 先框架后控件：先添加一个框架，在框架处于激活状态时，在工具栏中选
2、择要添加的控件添加到框架中。先控件后框架：即添加窗体中已存在的控件到框架中。先添加一个框架，然后将窗体中要添加的控件剪贴到框架中。,判断一个控件是否已添加到框架上，主要是看移动框架时该控件是否也跟随一起移动。,3,3.4 框架和选择控件,单选按钮（OptionButton）单选按钮控件是多选一控件，只能从多个选项中选择一个，各选项间的关系是互斥的，同一时刻只能选择同一组中的一个单选按钮。单选按钮控件的属性Caption：设置单选按钮的标题。Alignment：设置单选按钮中文字的对齐方式。其中：属性值为0（默认值）表示靠左对齐，圆形按钮位于控件的左边，文字显示在右边；属性值为1表示靠右对齐。,
3、对象名.Alignment=0|1,4,3.4 框架和选择控件,单选按钮（OptionButton）单选按钮控件的属性Value：设置单选按钮在执行时是否被选中。语法格式：其中：属性值为False（默认值）表示单选按钮处于未选中状态；为True表示单选按钮被选中。在一组单选按钮控件中，有且只有一个单选按钮能被选中，该控件的Value值变成True的同时，其他控件的Value属性将自动变成False。,对象名.Value=True|False,5,3.4 框架和选择控件,单选按钮（OptionButton）单选按钮控件的属性Style：设置单选按钮的显示方式。语法格式：其中：属性值为0（默认值）
4、表示单选按钮用标准方式（Standard）显示；为1表示单选按钮用图形方式（Graphical）显示。此属性与命令按钮的Style属性相似。,对象名.Style=0|1,6,3.4 框架和选择控件,单选按钮（OptionButton）单选按钮控件的属性Picture：给单选按钮装载图形。,注意：只有在Style属性设置为图形方式时Picture属性才有效。,7,3.4 框架和选择控件,单选按钮（OptionButton）单选按钮控件的事件单选按钮的常用事件为Click，当用户在一个单选按钮上单击时触发。,8,3.4 框架和选择控件,例 设计一个窗体选择不同字体、不同字号的选项，文本框的文字会产
5、生相应的变化。,界面设计,属性设置,9,3.4 框架和选择控件,代码设计：Private Sub Option1_Click()If Option1.Value=True Then Label1.FontName=宋体End SubPrivate Sub Option2_Click()If Option2.Value=True Then Label1.FontName=隶书End SubPrivate Sub Option3_Click()If Option3.Value=True Then Label1.FontName=黑体End Sub,10,3.4 框架和选择控件,代码设计：Priva
6、te Sub Option4_Click()If Option4.Value=True Then Label1.FontSize=30End SubPrivate Sub Option5_Click()If Option5.Value=True Then Label1.FontSize=40End SubPrivate Sub Option6_Click()If Option6.Value=True Then Label1.FontSize=50End Sub,11,3.4 框架和选择控件,运行结果,12,3.4 框架和选择控件,复选框（CheckBox）复选框的功能类似于单选按钮，不同的是：
7、一组单选按钮中只允许选定其中的一个；而在组复选框中却可以选择多个，即复选框的功能是独立的，各选项间不互斥。复选框控件的属性Caption：设置复选框标题。Value：设置复选框在执行时的状态。语法格式：,对象名.Value=0|1|2,13,3.4 框架和选择控件,复选框（CheckBox）复选框控件的属性Style：设置复选框的显示方式。Picture：用于给图形复选框装载图形。,注意：只有在Style属性设置为图形方式时Picture属性才有效。,14,3.4 框架和选择控件,复选框（CheckBox）复选框控件的事件和方法复选框的常用事件为Click，当用户在一个复选框上单击鼠标按钮时发
8、生。复选框不支持鼠标双击事件，系统把一次双击解释为两次单击事件。复选框支持的方法较少，常用的主要有：SetFoucs、Move。,15,复选框应用,设计一个窗体，说明复选框的基本应用方法。,界面设计,16,17,3.4 框架和选择控件,代码设计：,Private Sub Command1_Click()a=Check1.Caption b=Check2.Caption c=Check3.Caption d=Check4.Caption If Check1.Value=1 Then Label1.Caption=Label1.Caption&a If Check2.Value=1 Then La
9、bel1.Caption=Label1.Caption&b If Check3.Value=1 Then Label1.Caption=Label1.Caption&c If Check4.Value=1 Then Label1.Caption=Label1.Caption&dEnd Sub,Private Sub Command2_Click()a=b=c=d=Label1.Caption=我的爱好是：End Sub,18,3.5 列表框和组合框,列表框和组合框都是通过列表的形式显示多个选项，供用户来选择。列表框是一个为用户提供选择的列表，用户可从中单击选取自己所需的一个或多个选项。如果选项
10、太多，超出列表框设计的大小时，不能一次全部显示，VB会自动加上垂直滚动条。组合框的功能与列表框相近，其主要特点是它综合了列表框和文本框的特性。在程序运行时，用户既可以在组合框中选择已有的选项，选中的内容自动放入文本框中；又能够在文本框中直接输入所需的内容。,19,3.5 列表框和组合框,列表框控件列表框控件的属性List：设置列表框中列表项的内容。List属性值是一个一维数组，每个数组元素是列表框中的一个选项。其中：该属性既可以在设计时通过属性窗口设置，又可在代码窗口中设置；属性窗口设置时，每添加一个列表项，按Ctrl+Enter键可以换行继续添加下一个列表项，直接按Enter键表示添加结束；
11、代码窗口设置时，采用如下格式：例如：List1.list(0)=武汉 列表框的第一项 List1.list(2)=北京 列表框的第三项,对象名.list(下标)=字符串,注意：List数组的第一个元素的下标是0，即List(0)为第一个元素，往后依次为List(1)、List(2)、List(3)，如果List数组中有n个元素，则最后一个列表项对应的数组元素为List(n-1)。,20,3.5 列表框和组合框,列表框控件列表框控件的属性ListCount：表示当前列表框中选项的总数。,注意：任何列表框中的选项从0开始，到ListCount-1结束，通常和List属性一起使用，此属性只能在程序中
12、引用。,21,3.5 列表框和组合框,列表框控件列表框控件的属性ListIndex：设置和返回选中的选项，即下标序号。如果没有任何选项选中，其值为-1。Sorted：设置列表框中的选项是否按字母表顺序排序。语法格式：其中：属性值为True表示列表框中的选项按字母表顺序排序；属性值为False则表示列表框中的选项不按字母表顺序排序。Sorted属性必须在属性窗口时设置，在运行时是只读的。list1.sorted=true 按字母顺序排列 list1.sorted=false按加入时的顺序排列,如果选中列表框的第五个元素，则ListIndex值为多少？,对象名.Sorted=True|False,
13、22,3.5 列表框和组合框,列表框控件列表框控件的属性Text：返回或设置最后选中的列表项的文本内容。只读属性，不能直接修改其值，用于获取选定列表项的内容。MultiSelect：设置该列表框是否能选择多项。语法格式：,对象名.MultiSelect=0|1|2,注意：若选择多项，则ListIndex和Text的属性只表示最后一次所选择的选项值。,23,3.5 列表框和组合框,列表框控件列表框控件的属性SelCount：表示列表框中所选择的选项的数目。通常与Selected一起使用，以处理控件中所选的选项。,注意：注意：SelCount属性使用的前提是MultiSelect属性设置为1或2。
14、,24,3.5 列表框和组合框,列表框控件列表框控件的属性Selected：与List数组中的各个元素相对应的一个数组，记录List数组中每个选项是否被选取。例如，如果List(1)被选取，则Selected(1)的值为True，如果List(1)未被选取，则Selected(1)的值为False。如：list1.selected(0)=true表示选中第一项,25,3.5 列表框和组合框,列表框控件列表框控件的属性Style：设置列表框控件的外观。语法格式：,对象名.Style=0|1,26,3.5 列表框和组合框,列表框控件列表框控件的事件Click事件：在列表框获得焦点时用户单击某个选项
15、，或按下方向键，或按下选项的第一个英文字母，会触发该事件。DblClick事件：双击某个选项会触发该事件。列表框控件的方法AddItem：向列表框中添加列表项。语法格式：,对象名.AddItem 选项字符串,索引值,其中：选项字符串是要添加到列表框中的字符表达式；索引值是可选参数，用来指定新选项在列表框中的插入位置。若索引值为0，则插入到第一个选项位置；若索引值省略，当Sorted属性设置为True时，新选项将添加到恰当的排序位置，当Sorted属性设置为False时，新选项将添加到现有列表项的末尾。,例如:list1.additem 中国 list1.additem 美国,2,27,3.5
16、列表框和组合框,列表框控件列表框控件的方法RemoveItem：从列表框中删除指定选项。语法格式：例如:list1.RemoveItem,0其中：索引值用来指定要删除的选项在列表框中的位置，每次只能删除一个选项。Clear：清除列表框中的全部选项。语法格式：,对象名.RemoveItem 索引值,对象名.Clear,28,3.5 列表框和组合框,例 设计一个窗体，要求：可以通过在列表框List1中选择，然后单击中间的命令按钮在列表框List2中执行相应的操作。,界面如图所示：,属性设置,29,3.5 列表框和组合框,代码设计：,Private Sub Form_Load()List1.AddI
17、tem 苹果 List1.AddItem 香蕉 List1.AddItem 芒果 List1.AddItem 西瓜 List1.AddItem 哈密瓜 List1.AddItem 葡萄 List1.AddItem 椰子 List1.AddItem 榴莲 List1.AddItem 菠萝 List1.AddItem 蟠桃End Sub,Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click(
18、)End Sub,List2.AddItem List1.Text,List2.RemoveItem List2.ListIndex,List2.Clear,End,30,3.5 列表框和组合框,组合框组合框(ComboBox)是由文本框(TextBox)与列表框(listBox)“组合”而成的控件。用户可以通过在文本框输入新文本内容或在列表框中单击列表选项选择已有内容。组合框的形式有三种：下拉组合框(默认方式)；简单组合框；下拉列表框。组合框控件的属性Style：功能是设置组合框的显示类型，在运行时为只读的。,对象名.Style=0|1|2,31,3.5 列表框和组合框,组合框组合框控件的事
19、件Change：当组合框内容改变时发生。Click：当用户在一个组合框上单击鼠标按钮时发生。组合框控件的方法AddItem：用来向组合框中添加选项。RemoveItem：从组合框中删除一个选项。Clear：清除组合框的所有内容。,32,3.5 列表框和组合框,例 单击选中项在文本框中显示选择的内容，如果需要的城市组合框中没有列出，可以通过组合框来进行添加,界面如图所示：,33,3.5 列表框和组合框,代码设计：,Private Sub Form_Load()Combo1.AddItem 武汉 Combo1.AddItem 北京 Combo1.AddItem 西安 Combo1.AddItem
20、重庆 Combo1.AddItem 长沙 Combo1.AddItem 海南 Combo1.AddItem 天津 Combo1.AddItem 南京 Combo1.AddItem 杭州End Sub,Private Sub Combo1_Change()End SubPrivate Sub Combo1_Click()End Sub,Combo1.AddItem Combo1.Text,Text1.Text=Combo1.Text,34,3.6 滚动条,滚动条通常用来浏览内容或确定位置，也可以作为数据输入的工具。在实际应用中，滚动条也常用作数量、速度的指示器，如在一些多媒体应用中用来控制音量、
21、画面的滚动速度等。滚动条分为水平滚动条（HScroll）和垂直滚动（VScroll）两种类型。滚动条的结构两端各有一个滚动箭头，在滚动条上有一个能够移动的小方块，叫做滚动滑块；水平滚动条的最小值在最左边，最大值在最右边，从左向右移动时，值依次递增；垂直滚动条的最小值在最上边，最大值在最下边，从上向下移动时，值依次递增。,35,3.6 滚动条,滚动条控件的属性Max：设置滚动条的最大值。最大值为滚动滑块在右（或下）端时的值，其值介于-32768到32767之间，Max的默认值为32767。Min：设置滚动条的最小值。最小值为滚动滑块在左（或上）端时的值，Min的默认值为0。Value：表示滚动滑
22、块所在位置对应的值。如果用户拖动滑动块，Value属性值随之改变，它是滚动滑块的位置与最大值、最小值换算而得的结果，取值范围为MinMax。LargeChange：设置鼠标单击滚动条中间的空白处时，每次增加和减少的数值。系统默认的数值为1，取值范围为132767，用户可以自己修改SmallChange：设置鼠标单击滚动条两边的箭头时，每次增加和减少的数值。系统默认的数值为1，取值范围为132767，用户可以自己修改。,36,3.6 滚动条,滚动条控件的事件 滚动条控件的常用事件有Scroll事件和Change事件。Scroll（滑动）事件单击滚动箭头或单击滚动条均不能触发该事件，仅在移动滚动滑
23、块时被触发。一般可用该事件来跟踪滚动条的动态变化。Change（变化）事件单击滚动箭头、单击滚动条或移动滚动滑块时均可触发该事件。一般可用该事件来获得移动后滚动条的最后值。,37,3.6 滚动条,例 利用水平滚动条和垂直滚动条的滚动，分别改变标签中文字的字体和颜色。,界面设计：,38,3.6 滚动条,Private Sub HScroll1_Change()Label1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)End SubPrivate Sub VScroll1_Change()Select Case VScroll1.Value Case 1 Label
24、1.Font=黑体 Case 2 Label1.Font=宋体 Case 3 Label1.Font=隶书 End SelectEnd Sub,39,3.7计时器,计时器是一个非常有用的控件，主要有两个功能：用于在程序中监视和控制时间进程，即每隔一段固定的时间就有规律地执行一次相同的任务。如定时检测系统或控件的状态、控制控件的移动、设置时钟、倒计时、秒表等；进行某种后台处理。因为计时器控件在设计时可见，运行时隐藏，所以它在界面上的位置和大小无关紧要。但在后台每隔一定的时间，系统就会自动触发一次计时器事件。,40,3.7计时器,计时器控件的属性 Enabled（响应）属性功能：设置计时器控件是否
25、开始计时。语法格式：其中，属性值为True（默认值）表示启动计时器开始计时；属性值为False则表示暂停计时器的使用，待将Enabled属性设置为True时继续运行计时器。Interval（间隔）属性功能：设置两个计时器事件之间的时间间隔。设置时以毫秒（ms）为单位，范围是065 535ms，系统初始值设置为0。若希望每秒执行n个计时器事件，则将Interval属性的值设置为1000/n。当Interval属性的值为0时，则计时器无效。,对象名.Enabled=True|False,对象名.Interval=数值,41,3.7计时器,计时器的事件计时器只有Timer事件。Timer事件具有周期
26、性，在每隔Interval指定的时间间隔，就执行一次Timer事件过程。在实际运用中，经常用Timer事件来实现有规律的重复操作和简单的动画。,注意：计时器事件发生越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。因此，除非有必要否则不要设置过小的时间间隔。,42,3.7计时器,例 设计一个窗体，运行窗体后，图片会不停地闪动。,界面设计：,属性设计：,Private Sub Timer1_Timer()End Sub,Picture1.Visible=Not(Picture1.Visible),43,3.7计时器,例 运行窗体后，文本框“谁知盘中餐，粒粒皆辛苦。”从右向左移动，每
27、当文本框全部移出左边界时要求从右边界再次循环运行。,界面设计：,属性设计：,44,3.7计时器,Private Sub Timer1_Timer()If Text1.Left+Text1.Width=0 Then Text1.Left=Form1.Width Text1.Left=Text1.Left-100End Sub,45,综合应用,例 要求单击下方不同的单选按钮，窗体中央的图片框则显示上方相应的图片。,界面设计：,46,综合应用,属性设计：,47,综合应用,Private Sub Option1_Click()Picture5.Picture=Picture1.PictureEnd S
28、ubPrivate Sub Option2_Click()Picture5.Picture=Picture2.PictureEnd SubPrivate Sub Option3_Click()Picture5.Picture=Picture3.PictureEnd SubPrivate Sub Option4_Click()Picture5.Picture=Picture4.PictureEnd Sub,48,3.8 焦点与Tab顺序,3.8.1 设置焦点简单地说，焦点是接收用户鼠标或键盘输入的能力。当一个对象具有焦点时，它可以接收用户的输入。在Windows系统中，某个时刻可以运行多个应用程
29、序，但只有具有焦点的应用程序才有活动标题栏，才能接收用户输入。类似地，在含有多个文本框的窗体中，只有具有焦点的文本框才能接收用户的输入。当对象得到焦点时，会产生GotFocus事件；而当对象失去焦点时，将产生LostFocus事件。LostFocus事件过程通常用来对更新进行确认和有效性检查，也可用于修正或改变在GotFocus 事件过程中设立的条件，窗体和多数控件支持这些事件。,49,3.8 焦点与Tab顺序,3.8.1 设置焦点用下面的方法可以设置一个对象的焦点：（1）在运行时单击该对象。（2）运行时用快捷键选择该对象。（3）在程序代码中使用SetFocus方法。焦点只能移到可视的窗体或控
30、件上，因此，只有当一个对象的Enabled和Visible属性均为True时，它才能接收焦点。Enabled属性允许对象响应由用户产生的事件，如键盘和鼠标事件，而Visible属性决定了对象是否可见。对于大多数可以接收焦点的控件来说，从外观上可以看出它是否具有焦点。例如，当命令按钮、复选框、单选按钮等控件具有焦点时，在其内侧有一个虚线框。而当文本框具有焦点时，在文本框中有闪烁的插入光标。,50,注意：并不是所有对象都可以接收焦点，某些控件例如框架（Frame）、标签（Label）、菜单（Menu）、直线（Line）、形状（Shape）、图像框（Image）和计时器（Timer）都不能接收焦点。
31、对于窗体来说，只有当窗体上的任何控件都不能接收焦点时，该窗体才能接收焦点。,51,3.8 焦点与Tab顺序,3.8.2 Tab顺序 Tab顺序是在按Tab键时焦点在控件间移动的顺序。当窗体上有多个控件时，用鼠标单击某个控件，就可以把焦点移到该控件中（如果该控件有焦点）或者使该控件成为活动控件。除鼠标外，用Tab键也可以把焦点移到某个控件中。每按一次Tab键，可以使焦点从一个控件移到另一个控件。所谓Tab顺序，就是指焦点在各个控件之间移动的顺序。,52,在一般情况下，Tab顺序由控件建立时的先后顺序确定。可以获得焦点的控件都有一种称为“TabStop”的属性，用它可以控制焦点的移动。该属性的默认
32、值为True，如果把它设置为False，则在用Tab移动焦点时会跳过该控件。TabStop属性为False的控件，仍然保持它在实际的Tab顺序中的位置，只不过在按Tab键时这个控件被跳过。在设计阶段可以通过属性窗口中的TabIndex属性来改变Tab顺序。也可以在运行时改变Tab顺序。,53,本章小结,本章系统和深入地介绍了最基本的内部控件的用法，包括：标签、文本框、图片框、图像框、直线和形状以及命令按钮控件。利用Visual Basic开发应用程序的过程，实际就是实现与这些对象进行交互的过程。在程序运行过程中，当窗体上具有多个控件时，必然涉及焦点及Tab顺序的转换，读者应对此给于充分重视。,
