学习vb语言程序设计第7章

1、1第7章常用内部控件本章要点: 框架、图片框、图像框 选项按钮、复选框 列表框、组合框 计时器、滚动条27.1 控件的公共属性1. Name属性(1) 运行时是只读的(2) 缺省名称(3) 以字母开始，最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格(允许汉字)(4) 控件数组的名称: Name(Index)2. Caption属性(1) 加访问键: &字母(2) Label控件标题大小没有限制。其他有标题的控件，标题大小限制为255个字符。(3) 注意与Name属性、Text属性的区别33. Enabled属性 决定控件是否能够对用户产生的事件作出响应 4. Visible属

2、性 注意: 如果在属性窗口中将控件的Visible属性设置为False，则控件在设计窗体上仍是可见的，仅在运行时才不可见。【例7-1】Visible属性和Enabled属性的比较4“显示图像”按钮Command1的Click事件过程如下: Private Sub Command1_Click() Image1.Visible = True Command1.Enabled = False Command2.Enabled = True End Sub“隐藏图像”按钮Command2的Click事件过程如下: Private Sub Command2_Click() Image1.Visible

3、 = False Command1.Enabled = True Command2.Enabled = FalseEnd Sub55. Left、Top、Height、Width属性 对于窗体，这些属性总是以缇为单位表示；对于控件，它们的度量单位取决于其容器的坐标系统6. BackColor、ForeColor属性(1) 在Label和Shape控件中，如果BackStyle属性的设置值为0(透明)，则忽略BackColor属性。(2) 如果在Form对象或PictureBox控件中设置BackColor属性，则所有已经打印的文本或用绘图方法绘制的图形都将被擦除掉。(3) 设置ForeColo

4、r属性值不会影响已经打印的文本或绘制的图形。7. FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性68. Font对象属性格式: .Font. : Name、Size、Bold、Italic、 Underline、Strikethrough例: Form1.Font.Size = 14 Command1.Font.Italic = True77.2 框架(Frame)1. 作用: 作为容器，对控件进行分组2. 如何将控件放在容器中 选中容器，在容器中直接画 选中容器，粘贴控件3. 如何检查控件是否在容器中

5、拖动容器，控件随容器移动4. 选中框架中的多个控件: Ctrl+拖动5. 删除容器时，其中的控件随之被删除6. 框架的常用属性 Caption: Font: ForeColor: Backcolor: Enabled:为False时框架中的控件不可用87.3 图片框(PictureBox)1. 作用 作为容器，对控件进行分组 显示图像2. 如何显示图像: 设置Picture属性 在属性窗口中设置 对象名.Picture=LoadPicture(图形文件名)3. 如何清除图像 在属性窗口中删除Picture属性内容 对象名.Picture=LoadPicture() (也清除文字)4. 打印与清

6、除文字 打印:对象名.Print 清除:对象名.Cls5. 特点 自动调整控件大小以适应图像: AutoSize=True 不能延伸图形以适应控件的大小。97.4 图像框(Image)1. 作用:显示图像2. 如何显示图像: 设置Picture属性 在属性窗口中设置 对象名.Picture=LoadPicture(图形文件名)3. 如何清除图片 在属性窗口中删除Picture属性内容 对象名.Picture=LoadPicture()4. 特点: 可以自动调整控件大小以适应图像: 设 Stretch=False 可以延伸图形以适应控件的大小: 设 Stretch=True107.5 选项按钮(

7、OptionButton)1. 作用: 多选一(放在窗体上、或放在其他容器中)2. 属性 (1) Value: True选中 False未选中 (2) Alignment属性: 决定文本的对齐方式 (3) Style控制外观3. 事件 Click事件使选项按钮从未选择变成选择状态时 (单击鼠标改变、代码改变 )11【例7-2】设计如下图所示的界面，用选项按钮设置文本框的文字颜色和背景颜色。Option1Option2Value为True的两种显示方式Style为1Style为0Option3Option4Option5Option612Private Sub Option1_Click() T

8、ext1.ForeColor = vbBlackEnd SubPrivate Sub Option2_Click() Text1.ForeColor = vbYellowEnd SubPrivate Sub Option3_Click() Text1.ForeColor = vbRedEnd SubPrivate Sub Option4_Click() Text1.BackColor = vbWhiteEnd SubPrivate Sub Option5_Click() Text1.BackColor = vbGreenEnd SubPrivate Sub Option6_Click() Te

9、xt1.BackColor = vbBlueEnd Sub137.6 复选框(CheckBox)1. 作用 多选一或多选多(放在窗体上或其他容器中)2. 属性 (1) Value 0未选中 1选中 2灰度状态(常用于表示不确定或部分选中) (2) Alignment属性: 决定文本的对齐方式 (3) Style: 控制外观3. 事件 Click事件14【例7-3】设计界面如下图所示，用复选框设置文本框的文字样式与效果。Check1Check2Check3Check415Private Sub Check1_Click() Text1.FontBold = Check1.ValueEnd Sub

10、Private Sub Check2_Click() Text1.FontItalic = Check2.ValueEnd SubPrivate Sub Check3_Click() Text1.FontStrikethru = Check3.ValueEnd SubPrivate Sub Check4_Click() Text1.FontUnderline = Check4.ValueEnd Sub167.7 列表框(ListBox)1. 作用:提供选项列表、内容多时自动出现滚动条2. 属性 Style外形(常规形式、复选框形式) List列表内容。 设计时: 用Ctrl+换行; 运行时:

11、List(i)表示第i项i从0开始 Columns列表形式 0:垂直单列、1:水平单列、1:水平多列 Text只读、运行期用，获取当前选择项目的值 ListIndex运行期用，当前选定项目的索引(0) 如果未选定项目，则 ListIndex 值为 -1 ListCount列表部分项目的个数 Sorted元素是否自动按字母顺序排序 Selected运行期用，用于选择某项 如List1.Selected(3)=True 选择第4项17MultiSelect: 0缺省值，不允许复选。 1鼠标单击、按空格键在列表中选择或取消选择 2 按下 Shift并单击鼠标或按下 Shift 以及一个箭头键将在以前

12、选中项的基础上扩展选择到当前选中项。按下 Ctrl 并单击鼠标在列表中选择或取消选择项。 3. 方法 AddItem向列表框中添加新的项目 .AddItem , RemoveItem从列表框中移除项目 .RemoveItem Clear清除所有列表的 .Clear18【例7-4】设计如下图所示的界面，左列表框列出了某数据表格的各列(字段)名称。将左列表框中选择的书名移动到右列表框中将右列表框中选择的书名移动到左列表框中将左列表框中的所有书名移动到右列表框中将右列表框中的所有书名移动到左列表框中List1List219(1) 将左列表框中选择的字段移动到右列表框中 Private Sub Com

13、mand1_Click() If List1.ListCount = 0 Then MsgBox 列表中已没有可选的字段, , 注意 Exit Sub End If If List1.ListIndex = 0 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex Else MsgBox 请先在列表中选择某字段, , 注意 End If End Sub20(2) 将右列表框中选择的字段移动到左列表框中。 Private Sub Command2_Click() If List2.ListCount = 0 Then Msg

14、Box 列表中已没有可选的字段, , 注意 Exit Sub End If If List2.ListIndex = 0 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndex Else MsgBox 请先在列表中选择某字段, , 注意 End If End Sub21(3) 将左列表框中的所有字段移动到右列表框中 Private Sub Command3_Click() For i = 0 To List1.ListCount - 1 List1.Selected(0) = True List2.AddItem List1

15、.Text List1.RemoveItem 0 Next i End Sub(4) 将右列表框中的所有字段移动到左列表框中 Private Sub Command4_Click() For i = 0 To List2.ListCount - 1 List2.Selected(0) = True List1.AddItem List2.Text List2.RemoveItem 0 Next i End Sub227.8 组合框(ComboBox)1. 作用: 提供列表(可折叠)、文本输入2. 属性 List列表内容(Ctrl+Enter换行) Style外形 0下拉组合框(折叠) 1简单组

16、合框(不折叠) 2下拉列表框(不能修改Text属性) Text文本框内容 ListIndex运行期用，当前选定项目的索引 索引从0开始 ListCount列表部分项目的个数 Sorted元素是否自动按顺序排序233. 事件 组合框的事件与Style属性有关。 Style为0时: 响应Click、Change、DropDown事件 Style为1时: 响应Click、DblClick、Change事件 Style为2时: 响应Click、DropDown事件4. 方法 AddItem: 向组合框中添加新的项目 .AddItem , RemoveItem: 从组合框中移除项目 .RemoveIte

17、m Clear: 清除组合框中的所有项目 .Clear 24【例7-5】在窗体上放4个组合框，用于选择微机配置，包括选择机型、CPU主频、硬盘、内存。运行时，在选择了各项内容之后，单击“确定”按钮显示所选择的机器配置。Style=1 Style=2 Style=2 Style=0 25Private Sub Form_Load() Combo1.Text = Combo1.List(0) Combo2.Text = Combo2.List(0) Combo3.Text = Combo3.List(0) Combo4.Text = Combo4.List(0)End SubPrivate Sub

18、 Command1_Click() Picture1.Cls Picture1.Print 您选择的配置是: Picture1.Print 机型:; Combo1.Text Picture1.Print CPU:; Combo2.Text Picture1.Print 硬盘:; Combo3.Text Picture1.Print 内存:; Combo4.TextEnd Sub267.9 定时器(Timer)1. 作用:周期性地执行某功能、运行时不可见2. 属性 Enabled: 将Enabled设置为False时将停止定时器 的计时操作 Interval: 计时事件执行的时间间隔(毫秒)3.

19、 事件 Timer事件: 每当计时时间到时产生Timer事件注: 一个计时器的最大计时时间为65535毫秒 , 等于 1 分钟多一些。如果最大计时时间大于该值，可以使用多个计时器。27【例7-6】在窗体上放置一个红色圆。 单击“增大”按钮每隔1秒直径自动增大200Twips； 单击“缩小”按钮每隔1秒直径自动缩小200Twips； 单击“停止”按钮停止增大或缩小。Timer1属性: EnabledFalse Interval1000Cmd1Cmd2Cmd3Timer1Shape128Dim Flag As IntegerPrivate Sub Cmd1_Click() Timer1.Enabl

20、ed = True Flag = 1End SubPrivate Sub Cmd2_Click() Timer1.Enabled = True Flag = 0End SubPrivate Sub Cmd3_Click() Timer1.Enabled = False End Sub29Private Sub Timer1_Timer() If Flag = 0 Then If Shape1.Width200 Or Shape1.Height200 Then MsgBox 不能再缩小, , 注意 Timer1.Enabled = False Exit Sub 结束本事件过程 End If Sh

21、ape1.Width = Shape1.Width - 200 Shape1.Height = Shape1.Height - 200 Else Shape1.Width = Shape1.Width + 200 Shape1.Height = Shape1.Height + 200 End IfEnd Sub307.10 滚动条(HScrollBar、VScrollBar)1. 作用2. 滚动条结构滚动箭头滚动块滚动箭头3. 属性 LargeChange单击滚动块和滚动箭头之间的区域时，滚动条 Value 值的改变量。 SmallChange单击滚动箭头时，滚动条的Value 值的改变量。

22、Max滚动条的 Value 属性最大值。 Min滚动条的 Value 属性最小值。 Value滚动条当前位置值，介于Min ,Max之间。4. 事件 Change(单击时、Value改变时)、Scroll (拖动时) 31【例7-7】设计一水平滚动条，表示范围为1到100，要求: (1) 单击某按钮生成1，100之间的随机整数，在滚动条上反映此随机数，同时在标签上显示该值。(2) 滚动条滚动时，标签内容能够及时反映滚动条的当前值。HScroll1Label3Command132Private Sub Command1_Click() Randomize:X = Int(Rnd * 100 +

23、1) HScroll1.Value = X Label3.Caption = XEnd SubPrivate Sub HScroll1_Change() Label3.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Label3.Caption = HScroll1.ValueEnd Sub33【例7-8】在图片框Picture1上放置一个圆，在窗体上放一个水平滚动条HScroll1和一个垂直滚动条VScroll1，如下图。运行时，拖动滚动条可以使圆在图片框上随滚动条左右或上下移动。移动范围限制在图片框内部。Pictur

24、e1Shape1HScroll1VScroll134Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = Picture1.ScaleWidth _ Shape1.Width HScroll1.LargeChange = (Picture1.ScaleWidth _ Shape1.Width) / 20 HScroll1.SmallChange = (Picture1.ScaleWidth _ Shape1.Width) / 40 VScroll1.Min = 0 VScroll1.Max = Picture1.ScaleHeight

25、Shape1.Height VScroll1.LargeChange = (Picture1.ScaleHeight _ Shape1.Height) / 20 VScroll1.SmallChange = (Picture1.ScaleHeight _ Shape1.Height) / 40 Shape1.Left = 0 Shape1.Top = 0End Sub35Private Sub HScroll1_Change() Shape1.Left = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Shape1.Left = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change() Shape1.Top = VScroll1.ValueEnd SubPrivate Sub VScroll1_Scroll() Sha