计算机二级VB课件

第8章常用控件8.1框架8.2图片框8.3图像框8.4选项按钮8.5复选框8.6列表框8.7组合框8.8定时器8.9滚动条18.1框架框架属于Frame类，主要用作控件的容器，其作用是对控件进行分组，放在同一个容器中的控件构成一组，跟随其容器移动，删除容器将同时删除其中所有的控件。框架也用于修饰界面。框架常用的属性有Caption属性、Font属性和Enable属性。框架不响应鼠标事件。2框架Frame1和Frame2对控件进行了分组。Frame1Frame238.2图片框图片框属于PictureBox类，该控件可以用来显示图像，包括：位图文件（.bmp）图标文件（.ico）光标文件（.cur）元文件（.wmf）增强的元文件（.emf）JPEG文件（.jpg）GIF文件（.gif）4要在图片框中显示一幅图像，可以：在属性窗口中设置其Picture属性在代码中使用LoadPicture函数进行设置对象名.Picture=LoadPicture("图像文件名")要清除图片框中的图像，可以在属性窗口中直接删除其Picture属性的内容在代码中使用LoadPicture函数进行清除对象名.Picture=LoadPicture()5可以作为控件的容器。还可用于显示用Print方法产生的文本和用图形方法绘制的图形。要清除用Print方法在图片框中产生的文本和用图形方法绘制的图形，可以使用Cls方法对象名.Cls在图片框中加载.wmf文件，图像会自动调整大小，以适应控件的大小。其他类型的文件，如果控件大小不足以显示整幅图像，VB则会自动裁剪图像，以适应控件的大小，但不能调整图形以适应控件的大小。6要使图片框控件能够自动调整大小以显示整幅图像，可以将其AutoSize属性设置为True。Autosize属性为FalseAutosize属性为True78.3图像框属于Image类，该控件也用于显示图像，包括：位图文件（.bmp）、图标文件（.ico）、光标文件（.cur）、元文件（.wmf）、增强的元文件（.emf）、JPEG文件（.jpg）、GIF文件（.gif）。可以在属性窗口通过设置Image控件的Picture属性来添加一幅图像，也可以在代码中使用LoadPicture函数进行图像的添加或清除。8图像框控件的Stretch属性Stretch属性为TrueStretch属性为False98.4选项按钮属于OptionButton类，该控件用于提供一个可以打开或者关闭的选项。一般将几个选项按钮组成一组，在同一组中，用户只能选择其中的一项。在Frame控件、PictureBox控件或者窗体这样的容器中绘制选项按钮，就可以把这些选项按钮分组。101．属性（1）Value：True——选中；False——没选中（2）Alignment：0（或vbLeftJustify）——文本左对齐；1（或vbRightJustify）——文本右对齐。（3）Style：0（或vbButtonStandard）——旁边带有文本的圆形按钮；1（或vbButtonGraphical）——与命令按钮相同的形状，还可以为其设置颜色或添加图形。11Style属性为1Style属性为02．事件选项按钮常用的事件为Click事件，运行程序时单击选项按钮，使选项按钮从未选择状态变成选择状态时，或在代码中将一个选项按钮的Value属性从False改为True时，触发Click事件，12【例8-1】用选项按钮设计一个简单的工具栏，用于设置文本框文本的对齐方式。Text1Picture1Option1Option2Option313PrivateSubOption1_Click()Text1.Alignment=0EndSubPrivateSubOption2_Click()Text1.Alignment=2EndSubPrivateSubOption3_Click()Text1.Alignment=1EndSub148.5复选框属于CheckBox类。用于提供一个可以打开或者关闭的选项。选择复选框控件后，该控件将显示符号，而取消选择后，符号消失，也可以设置复选框使其处于第3种状态，即灰度状态。在一个窗体中（包括其他容器中）可以同时选择任意数量的复选框控件；在一个容器中，在任何时候只能选择一个选项按钮。151．属性（1）Value属性：0——取消选择状态；1——选择状态；2——灰度状态（2）Alignment属性：0（或vbLeftJustify）——文本左对齐；1（或vbRightJustify）——文本右对齐。（3）Style属性：0（或vbButtonStandard）——旁边带有文本1（或vbButtonGraphical）——与命令按钮相同的形状，还可以为其设置颜色或添加图形。162．事件复选框常用的事件为Click事件。运行时单击复选框，或在代码中改变复选框的Value属性值时，产生Click事件。【例8-2】在例8-1的基础上，添加一组工具栏按钮，用于设置文本框文字的样式与效果，包括粗体、斜体、下划线和删除线。Check1~Check417PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndSubPrivateSubCheck3_Click()IfCheck3.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndSubPrivateSubCheck4_Click()IfCheck4.Value=1ThenText1.FontStrikethru=TrueElseText1.FontStrikethru=FalseEndSub188.6列表框属于ListBox类，该控件用于显示项目列表，从列表中可以选择一项或多项。1．属性（1）List属性：返回或设置列表框的列表项。设计时可以在属性窗口中直接输入列表项，使用Ctrl+Enter组合键换行。在代码中引用列表框中的第1项为List(0)、第2项为List(1)……19（2）Style属性：返回或设置列表框的显示样式（3）Columns属性：返回或设置列表框是按单列显示（垂直滚动）还是按多列显示（水平滚动）。Style属性为0Columns属性为0Style属性为0Columns属性为2Style属性为120（4）Text属性：返回列表框中被选择的项目文本。Text属性为只读属性。（5）ListIndex属性：返回或设置列表框中当前选择项目的索引，在设计时不可用。列表框的索引从0开始，如果没有在列表框中选择项目，则ListIndex的值为-1。（6）ListCount属性：返回列表框中列表部分项目的总个数。（7）Sorted属性：指定列表项目是否自动按字母表顺序排序。True——按字母表顺序排序；False（缺省值）——不按字母表顺序排序。21（8）Selected属性：返回或设置在列表中的某项的选择状态。该属性在设计时不可用。（9）MultiSelect属性：返回或设置一个值，该值指示是否能够同时选择列表框中的多个项（复选），以及如何进行复选。该属性在运行时是只读的。0（缺省）——不允许复选；1——单击鼠标或按空格键可在列表中选择或取消选择列表项；2——Shift键与鼠标或箭头键配合进行多选；Ctrl键与鼠标配合进行多选。222．事件列表框接受Click、DblClick、GotFocus、LostFocus等大多数控件的通用事件，但通常不编写其Click事件过程，而是当单击某个命令按钮或双击列表框时读取列表框的Text属性值。3．方法AddItem方法：向列表框中添加新的项目RemoveItem方法：从列表框中删除项目Clear方法：清除列表框中的所有项目23【例8-3】用列表框实现游戏列表的管理，实现从所有游戏列表中选择自己喜欢的游戏，添加到“我的收藏”中。在“我的收藏”列表中双击某游戏名称可以打开相应的游戏。List1List224Command1，将左侧列表框中选择的项目移动到右侧列表框中。Command2，将右侧列表框中选择的项目移动到左侧列表框中。Command3，将左侧列表框中的所有项目移动到右侧列表框中。Command4，将右侧列表框中的所有项目移动到左侧列表框中。25PrivateSubCommand1_Click()IfList1.ListCount=0Then'如果左侧列表框为空MsgBox"左列表中已没有可选项",,"注意"ExitSub'退出本事件过程EndIfIfList1.ListIndex>=0Then'如果在List1中选择了某列表项List2.AddItemList1.Text'将List1选择项的内容添加到List2末尾List1.RemoveItemList1.ListIndex'删除在List1中选择的列表项Else'如果没有选择任何列表项MsgBox"请先在左列表中选择某项",,"注意"EndIfEndSub26PrivateSubCommand2_Click()IfList2.ListCount=0Then '如果右侧列表框为空MsgBox"右列表中已没有可选项",,"注意"ExitSub '退出本事件过程EndIfIfList2.ListIndex>=0Then'如果在List2中选择了某列表项List1.AddItemList2.Text'将List2选择项的内容添加到List1末尾List2.RemoveItemList2.ListIndex'删除在List2中选择的列表项Else'如果没有选择任何列表项MsgBox"请先在右列表中选择某项",, "注意"EndIfEndSub27PrivateSubCommand3_Click()Fori=0ToList1.ListCount-1List1.Selected(0)=True'选择List1的第1项List2.AddItemList1.Text'将List1选择项的内容添加到List2末尾List1.RemoveItem0'删除List1的第1项NextiEndSubPrivateSubCommand4_Click()Fori=0ToList2.ListCount-1List2.Selected(0)=True'选择List2的第1项List1.AddItemList2.Text'将List2选择项的内容添加到List1末尾List2.RemoveItem0'删除List2的第1项NextiEndSub288.7组合框属于ComboBox类。作用与列表框类似。组合框控件将文本框和列表框的特性结合在一起，既可以在控件的文本框（编辑域）部分输入信息，也可以在控件的列表框部分选择一项。1．属性（1）List属性：返回或设置组合框的列表部分的项目。在设计时可以在属性窗口中直接输入列表项目。29（2）Style属性：用于指定组合框的显示形式，可以取以下几种值。0（缺省）——下拉组合框，包括一个文本框和一个下拉式列表。1——简单组合框。该形式同样包括一个文本框和一个列表框，但不能将列表折叠起来。2——下拉列表框。这种样式仅允许从下拉列表中选择，不能在文本框中输入文本，列表可以折叠起来。30（3）Text属性：当ComboBox控件的Style属性设置为0或为1时，该属性用于返回或设置编辑域中的文本。而当Style属性设置为2时，该属性为只读属性，Style属性为0下拉组合框Style属性为1简单组合框Style属性为2下拉列表框31（4）ListIndex属性：返回或设置在组合框下拉列表中当前选择项目的索引，在设计时不可用。（5）ListCount属性：返回组合框的列表部分项目的总个数。（6）Sorted属性：指定列表项目是否自动按字母表顺序排序。True——按字母表顺序排序；False（缺省值）——不按字母表顺序排序322．事件Style属性值为0——响应Click、Change、DropDown事件。Style属性值为1——响应Click、DblClick、Change事件。Style属性值为2——响应Click、DropDown事件。3．方法AddItem：向组合框中添加新的项目，RemoveItem：从组合框的列表中删除项目Clear：清除列表框中的所有项目33【例8-4】用组合框设置文本框的背景颜色、文字颜色、字体、字号。Combo1和Combo2：红、绿、蓝、黑、白色；Combo3：宋体、黑体、隶书、楷体_GB2312；Combo4：10、12、14、16、18。34PrivateSubForm_Load()‘设置运行初始时各组合框的文本部分和文本框的初始状态一致Combo1.Text="黑色"Combo2.Text="白色"Combo3.Text="宋体"Combo4.Text="10"EndSubPrivateSubCombo1_Click()‘Combo1中选择某种颜色SelectCaseCombo1.TextCase"黑色"Text1.ForeColor=vbBlackCase"白色"Text1.ForeColor=vbWhiteCase"红色"Text1.ForeColor=vbRedCase"绿色"Text1.ForeColor=vbGreenCase"蓝色"Text1.ForeColor=vbBlueEndSelectEndSub35PrivateSubCombo2_Click()‘Combo2中选择某种颜色SelectCaseCombo2.TextCase"黑色"Text1.BackColor=vbBlackCase"白色"Text1.BackColor=vbWhiteCase"红色"Text1.BackColor=vbRedCase"绿色"Text1.BackColor=vbGreenCase"蓝色"Text1.BackColor=vbBlueEndSelectEndSub36PrivateSubCombo3_Click()‘Combo3中选择某种字体Text1.Font=Combo3.TextEndSubPrivateSubCombo4_Click()

‘运行时既可以从下拉列表中选择字号，也可以直接在其文本编辑域输入字号Text1.FontSize=Val(Combo4.Text)EndSub37如果在Combo4中直接输入字号并按下Enter键，也可以改变字号，则需要编写如下代码：PrivateSubCombo4_KeyUp(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13Then'如果在Combo4中按下了Enter键IfVal(Combo4.Text)>0Then'如果输入的值为正数Text1.FontSize=Val(Combo4.Text)EndIfEndIfEndSub38如果在Combo4中直接输入字号并将焦点移开，也可以改变字号，则需要编写如下代码：PrivateSubCombo4_LostFocus()IfVal(Combo4.Text)>0Then'如果输入的值为正数Text1.FontSize=Val(Combo4.Text)EndIfEndSub39属于Timer类，该控件可用于实现每隔一定的时间间隔自动执行指定的操作。1．属性（1）Enabled属性：True——定时器有效，启动定时器的计时功能，False——停止定时器的计时功能。（2）Interval属性：定时时间间隔，以ms为单位。最大值为65535ms，等于1分钟多一些。8.8定时器402．事件定时器只有一个Timer事件，每当计时时间到达Interval属性的设置值时，触发Timer事件。【例8-5】使用定时器设计简单的动画，让眼睛产生眨眼的效果。在窗体上画一个Image控件；画一个定时器控件Timer1，设置其Interval属性为1000（相当于1秒），则每隔1秒会自动执行其Timer事件过程。准备两幅图像，本例使用两个位图文件“\鸡蛋睁眼.bmp”和“\鸡蛋闭眼.bmp”。41在窗体模块的通用声明段声明两个模块级变量f1和f2：Dimf1AsInteger,f2AsInteger在窗体的Load事件过程中对f1和f2进行初始化：PrivateSubForm_Load()f1=0:f2=0EndSub通过f1的值来决定当前是显示睁眼图像还是闭眼图像，实现每隔1秒交替显示另一幅图像，产生眨眼的效果。42PrivateSubTimer1_Timer()'每隔一秒交替显示另一幅图像,产生眨眼的效果Iff1=0ThenImage1.Picture=LoadPicture(App.Path&"\鸡蛋睁眼.bmp")f1=1'改变f1的值，使下次运行本事件过程时显示闭眼图像ElseImage1.Picture=LoadPicture(App.Path&"\鸡蛋闭眼.bmp")f1=0'改变f1的值，使下次运行本事件过程时显示睁眼图像EndIfEndSub43在Image1控件的DblClick事件过程中，根据当前f2的值决定是启动定时器还是关闭定时器：PrivateSubImage1_DblClick() '双击图像框启动或停止眨眼Iff2=0ThenTimer1.Enabled=False '停止眨眼f2=1'改变f2的值，使下次双击图像框时继续眨眼ElseTimer1.Enabled=True'启动定时器，继续眨眼f2=0'改变f2的值，使下次双击图像框时停止眨眼EndIfEndSub44水平滚动条和垂直滚动条分别属于HScrollBar类和VScrollBar类。两种滚动条除了显示方向不同外，结构和操作方式完全一样。8.9滚动条1．属性（1）Value属性：表示滚动块的当前位置值，该值始终介于Max和Min属性值之间。45（2）Max属性：滚动条所能表示的最大值。当滚动块移动到滚动条的最右端或底部时，滚动条的Value属性值等于Max值。（3）Min属性：滚动条所能表示的最小值。当滚动块移动到滚动条的最左端或顶部时，滚动条的Value属性值等于Min值。（4）LargeChange属性：当用户按PageUp或PageDown键时，或单击滚动块和滚动箭头之间的区域时，滚动条Value属性值的改变量。（5）SmallChange属性：当用户按键盘上的箭头键←↑→↓时，或单击滚动箭头时，滚动条的Value属性值的改变量。462．事件（1）Change事件：当滚动块移动后或在代码中改变Value属性值后产生该事件。（2）Scroll事件：当在滚动条内拖动滚动块时产生该事件。【例8-6】使用滚动条浏览大幅图像。VScroll1Picture2Picture1HScroll147计算滚动条的滚动幅度：PrivateSubForm_Load()Picture2.Picture=LoadPicture(App.Path&"\大马.bmp")IfPicture2.Width<Picture1.ScaleWidthThen'如果图像宽度小于Picture1宽度Picture2.Left=(Picture1.ScaleWidth-Picture2.Width)\2 HScroll1.Visible=False