vb第4章窗体与常用内部控件3

4.12 第 四 章 窗 体 与 常 用 内 部 控 件

组合框(ComboBox)

1. 作用: 提供列表(可折叠)、文本输入 2. 属性 Style—指定组合框的显示形式 0—下拉组合框(折叠) 1—简单组合框(不折叠) 2—下拉列表框(不能修改Text属性) 3. 事件 组合框的事件与Style属性有关。 Style为0时: 响应Click、Change、DropDown事件 Style为1时: 响应Click、DblClick、Change事件 Style为2时: 响应Click、DropDown事件1

第 4. 方法 四 AddItem: 向组合框中添加新的项目 章 <对象名>.AddItem <项目>[,<索引>] 窗 RemoveItem: 从组合框中移除项目 体 与 <对象名>.RemoveItem <索引> 常 Clear: 清除组合框中的所有项目 用 <对象名>.Clear 内 部 控 件2

第 四 章 窗 体 与 常 用 内 部 控 件

【例题 】在窗体上放4个组合框，用于选择微机配 置，包括选择机型、CPU主频、硬盘、内存。运 行时，在选择了各项内容之后，单击“确定”按 钮显示所选择的机器配置。

Style=1

Style=2

Style=2

Style=0

第 四 章 窗 体 与 常 用 内 部 控 件

Private Sub Form_Load() Combo1.Text = Combo1.List(0) Combo2.Text = Combo2.List(0) Combo3.Text = Combo3.List(0) Combo4.Text = Combo4.List(0) End Sub Private Sub Command1_Click() Picture1.Cls Picture1.Print "您选择的配置是:" Picture1.Print "机型:"; Combo1.Text Picture1.Print "CPU:"; Combo2.Text Picture1.Print "硬盘:"; Combo3.Text Picture1.Print "内存:"; Combo4.Text End Sub

4.13 第 四 章 窗 体 与 常 用 内 部 控 件

定时器(Timer)

1. 作用:周期性地执行某功能、运行时不可见 2. 属性 Enabled: 将Enabled设置为False时将停止定时器 的计时操作 Interval: 计时事件执行的时间间隔(毫秒) 3. 事件 Timer事件: 每当计时时间到时产生Timer事件 注: 一个计时器的最大计时时间为65535毫秒 , 等于 1 分钟多一些。如果最大计时时间大于该 值，可以使用多个计时器。5

【例题 】在窗体上放置一个红色圆。 单击“增大”按钮每隔1秒直径自动增大200Twips; 单击“缩小”按钮每隔1秒直径自动缩小200Twips; 第 四 单击“停止”按钮停止增大或缩小。 章 窗 体 Shape1 与 常 用 内 部 控 件 Timer1属性: Enabled—False Timer1

Cmd1Cmd2 Cmd3

Interval—10006

第 四 章 窗 体 与 常 用 内 部 控 件

Dim Flag As Integer '增加/减小标志位 Private Sub Cmd1_Click() Timer1.Enabled = True Flag = 1 End Sub Private Sub Cmd2_Click() Timer1.Enabled = True Flag = 0 End Sub Private Sub Cmd3_Click() Timer1.Enabled = False End Sub

第 四 章 窗 体 与 常 用 内 部 控 件

Private Sub Timer1_Timer() If Flag = 0 Then If Shape1.Width<200 Or Shape1.Height<200 Then MsgBox "不能再缩小", , "注意" Timer1.Enabled = False Exit Sub ' 结束本事件过程 End If Shape1.Width = Shape1.Width - 200 Shape1.Height = Shape1.Height - 200 Else Shape1.Width = Shape1.Width + 200 Shape1.Hei

ght = Shape1.Height + 200 End If End Sub 8

4.14

滚动条(HScrollBar、VScrollBar)

1. 作用:辅助显示内容较多的信息/数量速度指示器 第 四 2. 滚动条结构 章 滚动箭头 滚动箭头 滚动块 窗 3. 属性 体 LargeChange—单击滚动块和滚动箭头之间的区域时， 与 滚动条 Value 值的改变量。 常 SmallChange—单击滚动箭头时，滚动条的Value 值 用 的改变量。 内 部 Max-滚动条的 Value 属性最大值。 控 Min-滚动条的 Value 属性最小值。 件 Value—滚动条当前位置值，介于[Min ,Max]之间。 4. 事件 Change(单击时、Value改变时)、Scroll (拖动时) 9

【例题 】设计一水平滚动条，表示范围为1到 第 四 章 窗 体 与 常 用 内 部 控 件

100,要求: (1) 单击某按钮生成[1,100]之间的随机整数， 在滚动条上反映此随机数，同时在标签 上显示该值。 (2) 滚动条滚动时，标签内容能够及时反映 滚动条的当前值。HScroll1 Label3

Command110

第 四 章 窗 体 与 常 用 内 部 控 件

Private Sub Command1_Click() Randomize:X = Int(Rnd * 100 + 1) HScroll1.Value = X Label3.Caption = X End Sub Private Sub HScroll1_Change() Label3.Caption = HScroll1.Value End Sub Private Sub HScroll1_Scroll() Label3.Caption = HScroll1.Value End Sub

【例题 】在图片框Picture1上放置一个圆，在 第 四 章 窗 体 与 常 用 内 部 控 件

窗体上放一个水平滚动条HScroll1和一个垂 直滚动条VScroll1,如下图。运行时，拖动 滚动条可以使圆在图片框上随滚动条左右或 上下移动。移动范围限制在图片框内部。

Picture1

Shape1

VScroll1

HScroll1

第 四 章 窗 体 与 常 用 内 部 控 件

Private Sub Form_Load() HScroll1.Min = 0 HScroll1.Max = Picture1.ScaleWidth – _ Shape1.Width http://www.77cn.com.cnrgeChange = (Picture1.ScaleWidth – _ Shape1.Width) / 20 HScroll1.SmallChange = (Picture1.ScaleWidth – _ Shape1.Width) / 40 VScroll1.Min = 0 VScroll1.Max = Picture1.ScaleHeight – Shape1.Height http://www.77cn.com.cnrgeChange = (Picture1.ScaleHeight – _ Shape1.Height) / 20 VScroll1.SmallChange = (Picture1.ScaleHeight – _ Shape1.Height) / 40 Shape1.Left = 0 Shape1.Top = 0 End Sub 13

Private Sub HScroll1_Change() 第 四 章 窗 体 与 常 用 内 部 控 件

Shape1.Left = HScroll1.ValueEnd Sub Private Sub HScroll1_Scroll()

Shape1.Left = HScroll1.ValueEnd Sub

Private Sub VScroll1_Change()Shape1.Top = VScroll1.Value End Sub

Private Sub VScroll1_Scroll()Shape1.Top = VScroll1.Value

End Sub

第 四 章 窗 体 与 常 用 内 部 控 件

本章小结 1. 窗体 2. 控件的公共属性 Name Caption Enabled Visible Left Top Height Width BackColor ForeColor FontName FontSize FontBold FontItalic FontStrikethru、FontUnderline Font对象属性: Name Bold Size Bold Italic Underline Strikethrough 3. 命令按钮(CommondButton) 4. 文本框(TextBox) 5. 标签(Label)15

第 四 章 窗 体 与 常 用

内 部 控 件

6. 框架(Frame) : 作为容器 7. 图片框(PictureBox) 作为容器; 显示图像 Picture属性; LoadPicture函数; Cls、Print方法 8. 图像框(Image) 显示图像 Picture属性; LoadPicture函数; Cls方法 9. 选项按钮(OptionButton) Value属性、Click事件 10. 复选框(CheckBox) Value属性、Click事件16