1、第6章 常用控件 第第6章章 常用控件常用控件 6.1 单选框、复选框和Frame控件 6.2 滚动条 6.3 列表框和组合框 6.4 计时器 6.5 图像框和图片框 习题 第1页，共132页。第6章 常用控件 6.1 单选框、复选框和单选框、复选框和Frame控件控件案例案例1 利用单选框和复选框设置文本的字体、颜色利用单选框和复选框设置文本的字体、颜色1学习目标学习目标设计一个小型编辑器，用户可以在文本框中输入一段文字，单击单选框和复选框，可以改变文本的字体、字型和颜色。通过本案例的学习，掌握单选框(OptionButton)和复选框(CheckBox)的Value、Caption、Bac
2、kColor、Visible等属性和Click事件的用法。第2页，共132页。第6章 常用控件 2相关知识相关知识1)单选框和复选框的区别单选框(OptionButton)和复选框(CheckBox)是在设计用户界面时，常用于选择的控件。单选框也称为单选按钮，利用OptionButton控件所制作的选项只可单选，即对于同一组的多个单选框，VB规定一次只能选择其中之一，这是单选框与复选框的主要区别，也是单选框名称的由来。而利用CheckBox控件则可制作出供使用者进行多项选择的选项，即如果有多个复选框，用户可以任意选择它们的状态组合，且每个复选框都是独立的、互不影响的。单击复选框时，若框里出现一
3、个选中标志“”，则表明该项被选中；再单击它，则标记消失，表示已取消选中操作，如图6.1所示。第3页，共132页。第6章 常用控件 图6.1 单选框和复选框第4页，共132页。第6章 常用控件 2)单选框和复选框的常见属性前面介绍的大多数属性都适用于单选框和复选框，如Caption、Name、BackColor、ForeColor、Picture、Height、Width、Enabled、Visible、Font等。复选框和单选框常用Value属性返回或设置对象的状态，即控件是否被选中。复选框的Value属性可以设置为0、1或2(0表示复选框未被选中，1表示复选框被选中，2表示该复选框无效(呈灰
4、色)；单选框的Value属性可设置为True或False，True表示该对象被选中，False则相反。第5页，共132页。第6章 常用控件 3程序实现程序实现1)界面设计初始界面如图6.2所示。2)属性设置属性设置如表6.1所示。设置属性后的界面如图6.3所示。第6页，共132页。第6章 常用控件 图6.2 初始界面第7页，共132页。第6章 常用控件 表6.1 属 性 设 置对 象 属 性 属 性 值 窗 体(Form1)Caption BackColor 小型编辑器 vbYellow 命令按钮 1(Command1)Caption Font Default 开始 小四号 True 命令按钮
5、 2(Command2)Caption Font Cancel 退出 小四号 True 图像框(Image1)Picture 用图形软件 做好后贴过来 文本框(Text1)Text MultiLine Visible 书山有路勤为径，学海无涯苦作舟。True False 单选框 1(Option1)Caption Visible BackColor 宋体 False vbYellow 单选框 2(Option2)Caption Visible BackColor 隶书 False vbYellow 复选框 1(Check1)Caption Visible BackColor 斜体 False
6、vbYellow 复选框 2(Check2)Caption Visible BackColor 红色 False vbYellow 第8页，共132页。第6章 常用控件 图6.3 设置属性后的界面第9页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Command1_Click()Image1.Visible=FalseCommand1.Visible=FalseCommand2.Visible=FalseText1.Visible=TrueOption1.Visible=TrueOption2.Visible=TrueCheck1.Visible=TrueC
7、heck2.Visible=TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub第10页，共132页。第6章 常用控件 若选中复选框1使文本变成斜体，则Text1的FontItalic属性设为True；若选中复选框2使文本变成红色，则设置Text1的前景色为红色。代码如下：Private Sub Check1_Click()If Check1.Value=1 Then Text1.FontItalic=TrueElse Text1.FontItalic=FalseEnd IfEnd Sub第11页，共132页。第6章 常用控件 Private Su
8、b Check2_Click()If Check2.Value=1 ThenText1.ForeColor=vbRedElseText1.ForeColor=vbBlackEnd IfEnd Sub第12页，共132页。第6章 常用控件 单选框决定文本的字体是宋体还是隶书，如果选中单选框1，则文本字体为宋体；若选中单选框2，则文本字体为隶书。代码如下：Private Sub Option1_Click()Text1.FontName=宋体End SubPrivate Sub Option2_Click()Text1.FontName=隶书End Sub运行程序，结果如图6.4所示。第13页，共
9、132页。第6章 常用控件 图6.4 复选框和单选框第14页，共132页。第6章 常用控件 4思考思考在本案例中，若增加一个复选框Check3，则(1)怎样设置属性，使得该复选框上显示“粗体”？(2)怎样增加代码，使得选中复选框Check3后，文本框中的文本变成粗体?第15页，共132页。第6章 常用控件 案例案例2 利用利用Frame控件将单选按钮分组控件将单选按钮分组1学习目标学习目标将单选按钮“宋体”和“黑体”分成“字体”组，将单选按钮“10号”和“14号”分成“字号”组，使得可以从每组中任选其中一个单选按钮。通过本案例的学习，掌握框架(Frame)的Caption属性和利用Frame控
10、件将单选按钮分组的方法。第16页，共132页。第6章 常用控件 2相关知识相关知识框架(Frame)控件 为控件容器，可以将多种不同类型的控件按不同的分组进行存放，以方便管理和设定控件。其属性与设定方法多半都与前面介绍过的相同，包括Caption、Name、BackColor、ForeColor、Picture、Height、Width、Enabled、Visible、Font等属性。当需要在同一窗体内建立几组互相独立的单选按钮时，就需要用框架将每一组单选按钮框起来，从而将OptionButton 控件分成几组。注意：为了将控件分组，首先需要绘制Frame控件，然后绘制Frame里面的其他控件
11、。第17页，共132页。第6章 常用控件 3程序实现程序实现1)界面设计初始界面如图6.5所示。2)属性设置属性设置如表6.2所示。设置属性后的界面如图6.6所示。第18页，共132页。第6章 常用控件 图6.5 初始界面第19页，共132页。第6章 常用控件 表6.2 属 性 设 置对 象 属 性 属 性 值 Text1 Text 每逢佳节倍思亲 Frame1 Caption 字体 Frame2 Caption 字号 Option1 Caption 华文行楷 Option2 Caption 楷体_GB2312 Option3 Caption 16 号 Option4 Caption 20 号
12、 第20页，共132页。第6章 常用控件 图6.6 设置属性后的界面第21页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Form_Load()Option1.Value=TrueOption3.Value=TrueEnd SubPrivate Sub Option1_Click()Text1.FontName=华文行楷End SubPrivate Sub Option2_Click()Text1.FontName=楷体_GB2312End Sub第22页，共132页。第6章 常用控件 Private Sub Option3_Click()Text1.Fon
13、tSize=16End SubPrivate Sub Option4_Click()Text1.FontSize=20End Sub运行程序，结果如图6.7所示。第23页，共132页。第6章 常用控件 图6.7 利用Frame控件将单选按钮分组第24页，共132页。第6章 常用控件 6.2 滚滚 动动 条条案例案例3 利用滚动条控制窗体的背景色利用滚动条控制窗体的背景色1学习目标学习目标利用滚动条控制窗体的背景色，使其随滚动条值的改变而改变。通过本案例的学习，掌握水平滚动条的Value、Max、Min等属性和Change事件的用法。2相关知识相关知识滚动条分为水平滚动条(HScrollBar)
14、和垂直滚动条(VScrollBar)两种，其图标如图6.8所示。第25页，共132页。第6章 常用控件 图6.8 滚动条图标第26页，共132页。第6章 常用控件 水平滚动条和垂直滚动条除方向不同外，其结构和操作方法都是相同的。滚动条的两端各有一个滚动箭头，在滚动箭头之间有一个滚动块，如图6.9所示。滚动块从一端移至另一端时，其Value属性值随之发生变化。水平滚动条最左端代表最小值，最右端代表最大值；而垂直滚动条最上端为最小值，最下端为最大值。滚动条的值由Min(最小)和Max(最大)两个属性设置，取值范围为3276832767。第27页，共132页。第6章 常用控件 图6.9 滚动条结构第
15、28页，共132页。第6章 常用控件 滚动条常用的属性有Value、LargeChange和SmallChange等。(1)Value属性：该属性用来返回或设置滚动块的当前位置。缺省值为Min值，改变该属性则滚动块的位置随之发生变化。取值范围在Max值与Min值之间。(2)LargeChange属性：该属性用来设置当用户单击滚动块和滚动箭头之间的区域时，Value属性值增加或减小的幅度。第29页，共132页。第6章 常用控件(3)SmallChange属性：该属性用来设置当用户单击滚动箭头时，Value属性值的改变量。即每单击滚动箭头一次时，滚动块移动的步长。滚动条常见的事件有Change和S
16、croll。当在滚动条内拖动滚动块时，将产生Scroll事件，从而触发了一个Scroll事件过程。对Change事件而言，只有在滚动块位置改变后才触发一个Change事件过程。第30页，共132页。第6章 常用控件 3程序实现程序实现1)界面设计初始界面如图6.10所示。2)属性设置属性设置如表6.3所示。设置属性后的界面如图6.11所示。第31页，共132页。第6章 常用控件 图6.10 初始界面第32页，共132页。第6章 常用控件 表6.3 属 性 设 置对 象 属 性 属 性 值 Max 255 HScroll1，HScroll2，HScroll3 Min 0 Label1 Capti
17、on 红 Label3 Caption 绿 Label5 Caption 蓝 Label2，Label4，Label6 Caption 第33页，共132页。第6章 常用控件 图6.11 设置属性后的界面第34页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub HScroll1_Change()Label2.Caption=HScroll1.ValueForm1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)End SubPrivate Sub HScroll2_Change()Label4
18、.Caption=HScroll2.ValueForm1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)End Sub第35页，共132页。第6章 常用控件 Private Sub HScroll3_Change()Label6.Caption=HScroll3.ValueForm1.BackColor=RGB(HScroll1.Value,HScroll2.Value,HScroll3.Value)End Sub运行程序，结果如图6.12所示。第36页，共132页。第6章 常用控件 图6.12 利用滚动条控制窗体的背景色
19、第37页，共132页。第6章 常用控件 6.3 列表框和组合框列表框和组合框案例案例4 利用列表框显示数据利用列表框显示数据1学习目标学习目标利用列表框显示1到50之间能被6整除的自然数。通过本案例的学习，掌握列表框(ListBox)的Clear、AddItem等方法的使用。第38页，共132页。第6章 常用控件 2相关知识相关知识列表框(ListBox)可以提供许多选项供用户选择。如果选项超过列表框的长度，VB会自动提供垂直滚动条。1)列表框的常用属性(1)ListCount属性：返回列表框中项目的个数。该属性为只读属性，只能在程序中引用。(2)List属性：返回或设置列表框中包含的选项。该
20、属性是一个一维字符串数组，每个数组元素的值对应列表框中一个项目的显示文字。第39页，共132页。第6章 常用控件 List()数组下标的下界为0，上界为ListCount1。下标为0的元素对应列表框中第一个项目，依此类推。List属性既可以在设计时设置，也可以在程序中增减或引用。例如，List1.List(2)对应列表框中第三项的值。List1.List(2)=课程VB(3)ListIndex属性：返回当前被选中项目的序号。如果第一个项目被选中，则ListIndex的值为0，依此类推；如果当前没有项目被选中，则ListIndex的值为1。该属性只能在程序中设置或引用。第40页，共132页。第6
21、章 常用控件(4)MultiSelect属性：决定列表框是否支持多选。该属性只能在设计时设置。其中：0None：不允许多重选择，只能选择一项。1Simple：简单的多重选择。用鼠标单击或按空格键来选定或取消选定的一个选项。2Extended：扩展的多重选择。类似于Windows中选择文件夹中的多个文件，按住Shift键的同时单击鼠标，选择连续的多个项目；或者按住Ctrl键的同时单击鼠标，选择不连续的多个项目。第41页，共132页。第6章 常用控件(5)SelCount属性：返回当前被选中项目的个数。该属性只能在程序中引用。(6)Selected属性：返回一个项目是否被选中。该属性只能在程序中设
22、置或引用。Selected是一个逻辑型数组。数组元素值为True，表示相应的项目被选中；若为False，则表示未被选中。例如，List1.Selected(1)=True表示选中List1中的第二项。(7)Sorted属性：决定列表框中的项目是否按字母顺序排序。如果Sorted为True，则项目按字母顺序递增排列；如果Sorted为False，则不排序(默认)。该属性只能在设计时设置，在运行时是只读的。第42页，共132页。第6章 常用控件(8)Style属性：设置列表框的风格。该属性只能在设计时设置。其中：Stytle为0，表示是标准风格；Stytle为1，表示是复选框风格，在每个项目前增加
23、一个复选框，以表示该项是否被选中。(9)Text属性：返回或设置当前选项的文本内容。该属性只能在程序中设置或引用。第43页，共132页。第6章 常用控件 2)列表框的方法(1)AddItem方法：向列表框中添加一个新项目。其语法格式为：列表框对象名.AddItem 字符串表达式，位置说明：把字符串插入到列表框中指定的位置上(位置从0开始)，如果省略了第二个参数“位置”，则新项目被加到最后。第44页，共132页。第6章 常用控件(2)RemoveItem方法：从列表框中删除指定位置上的项目。其语法格式为：列表框对象名.RemoveItem 位置(3)Clear方法：清除列表框中所有项目。其语法格
24、式为：列表框对象名.Clear3)列表框的常用事件列表框可触发的事件有Click、DblClick等。第45页，共132页。第6章 常用控件 3程序实现程序实现1)界面设计初始界面如图6.13所示。2)属性设置属性设置如表6.4所示。设置属性后的界面如图6.14所示。第46页，共132页。第6章 常用控件 图6.13 初始界面第47页，共132页。第6章 常用控件 表6.4 属 性 设 置对 象 属 性 属 性 值 Label1 Caption 1 到 50 之间能被 6 整除的数：List1 List Command1 Caption 显示 第48页，共132页。第6章 常用控件 图6.14
25、 设置属性后的界面第49页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Command1_Click()Dim n As IntegerList1.ClearFor n=1 To 50 If n Mod 6=0 Then List1.AddItem Str(n)Next nEnd Sub运行程序，结果如图6.15所示。第50页，共132页。第6章 常用控件 图6.15 利用列表框显示1到50之间能被6整除的自然数第51页，共132页。第6章 常用控件 案例案例5 列表框的添加、删除操作列表框的添加、删除操作1学习目标学习目标利用列表框进行项目的添加、删除。通
26、过本案例的学习，掌握列表框的ListCount、List、ListIndex等属性和RemoveItem方法的使用。2程序实现程序实现1)界面设计初始界面如图6.16所示。第52页，共132页。第6章 常用控件 图6.16 初始界面第53页，共132页。第6章 常用控件 2)属性设置属性设置如表6.5所示。设置属性后的界面如图6.17所示。第54页，共132页。第6章 常用控件 表6.5 属 性 设 置对 象 属 性 属 性 值 Label1 Caption 想去旅游的城市有：Label2 Caption 请输入城市名：Text1 Text Command1 Caption 添加 Comman
27、d2 Caption 删除 List1 List 第55页，共132页。第6章 常用控件 图6.17 设置属性后的界面第56页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Form_Load()List1.AddItem 武汉List1.AddItem 桂林List1.AddItem 上海End SubPrivate Sub Command1_Click()Dim city As String,i As Integercity=Text1.TextIf city=Then Exit SubFor i=0 To List1.ListCount 1 ListCo
28、unt属性返回列表框中项目的个数第57页，共132页。第6章 常用控件 If city=List1.List(i)Then Exit Sub 如果列表框中已有该项，则不添加Next iList1.AddItem cityText1.Text=End SubPrivate Sub Command2_Click()If List1.ListIndex -1 Then List1.RemoveItem List1.ListIndex ListIndex属性返回当前被选中项目的序号End IfEnd Sub运行程序，结果如图6.18所示。第58页，共132页。第6章 常用控件 图6.18 利用列表框进
29、行项目的添加、删除第59页，共132页。第6章 常用控件 案例案例6 利用列表框删除多项利用列表框删除多项1学习目标学习目标从列表框中选择一个或多个项目进行删除操作。通过本案例的学习，掌握列表框的MultiSelect、SelCount、Selected等属性的用法。第60页，共132页。第6章 常用控件 2程序实现程序实现1)界面设计初始界面如图6.19所示。2)属性设置属性设置如表6.6所示。设置属性后的界面如图6.20所示。第61页，共132页。第6章 常用控件 图6.19 初始界面第62页，共132页。第6章 常用控件 表6.6 属 性 设 置对 象 属 性 属 性 值 Command
30、1 Caption 删除 Label1 Caption 请从如下列表框中选择一个或多个项目进行删除操作：Label2 Caption List1 的 MultiSelect 属性为 1 或 2 List1 MultiSelect 1(或 2)第63页，共132页。第6章 常用控件 图6.20 设置属性后的界面第64页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Form_Load()List1.AddItem 湖北List1.AddItem 湖南List1.AddItem 北京List1.AddItem 天津List1.AddItem 重庆End Sub第6
31、5页，共132页。第6章 常用控件 Private Sub Command1_Click()Dim i As IntegerIf List1.SelCount=1 Then SelCount属性返回当前被选中项目的个数List1.RemoveItem List1.ListIndex 如果选择一项，则直接删除ElseIf List1.SelCount 1 Then 如果选择项目多于一项，则用循环完成删除操作For i=List1.ListCount-1 To 0 Step1ListCount属性返回列表框中项目的个数第66页，共132页。第6章 常用控件 If List1.Selected(i)
32、=True Then 数组元素值为True，表示相应的项目被选中 List1.RemoveItem i End If Next iEnd IfEnd Sub运行程序，结果如图6.21所示。第67页，共132页。第6章 常用控件 图6.21 从列表框中选择一个或多个项目进行删除操作第68页，共132页。第6章 常用控件 案例案例7 利用组合框进行选择利用组合框进行选择1学习目标学习目标利用组合框选择文化程度、业余爱好。通过本案例的学习，掌握组合框的Text属性、AddItem方法和KeyPress事件的用法。第69页，共132页。第6章 常用控件 2相关知识组合框(ComboBox)是单独控件，
33、可以看作是列表框和文本框组合而成的控件。组合框的常用属性、方法、事件与列表框和文本框基本相同。1)组合框的常用属性(1)Style属性：Style属性取值及含义如下。Style属性值为0，即常量vbComboDropDown(下拉式组合框)。不操作时仅显示文本框及其右边的下拉箭头；执行时，用户可以直接在文本框中输入内容，也可以用鼠标单击文本框右边的下拉箭头打开列表框，从列表中选择，选中项的内容将显示在文本框中。第70页，共132页。第6章 常用控件 Style属性值为1，即常量vbComboDropSimple(简单组合框)。文本框右边没有下拉箭头，文本框和列表框一直显示在窗体上，列表框不能收
34、起。用户可以在列表框中选择选项，也可以在文本框中直接输入。Style属性值为2，即常量vbComboDropList(下拉式列表框)。外观与下拉式组合框相似，区别是只能从列表框中进行选择，不能在文本框中输入。第71页，共132页。第6章 常用控件(2)其他常用属性：对应于文本框，组合框有SelLength、SelStart、SelText、Text等属性；对应于列表框，组合框有ListIndex、Sorted、List、ListCount等属性。组合框无MultiSelect、SelCount、Selected等属性。第72页，共132页。第6章 常用控件 2)组合框的常用方法组合框的常用方法
35、有AddItem、Clear、RemoveItem等。对于组合框来说，把用户在文本框部分输入的内容添加到列表框部分的语句格式为：组合框的对象名.AddItem 组合框对象名.Text，位置3)组合框的常用事件组合框的常用事件有Click、DblClick、KeyPress、Change等。第73页，共132页。第6章 常用控件 3程序实现程序实现1)界面设计初始界面如图6.22所示。2)属性设置属性设置如表6.7所示。设置属性后的界面如图6.23所示。第74页，共132页。第6章 常用控件 图6.22 初始界面第75页，共132页。第6章 常用控件 表6.7 属 性 设 置对 象 属 性 属
36、性 值 Command1 Caption 选择完毕 Label1 Caption 请选择：Label2 Caption 文化程度：Label3 Caption 业余爱好：Label4 Caption 你的文化程度：Label5 Caption 你的业余爱好：第76页，共132页。第6章 常用控件 图6.23 设置属性后的界面第77页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Form_Load()Combo1.AddItem 专科Combo1.AddItem 本科Combo1.AddItem 硕士Combo2.AddItem 文学Combo2.AddIte
37、m 体育Combo2.AddItem 旅游“End SubPrivate Sub Combo2_KeyPress(KeyAscii As Integer)第78页，共132页。第6章 常用控件 If KeyAscii=13 Then KeyAscii=13表示按回车键Combo2.AddItem Combo2.Text,0在组合框的文本框部分输入新的选项后按回车键，则新的选项添加到组合框中End IfEnd SubPrivate Sub Command1_Click()Label4.Caption=你的文化程度：+Combo1.TextLabel5.Caption=你的业余爱好：+Combo2
38、.TextEnd Sub运行程序，结果如图6.24所示。第79页，共132页。第6章 常用控件 图6.24 利用组合框选择文化程度、业余爱好第80页，共132页。第6章 常用控件 6.4 计计 时时 器器案例案例8 电子钟电子钟1学习目标学习目标利用计时器和标签控件设计电子钟。通过本案例的学习，掌握计时器的Interval属性和Timer事件的用法。第81页，共132页。第6章 常用控件 2相关知识相关知识计时器(Timer)控件是利用系统内部的计时器计时的，它根据用户定制的时间间隔(Interval)触发计时器事件过程，即Timer控件可以有规律地每隔一段时间重复执行一次代码，其图标如图6.
39、25所示。其缺省名为TimerX(X=1，2，3，)。一般来说，只要跟时间有关的问题，就一定少不了计时器控件。建立计时器的操作十分简单，只要在工具箱中的计时器图标上双击，计时器就会被放置在窗体的正中央，其位置和大小不需要调整，因为它只有在设计阶段才出现在窗体上，运行后屏幕上并不显示。第82页，共132页。第6章 常用控件 图6.25 计时器图标第83页，共132页。第6章 常用控件 Timer有Name、Left、Top、Index、Enable、Tag及Interval等属性，其中最重要的是Interval(时间间隔)，它决定着系统多久触发一个计时器事件，以毫秒为单位，其取值范围为065 5
40、35毫秒，因此最大的时间间隔不能超过65秒。如果将Interval设置为1000，则表示每1秒钟触发一个计时器事件；如果设置为0，则表示计时器被关闭，不产生计时器事件。计时器事件(Timer事件)是指在预定时间间隔过去之后，由Windows系统自动执行的Timer事件过程。该事件是系统内部所产生的动作，不是由用户引发的事件，因此计时器事件也称为系统事件。第84页，共132页。第6章 常用控件 3程序实现程序实现1)界面设计初始界面如图6.26所示。2)属性设置属性设置如表6.8所示。设置属性后的界面如图6.27所示。第85页，共132页。第6章 常用控件 图6.26 初始界面第86页，共132
41、页。第6章 常用控件 表6.8 属 性 设 置对 象 属 性 属 性 值 Label1 Caption 电 子 钟 Label2 Caption Timer1 Interval 1000 第87页，共132页。第6章 常用控件 图6.27 设置属性后的界面第88页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Timer1_Timer()Label2.Caption=Now()Now()返回系统日期和时间，格式为yyyy-mm-dd hh:mm:ssEnd Sub运行程序，结果如图6.28所示。第89页，共132页。第6章 常用控件 图6.28 利用计时器和标
42、签控件设计的电子钟第90页，共132页。第6章 常用控件 4思考思考(1)如果 Timer1 的 Interval=2000，则运行结果是什么？(2)如果不设置 Timer1 的 Interval的值，即Timer1的Interval值为0，则运行结果是什么？第91页，共132页。第6章 常用控件 案例案例9 滚动字幕滚动字幕1学习目标学习目标设计滚动字幕，使滚动字幕内容“谁言寸草心，报得三春晖。”在窗体中从左向右反复地移动。通过本案例的学习，掌握计时器和标签的综合使用。第92页，共132页。第6章 常用控件 2程序实现程序实现1)界面设计初始界面如图6.29所示。2)属性设置属性设置如表6.
43、9所示。设置属性后的界面如图6.30所示。第93页，共132页。第6章 常用控件 图6.29 初始界面第94页，共132页。第6章 常用控件 表6.9 属 性 设 置对 象 属 性 属 性 值 Caption 谁言寸草心，报得三春晖。Label1 BackColor vbWhite Timer1 Interval 100 第95页，共132页。第6章 常用控件 图6.30 设置属性后的界面第96页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Timer1_Timer()Form1.ScaleWidth是Form1右下角的横坐标If Label1.Left+L
44、abel1.Width Form1.ScaleWidth ThenLabel1.Left=Form1.ScaleLeft如果标签将要移出窗体Form1，则标签从最左开始往右移第97页，共132页。第6章 常用控件 Form1.ScaleLeft是Form1左下角的横坐标ElseLabel1.Move Label1.Left+30 标签向右移End IfEnd Sub运行程序，结果如图6.31所示。第98页，共132页。第6章 常用控件 图6.31 滚动字幕第99页，共132页。第6章 常用控件 6.5 图像框和图片框图像框和图片框案例案例10 图像框图像框1学习目标学习目标利用计时器和图像框设
45、计一个简单的动画。通过本案例的学习，掌握图像框的Picture、Visible等属性的用法。第100页，共132页。第6章 常用控件 2相关知识相关知识图片类控件主要用于在窗体的指定位置显示图形信息，常见的有图像框(Image)和图片框(PictureBox)。图像框只用来显示图形，而图片框除可以显示图形以外，还可以作为其他控件的容器和显示以Print方法输出的文本。图像框与图片框的缺省名分别为ImageX(X为1，2，3，)和PictureX。如果只单纯地显示图形，则一般采用图像框 。用图像框显示图形时，占用的内存比图片框的少。图像框有Stretch(拉伸)属性，当将它设为True时，装入的
46、图形可根据图像框的大小自动压缩或扩大；当将它设为False时，图像框会自动改变大小以适应图形大小。第101页，共132页。第6章 常用控件 图像框及图片框的图形加载都是通过设置Picture属性来完成的。其设置方法与其他控件的相同，可通过属性表或设置代码来完成。设置Picture属性时，只有符合以下6种格式的图形文件才能被加载：.bmp位图文件，即Windows的标准文件；.gif文件，属“无损压缩”文件；.jpg文件，是JPEG压缩文件，属“有损压缩”文件；.wmf文件，是绘图命令构成的文件；.ico图标文件或.cur指针文件；.dib文件，即位图文件。第102页，共132页。第6章 常用控
47、件 此外，图形的加载也可以通过剪贴板来完成，即先使用任意图形软件工具制作一个图形，然后利用剪贴板的“复制”、“粘贴”命令将图形插入到所需位置。利用LoadPicture函数加载图形的语句形式：.Picture=LoadPicture(Filename)其中，对象名可以是图像框、图片框、窗体的名称；Filename是一个字符串，为包括路径在内的图形文件名，当省略Filename时表示清除控件已装载的图形。语句功能：在运行时，通过引用LoadPicture函数加载指定文件的图片。第103页，共132页。第6章 常用控件 例如：运行时，要将D盘pict文件夹中图形文件a.jpg内保存的图片显示于图像
48、框Image1中，则应执行语句：Image1.Picture=LoadPicture(D:picta.jpg)清除所显示的图片，则应执行语句：Image1.Picture=LoadPicture()注意：采用在属性表中设置Picture属性、利用剪贴板复制图形和使用LoadPicture函数加载这三种方法加载图形时，可根据实际应用的需要选用相应的方法。第104页，共132页。第6章 常用控件 3程序实现程序实现1)界面设计初始界面如图6.32所示。2)属性设置属性设置如表6.10所示。设置属性后的界面如图6.33所示。第105页，共132页。第6章 常用控件 图6.32 初始界面第106页，共
49、132页。第6章 常用控件 表6.10 属 性 设 置对 象 属 性 属 性 值 Timer1 Interval 100 Picture 选择三幅相近的图案贴至三个不同的图像控件 Image1 Image2 Image3 Visible False 第107页，共132页。第6章 常用控件 图6.33 设置属性后的界面第108页，共132页。第6章 常用控件 3)编写代码代码编写如下：Private Sub Timer1_Timer()Dim s As Integers=Int(Rnd*3)+1 利用Rnd函数随机产生1、2、3Select Case sCase 1Image1.Visible
50、=TrueImage2.Visible=FalseImage3.Visible=False第109页，共132页。第6章 常用控件 Case 2Image2.Visible=TrueImage1.Visible=FalseImage3.Visible=FalseCase 3Image3.Visible=TrueImage1.Visible=FalseImage2.Visible=FalseEnd SelectEnd Sub运行程序，结果如图6.34所示。第110页，共132页。第6章 常用控件 图6.34 利用计时器和图像框设计的简单动画第111页，共132页。第6章 常用控件 案例案例11
