第7章常用控件.ppt

《第7章常用控件.ppt》由会员分享，可在线阅读，更多相关《第7章常用控件.ppt（87页珍藏版）》请在三一文库上搜索。

1、第7章 常用控件,7.1 单选按钮、复选框和框架 7.2 列表框和组合框 7.3 滚动条 7.4 定时器 7.5 鼠标和键盘 7.6 综合应用,学习目标,重点掌握单选框、复选框、框架、计时器、 列表框、组合框的使用 掌握常用控件与控制结构相结合的综合应用程序,在VB中，控件大致分为三类： 1.标准控件：又称内部控件，总是出现在 工具箱窗口中。 2.ActiveX 控件：可以添加到工具箱窗口上，然后像标准控件一样使用。是扩展名为.OCX的独立文件。 添加方法: 工程部件控件 3.可插入对象：是Windows应用程序的对象，例如“Microsoft Excel 工作表”。 添加方法: 工程部件可插

2、入对象,第7章 常用控件,ActiveX 控件的添加方法,（1）选择“工程”菜单中的“部件”命令。 （2）选定所需的ActiveX 控件左边的复选框。 （3）最后单击“确定”按钮。,7.1 单选按钮、复选框和框架P172,1.单选钮（OptionButton）的左边有一个“”。一般来说，单选框总是成组（单选框组）出现，用户在一组单选框中必须选择一项，并且最多只能选择一项。当某一项被选定后，其左边的圆圈中出现一个黑点。常用重要属性是 ：,事件： 单选钮可以接受Click事件 。,Caption,自定义,单选按钮上显示的文本,2.复选框（CheckBox）的左边有一个。复选框列出可供用户选择的选项

3、，用户根据需要选定其中的一项或多项。当某一项被选中后，其左边的小方框中就多了一个对号“”。 复选框的状态属性Value（常考）的取值为：,7.1 单选按钮、复选框和框架P172,7.1 单选钮、复选框及框架,Aligement: 属性值为0 （默认值）时，复选框的方框在标题文字左边，当此属性值为1时，方框显示在标题文字右边。 Caption:复选框上显示的文本,复选框事件：click,注意： 复选框的Value的属性值是数值型的， 而单选钮的Value属性值是逻辑型.,7.1 单选钮、复选框及框架,3. Frame（框架）控件是一个容器。框架的作用是能够把其它的控件组织在一起形成控件组。框架的

4、常用属性有： Caption属性: 设置框架标题 Enabled属性: 设置框架是否有效。为False时， 框架内的所有控件都无法操作。Visible属性：设置框架是否可见。为False时， 框架及其内部的所有控件都将隐 藏起来。,注意： 1.先建立框架，然后在其中建立各种控件。 2.创建框架时，先单击工具箱上的“框架”工具，用出现的“+”指针，在窗体上拖出适当大小的控件。 3.如果用框架将现有的控件分组，则先选定控件，剪切，在选定框架，粘贴。,7.1 单选钮、复选框及框架,7.1 单选钮、复选框及框架,例7.1通过单选按钮和复选框设置文本框的字体。,控件属性如下：,程序如下： Private

5、 Sub Check1_Click() 粗体 Text1.FontBold = Not Text1.Font.Bold End Sub Private Sub Check2_Click() 斜体 Text1.Font.Italic = Not Text1.Font.Italic End Sub Private Sub Check3_Click() 删除线 Text1.Font.Strikethrough = Not Text1.Font.Strikethrough End Sub Private Sub Check4_Click() 下划线 Text1.Font.Underline = Not

6、 Text1.Font.Underline End Sub,Private Sub Option1_Click() Text1.Font.Name = 宋体 End Sub Private Sub Option2_Click() Text1.Font.Name = 黑体 End Sub,08.4月,（20）要使两个单选按钮属于同一个框架， 正确的操作是_。 A) 先画一个框架，再在框架中画两个单选按钮 B) 先画一个框架，再在框架外画两个单选按 钮，然后把单选按钮拖到框架中 C) 先画两个单选按钮，再画框架将单选按钮框 起来 D) 以上三种方法都正确,A,例7.2：框架用法示例。 在下图所示的

7、窗体中建立两组单选按钮，分别放在标题为“字体”和“大小”的框架中。用户既可以选择字体，有可以选择字号。（知识点：框架与单选钮的应用）,7.1 单选钮、复选框及框架,Frame2,Option3 Option4,7.1 单选钮、复选框及框架,程序如下： Private Sub Command1_Click() 确定 Text1.Font.Name = IIf(Option1.Value, 宋体, 黑体) Text1.Font.Size = IIf(Option3.Value, 8, 12) End Sub Private Sub Command2_Click() End End Sub,7.1

8、单选钮、复选框及框架,7.2 列表框和组合框P175,1. 列表框控件（listbox) 列表框（ListBox）用于显示一个项目列表，用户可以选择一项或多项，如果项目数目超过列表框可显示的数目，系统会自动给列表框添加滚动条，用户可以通过操作滚动条查看所有的项目，默认名称为List1。 主要特点：只能从其中选择，不能修改。,(1) 列表框的主要属性,7.2 列表框和组合框,例如:在一个列表框list1中通过属添加四项内容,分别为a、b、c 、d,程序运行后,单击第三项 “c” ,则执行结果如何? Private Sub List1_Click() Print List1.ListCount 项

9、目的总数 Print List1.ListCount - 1 最后一项的序号 Print List1.ListIndex 选中的项目的序号 Print List1.List(1) 序号为1即第2项的内容 Print List1.List(List1.ListIndex) 选中的内容 Print List1.List(ListIndex) 序号为0的项目内容 End Sub,7.2 列表框和组合框,(1)列表框的主要属性,有三个列表框, 框中的项目有七项,分别为“a、b、c、d、e、f、g”， 图1中列表框list1的大小能够显示所有的项目,图2中列表框list2的大小不能够显示所有的项目,自动

10、添加垂直滚动条,图3中列表框list3的大小不能够显示所有的项目,将Columns属性设置为1时,则项目多列显示.,7.2 列表框和组合框,列表框的Multiselect属性(补充)： 决定列表框是否支持多选。0时，单选，1、2多选。 属性值为0（默认值）：列表框只允许单选。 属性值为1：列表框允许多选（单击即可）。 属性值为2： 列表框允许扩展多选(配合Ctrl键选择多个不连续的项目，配合Shift键选择连续的多个项目）。,06.4,(30) 为了使列表框中的项目呈多列显 示，需要 设置的属性为。 A) Columns B) Style C) List D) MultiSelect,A,7.

11、2 列表框和组合框,(1)列表框的主要属性,例:在一个列表框list1中通过属添加四项内容,分别为a、b、c 、d,程序运行后,单击第三项 “c” ,则执行结果如何?,Private Sub List1_Click() Print List1.Text 选中的内容 Print List1.List(List1.ListIndex) 选中的内容 Print List1.Selected(0) 判断第一项是否被选中 Print List1.Selected(2) 判断第三项是否被选中 Print List1.Selected(List1.ListIndex) 判断选中的项 End Sub,07年9

12、月等级考试 P155-30,（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程 A) PrvateSubList1_Click()B)PrivateSubForm1_Click() PrintList1.Text PrintList1.Text EndSub EndSub C) PrivateSubList1_Click()D) PrivateSubForm1_Click() PrintForm1.Text List1.PrintList1.Text EndSub EndSub,A,7.2 列表框和组合框,(2)

13、列表框的方法 1) AddItem方法： 功能: 把一个项目加入列表框 格式： 列表框名称.AddItem 项目字符串,位置值 位置值: 由0到listcount-1 ，若省略位置值，则新增 项目添加到最后,Private Sub Form_Load() List1.FontSize = 20 List1.AddItem a List1.AddItem b List1.AddItem c End sub,7.2 列表框和组合框,格式：列表框名称. AddItem 项目字符串,位置值,Private Sub Form_Load() List1.FontSize = 20 List1.AddIte

14、m a List1.AddItem c List1.AddItem d List1.AddItem b, 1 End Sub,(2) 列表框的方法 1) AddItem方法：,7.2 列表框和组合框,(2) 列表框的方法 2) Clear方法：清除列表框的所有内容。 格式： 列表框名称. Clear 例：清除列表框List1中的所有项目内容 List1.clear,7.2 列表框和组合框,(3)RemoveItem方法：从列表框中删除一个项目。 格式：列表框名.RemoveItem 位置值,补例:在窗体上加一个列表框,运行后单击窗体,则列表框中显示的内容? Private Sub Form_C

15、lick() List1.RemoveItem 1 List1.RemoveItem 3 List1.RemoveItem 2 End Sub Private Sub Form_Load() List1.AddItem ItemA List1.AddItem ItemB List1.AddItem ItemC List1.AddItem ItemD List1.AddItem ItemE End Sub,7.2 列表框和组合框,Private Sub Form_Load() List1.AddItem xyz List1.AddItem boy List1.AddItem girl List1

16、.AddItem mother List1.AddItem father End Sub,列表框的sorted属性： 为True时，列表框中的项目按字母数字升序排列，该属性只能在设计状态设置。,sorted属性为False,sorted属性为true,(3) 事件: 能够响应Click和Dblclick事件。,例7.3 编写一个能对列表框进行项目添加、修改和删除的应用程序，如图所示：,7.2 列表框和组合框,程序如下： Private Sub Form_Load() List1.AddItem 计算机文化基础 List1.AddItem VB6.0程序设计教程 List1.AddItem 操作

17、系统 List1.AddItem 多媒体技术 List1.AddItem 网络技术基础 Command4.Enabled = False End Sub Private Sub Command1_Click() 添加 List1.AddItem Text1 Text1 = End Sub Private Sub Command2_Click() 删除 List1.RemoveItem List1.ListIndex End Sub,Private Sub Command3_Click() 修改 Text1 = List1.Text 将选项放到文本框中修改 Text1.SetFocus Comm

18、and1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True End Sub,Private Sub Command4_Click() 修改确定 将修改后的选项送回列表框，替换原项目，实现修改 List1.List(List1.ListIndex) = Text1 Text1 = Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = Fals

19、e End Sub,2.组合框（ComboBox）: 是综合列表框和文本框的特性而成的控件。 (1)组合框的属性 1)Text属性： 该属性是用户所选择的项目的文本或直接在编辑区 输入的文本。 2)List属性： 组合框中显示的项目，可以通过属性窗口设置，输一个项目后按 +Enter，再输入下一项。,7.2 列表框和组合框,Style属性,下拉组合框: 程序运行时,用户可以直接在文本框中输入 简单组合框: 它的列表框不能被收起和拉下，与文本编辑框一起显 示在屏幕上。用户可以在文本框中直接输入 下拉列表框: 其功能与下拉组合框类似，区别是不能在文本框中输 入列表框中没有的项,例7.4 设计一个如

20、下图所示的应用程序。当“计算机”和“操作系统”未被选定时，它们所在的框架的其他控件不能使用。组合框自身能够添加一个新的选项，供下次选择。如果单击OK按钮，则在列表框中显示用户所选择的配置。,7.2 列表框和组合框,Private Sub Form_Load() Combo1中的选项已在设计状态通过List属性设计 Combo1.Enabled = False Text1.Enabled = False Option1.Enabled = False Option2.Enabled = False End Sub Private Sub Check1_Click() Combo1.Enabled

21、 = Not Combo1.Enabled Text1.Enabled = Not Text1.Enabled End Sub Private Sub Check2_Click() Option1.Enabled = Not Option1.Enabled Option2.Enabled = Not Option2.Enabled End Sub,7.2 列表框和组合框,利用LostFocus()事件将用户输入的计算机品牌添加到组合框中 Private Sub Combo1_LostFocus() 检测欲添加的项目是否已经存在 flag = False For i = 0 To Combo1.

22、ListCount - 1 If Combo1.List(i) = Combo1.Text Then 如存在 flag = True Exit For End If Next If Not flag Then Combo1.AddItem Combo1.Text 如不存在 End Sub,7.2 列表框和组合框,Private Sub Command1_Click() 在列表框中显示用户所选择的配置 List1.Clear 首先清除列表框中所有的项目 If Check1.Value = 1 Then 选择计算机 List1.AddItem Combo1.Text List1.AddItem T

23、ext1.Text End If If Check2.Value = 1 Then 选择操作系统 If Option1 Then List1.AddItem Windows 2000 Else List1.AddItem Windows 98 End If End If End Sub,(08年4月) p285 （21）能够存放组合框的所有项目内容的属性是 A） caption B）Text C）List D）Selected (07.4月) P154-27 （27）设在窗体上有1个名称为Combol的组合框，含 有5个项目，要删除最后一项，正确的语句是 A）Combo1.RemoveItem

24、 Combo1.Text B）Combo1.RemoveItem 4 C）Combo1.RemoveItem Combo1.ListCount D）Combo1.RemoveItem 5,cB,（6）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。如单击图1中的重庆，则与北京交换，得到图2的结果。以下是可实现此功能的程序，请填空。 Private Sub Combo1_Click( ) Dim temp temp=Combo1.Text 【6】 =Combo1.List(0) Combo1.List(0)=temp End Sub,Combo

25、1.List(Combo1.ListIndex),图1 图2,07年9月等级考试,7.3 滚动条179,滚动条控件 滚动条常用来附在窗体上协助观察数据或确定位置，也可用来作为数据输入的工具。无论何时，只要应用程序或控件所包含的信息超过当前窗口所能显示的信息，那些滚动条就会自动出现。滚动条有水平和垂直两种，可以通过水平滚动条（HScrollBars）和垂直滚动条（VScrollBars）工具来建立。除了方向之外，水平滚动条和垂直滚动条的动作是相同的。,7.3 滚动条179,1. 滚动条的属性 1)Value属性 返回或设置滚动条的当前位置值，其返回值始终介于Min和Max属性值之间，包括这两个值

26、,当其值达到最小时,滚动条的滚动块位于水平滚动条的最左端或垂直滚动条的顶端;当其值达到最大时,滚动条的滚动块位于水平滚动条的最右端或垂直滚动条的最下端. 2)Max属性 返回或设置滚动条所能代表的最大值， 范围在(-32768-32768），默认值为32767. 3)Min 返回或设置滚动条所能代表的最小值， 范围在(-32768-32768）， 默认值为0.,7.3滚动条,4)LargeChange属性 返回和设置当用户单击滚动框和滚动箭头之间的空白区域时，滚动条控件Value属性值的改变量,该属性的默认值为1。 5)SmallChange属性 返回和设置当用户单击滚动箭头时，滚动条控件Va

27、lue属性值的改变量。当单击滚动条两端的箭头按钮时，滚动条的值将按最小改变量（即SmallChange属性值）进行递增（按滚动条上的上面或右面箭头）或递减。该属性的默认值为1。,7.3滚动条 -事件,2.滚动条的事件： Scroll事件和Change事件 Scroll事件： 当在滚动条内拖动滚动块时触发该事件。 Change事件：当滚动块被移动到新位置(此时Value的值改变了）或在程序执行过程中Value属性值发生变化时触发该事件。 总之： 滚动条的Value的值发生改变时，触发Change事件。 尽管拖动滚动框会引起Value属性发生变化，从而触发Change事件，但在滚动条内拖动滚动框的

28、过程中，并不发生Change事件。此时将触发产生滚动条的Scroll（滚动）事件（当然滚动框的位置改变后，又将触发产生Change事件）。,7.3滚动条,例7.5 设计如下图所示的计算018之间某个数阶乘的程序。数据由滚动条获得，其Max属性为18,Small属性为1，Largechange为3,Smallchange为1,Value属性的初值为1.（书上有错）,7.3滚动条,Private Sub HScroll1_Change() Dim i As Integer, s As Double s = 1 n = HScroll1.Value If n 0 Then For i = 1 To

29、n s = s * i Next i End If Label1.Caption = n End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print F2 Press; End Sub A）F2 Down F2 Press B）F2 Press F2 Down C）F2 Press D）F2 Down,选D,若按回车键则选A,实验书P73- 10. 在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：(书上有错) Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str

30、 As String, n As Integer str = UCase(Chr(KeyAscii) n = Len(str) Text1 = String(n, str) End Sub 程序运行后，如果在键盘上输入字母a，则在文本框Text1中显示的内容为_。 A)aaB)aAC)AAD)Aa,选B,鼠标器事件补例,鼠标器事件补例,Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.MousePointer = 11 End Sub Privat

31、e Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.MousePointer = 3 End Sub Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label3.MousePointer = 7 End Sub,键盘等级考试补例实验P74-14,Option Base 1 Private Sub Form_KeyPress(K

32、eyAscii As Integer) a = Array(237, 126, 87, 48, 498) m1 = a(1) m2 = 1 If KeyAscii = 13 Then For i = 2 To 5 If a(i) m1 Then m1 = a(i) m2 = i End If Next i End If Print m1; m2 End Sub,分析：a(1)=237,a(2)=126,a(3)=87,a(4)=48,a(5)=498 回车键的Ascii码为13，按回车键就表示Keyascii=13 关系式成立。执行循环语句，找出最大值放到m1中，最大值所在的下标放在M2中。,

33、对窗体编写如下代码，程序运行后，按回车键，输出结果如何？ 思考，若按F1键，此事件执行吗？,不执行,键盘等级考试补例,(11)在窗体上画1个文本框，名称为Text1，然后编写如下程序：(06年4月考题) Private Sub Form_Load() Opend：tempdat.txtFor Output As#1 Text1.Text= End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) lf【13】=13 Then If UCase(Text1.Text)=【14】Then Close 1 End Else Write#1，【15】 Text1.Text= End If End If End Sub 以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13) 都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。,（11）【答案】 【13】KeyAscii【14】“END”【15】Text1.text,