第07章 Visual Basic的标准控件.docx

1、第07章 Visual Basic的标准控件第7章 Visual Basic的标准控件7.1 选择控件7.1.1 单选按钮组成选项组打开一个，关闭其余用框架分组1. 属性属 性含 义Name名称Caption标题Alignment0或vbLeftJustify，控件左，标题右1或vbRightJustify，控件右，标题左ValueTrue被选中，False未被选中Style0或vbButtonStandard，标准样式1或vbButtonGraphical，图形样式2事件常用事件为Click例7.1 控制命令按钮字体大小窗体、1个命令按钮、4个单选按钮（其中两个图形样式）单选按钮Click事

2、件代码：Private Sub Option1_Click() Command1.FontSize = 12End SubPrivate Sub Option2_Click() Command1.FontSize = 16End SubPrivate Sub Option3_Click() Command1.FontSize = 18End SubPrivate Sub Option4_Click() Command1.FontSize = 20End Sub7.1.2 复选框可在一组复选框中选择一个或多个Value属性：0未被选中，1被选中，2被禁用Click事件改变状态例7.2 控制文本的

3、显示方式控件及属性设置：控件NameCaptionAlignmentValueStyle文本框Text1无2无无复选框Check1粗体字1True0复选框Check2斜体字0False0复选框Check30False1复选框Check4删除线0False1Text1的MultiLine属性设置为TrueCheck3控件的Picture属性引用“下划线”图片编写如下事件过程：Private Sub Form_Load() Text1.FontName = 宋体 Text1.Text = 离离原上草， + Chr(13) + Chr(10) + 一岁一枯荣。 + _ Chr(13) + Chr(1

4、0) + 野火烧不尽， + Chr(13) + Chr(10) + 春风吹又生。End SubPrivate Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd SubPrivate Sub Check3_

5、Click() If Check3.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd SubPrivate Sub Check4_Click() If Check4.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End IfEnd Sub7.1.3 列表框提供列表式的数据供用户选择1. 属性属 性含 义Name名称Columns列表框的列数（0单列，1多列）List列表

6、项数组，可通过下标（从0开始）访问ListCount列表项目的数量ListIndex已选中项目在列表框中的索引值（从0开始）MultiSelect用来设置一次可以选择的项目数0只能选择一项1可以选择多项2可以选择指定范围内的表项SelectedBoolean数组元素值为True被选中、False未被选中SelCount列表框中所选项目的数量Sorted列表框中的项目是否排序（True、False）Style0标准形式，1复选框形式Text最后一次选中的项目的文本2. 事件和方法（1）Click事件触发：鼠标单击、列表框的ListIndex属性被改变（2）DblClick事件触发：鼠标双击列表项

7、（3）AddItem方法向列表框加入数据项格式：列表框.AddItem 数据项，索引值不指定索引值，加到末尾（4）Clear方法删除列表框的全部数据项（5）RemoveItem方法删除列表框中指定的项目格式：列表框.RemoveItem 索引值3. 应用举例例7.3 向列表框中添加数据项在窗体中加1个文本框、1个命令按钮、3个列表框列表框及其属性设置：NameColumnsListMultiSelectSortedStyleList10单列星期一星期二星期三星期四星期五星期六星期日0单行True升序0标准List21空1False0List31空0False1编写程序代码：Private Su

8、b Form_Load() List1.FontSize = 10 List2.FontSize = 10 List3.FontSize = 10 List2.List(0) = 计算机学院 List2.List(1) = 数学学院 List2.List(2) = 中文学院 List2.List(3) = 外国语学院 List2.List(4) = 信息学院 List2.List(5) = 管理学院 List3.AddItem 吉林大学 List3.AddItem 东北大学, 0 List3.AddItem 湖南大学 List3.AddItem 武汉大学, 1 List3.AddItem 南京

9、大学 List3.AddItem 天津大学, 2End SubPrivate Sub Command1_Click() Text1.Text = List1.Text For i = 0 To List2.ListCount - 1 If List2.Selected(i) = True Then Text1.Text = Text1.Text + + List2.List(i) End If Next i For j = 0 To List3.ListCount - 1 If List3.Selected(j) = True Then Text1.Text = Text1.Text + +

10、List3.List(j) End If Next jEnd Sub例7.4 向列表框中添加和删除数据项窗体控件及其属性：控件NameCaptionColumnsSortedStyle标签Label1请输入数据项：无 无无命令按钮Command1添加无无0文本框Text1无无无无列表框List1无0False0列表框List2无0False1编写事件过程：Private Sub Form_Load() List1.List(0) = 计算机学院 List1.List(1) = 数学学院 List1.List(2) = 中文学院 List1.List(3) = 外国语学院 List1.List(

11、4) = 信息学院 List1.List(5) = 管理学院End SubPrivate Sub List1_DblClick() List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command1_Click() s$ = Text1.Text List1.AddItem s$ Text1.Text = End Sub7.1.4 组合框兼有列表框和文本框的功能1. 属性列表框的属性基本上都适用于组合框，但是Text和Style有差别（1）Text属性选择的文本或直接从编辑区输入的文本（2）S

12、tyle属性0下拉式组合框（Dropdown ComboBox），可输入、选择。1简单组合框（Simple ComboBox），由文本编辑区和标准列表框组成。2下拉式列表框（Dropdown ListBox），只能选择、不能输入。2. 事件和方法简单组合框，可响应DblClick事件下拉式组合框、下拉式列表框，可响应Click和DropDown事件可使用AddItem、Clear和RemoveItem方法，与列表框相同3. 应用举例例7.5 从组合框中选择信息，并输出到文本框中控件及属性设置：控件NameCaptionStyle标签Label1请选择学校：无标签Label2请选择院系：无命令按

13、钮Command1确定0命令按钮Command2取消0文本框Text1无无组合框Combo1无0组合框Combo2无1编写代码：Private Sub Form_Load() Combo1.AddItem 吉林大学 Combo1.AddItem 东北大学 Combo1.AddItem 武汉大学 Combo1.AddItem 南京大学 Combo1.AddItem 天津大学 Combo2.AddItem 计算机学院 Combo2.AddItem 外国语学院 Combo2.AddItem 管理学院 Combo2.AddItem 教育学院 Combo2.AddItem 音乐学院End SubPriv

14、ate Sub Command1_Click() Text1.Text = 您选择的是 + Combo1.Text + + Combo2.TextEnd SubPrivate Sub Command2_Click() EndEnd Sub7.2 图形控件7.2.1 图像框图像框（Image）可显示图片，但无法进行绘图操作1. 属性属 性含 义Name名称Picture加载的图形文件StretchTrue图形适应图像框的大小False图像框适应图形的大小2. 图形文件的装入设计阶段：【方法1】用Picture属性【方法2】用剪贴板把图形粘贴到图像框内运行阶段：用LoadPicture函数例：Im

15、age1.Picture = LoadPicture(d:vbGraphics001.jpeg) 加载图形Image1.Picture = LoadPicture() 删除原有图形例7.6控件及属性：控件NameCaptionStretch命令按钮Command1装载图片无命令按钮Command2删除图片无图像框Image1无True图像框Image2无True编写事件过程：Private Sub Command1_Click() Image1.Picture = LoadPicture(D:p1.jpg) Image2.Picture = LoadPicture(D:p2.jpg)End S

16、ubPrivate Sub Command2_Click() Image1.Picture = LoadPicture() Image2.Picture = LoadPicture()End Sub7.2.2 图片框图片框（PictureBox）是容器控件可显示图片、绘制图形、通过Print方法接收文本1. 属性图像框的属性大都适用于图片框图片框不具备Stretch属性CurrentX和CurrentY只能在运行期间设置输出信息的坐标 2. 图形文件的装入与图像框相同例7.7 向图片框中加载图片，显示文本。窗体上放入两个图片框，两个命令按钮和一个文本框。编写事件过程：Private Sub F

17、orm_Load() Form1.Caption = 图片框应用 Command1.Caption = 装载图片 Command1.FontSize = 14 Command2.Caption = 显示文本 Command2.FontSize = 14 Text1.Text = Text1.FontName = 宋体 Text1.FontSize = 14 Picture2.FontSize = 16 Picture2.FontName = 隶书End SubPrivate Sub Command1_Click() Picture1.Picture = LoadPicture(D:p1.jpg

18、)End SubPrivate Sub Command2_Click() Picture2.Cls Picture2.CurrentX = 200 Picture2.CurrentY = 300 Picture2.Print Text1.TextEnd Sub7.2.3 直线和形状用来美化界面没有可触发的事件1. 常用属性属 性含 义Name直线Line或形状的名称ShapeX1、Y1、X2、Y2直线两个端点的坐标Top、Left、Height、Width形状的位置BorderColor直线或形状的颜色FillColor形状的内部填充颜色BorderWidth直线或形状边界线的宽度Border

19、Style直线或形状边界线的线型BackStyle形状是否被指定的颜色填充FillStyle形状内部的填充图案Shape形状的几何图形例7.8 在窗体上显示图形和线条在窗体上放7个直线控件和6个形状控件编写事件过程：Private Sub Form_Click() Line1.BorderStyle = 0 Line2.BorderStyle = 1 Line3.BorderStyle = 2 Line4.BorderStyle = 3 Line5.BorderStyle = 4 Line6.BorderStyle = 5 Line7.BorderStyle = 6 Shape1.Shape

20、= 0 Shape2.Shape = 1 Shape3.Shape = 2 Shape4.Shape = 3 Shape5.Shape = 4 Shape6.Shape = 5 Shape1.FillStyle = 2 Shape2.FillStyle = 3 Shape3.FillStyle = 4 Shape4.FillStyle = 5 Shape5.FillStyle = 6 Shape6.FillStyle = 7End Sub7.3 滚动条用途：改变范围、设置数值1. 滚动条的结构三部分：两个滚动箭头、一个滚动框2. 滚动条的属性属性含义Name名称Max最大值。默认32767Mi

21、n最小值。默认0Value当前位置。默认0SmallChange按下两端的方向按钮时，Value的变化量LargeChange按下非滚动框的空白区域时，Value的变化量3. 滚动条的事件Change：滚动条的值改变Scroll：用鼠标拖动滚动框时（按下滚动条的空白部分或方向按钮时，Scroll事件不会发生）例7.9 利用滚动条移动设置文本框中文字的颜色。（1）在窗体中添加三个标签，一个文本框，三个滚动条。（2）将三个标签Caption属性分别设置为：红、绿、蓝。（3）编写事件过程：Private Sub Form_Load() Form1.Caption = 滚动条应用 Text1.Text

22、 = 利用滚动条改变颜色 HScroll1.Max = 255 HScroll2.Max = 255 HScroll3.Max = 255 HScroll1.SmallChange = 2 HScroll2.LargeChange = 10End SubPrivate Sub HScroll1_Change() Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Change() Text1.ForeColor = RGB(HScroll1.Value,

23、 HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Change() Text1.ForeColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll1_Scroll() HScroll1_ChangeEnd SubPrivate Sub HScroll2_Scroll() HScroll2_ChangeEnd SubPrivate Sub HScroll3_Scroll() HScroll3_ChangeEnd Su

24、b7.4 计时器计时器（Timer）控件，可以每隔指定的时间间隔执行相应的事件。1. 属性与事件常用属性：Name名称Enabled决定Timer事件是否被触发（True、False）Interval设置Timer事件之间的间隔（毫秒）常用事件：Timer每隔固定的时间被触发2. 应用举例例7.10 数字时钟窗体上放一个标签控件，调整大小、位置，设置字体、字号、边框。再放一个计时器控件。编写事件过程：Private Sub Form_Load() Form1.Caption = 计时器控件应用 Timer1.Interval = 1000End SubPrivate Sub Timer1_Ti

25、mer() Label1.Caption = TimeEnd Sub例7.11 设计动画窗体上放3个图像控、1个定时器控件Image1和Image2的Picture属性分别加载图片，Visible属性设为FalseTimer1的Interval属性设置为500编写事件过程：Dim flag As BooleanPrivate Sub Timer1_Timer() If flag Then Image3.Picture = Image1.Picture flag = False Else Image3.Picture = Image2.Picture flag = True End IfEnd

26、Sub7.5 框 架框架（Frame）是一个容器控件，用来将窗体上的控件分组。1. 属性Name名称Caption标题文字2. 框架与控件的配置把控件放到框架内，框架和控件为一个整体先画框架，后放控件3. 应用举例例7.12 输入个人信息控件及属性设置：控件NameCaptionValue标签Label1姓名无标签Label2年龄无文本框Text1无无文本框Text2无无文本框Text3无无命令按钮Command1确定无命令按钮Command2取消无框架Frame1性别无框架Frame2学历无单选按钮Option1男True单选按钮Option2女False单选按钮Option3高中False

27、单选按钮Option4大专True单选按钮Option5本科False编写事件过程：Private Sub Form_Load() Form1.Caption = 个人基本资料 Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command1_Click() If Option1 Then m1$ = Option1.Caption If Option2 Then m1$ = Option2.Caption If Option3 Then m2$ = Option3.Caption If Option4 Then m2$ =

28、Option4.Caption If Option5 Then m2$ = Option5.Caption Text3.Text = Text1.Text + + Text2.Text + + m1$ + + m2$End SubPrivate Sub Command2_Click() EndEnd Sub7.6 焦点和Tab顺序焦点是指接收用户键盘或鼠标输入的能力Tab顺序是指按Tab键时，焦点在控件之间移动的顺序7.6.1 焦点（Focus）控件获得焦点时，触发GotFocus事件控件失去焦点时，触发LostFocus事件1. 焦点的设置（1）在程序代码中使用SetFocus方法（2）在程序运行时用鼠标单击该控件（3）在程序运行时