第6章内部控件

1、V i s u a l B A S I C 程序设计程序设计1第第6 6章章常用控件常用控件本章要点本章要点: : 选项按钮、复选框选项按钮、复选框 列表框、组合框列表框、组合框 计时器、滚动条、框架计时器、滚动条、框架第六章第六章 常用内部控件常用内部控件组合框：组合框：组合了文本框和列表框的特性而形成的一种控件。组合了文本框和列表框的特性而形成的一种控件。组合框有组合框有3种式样：种式样：下拉式组合框、简单组合框、下拉式列表框下拉式组合框、简单组合框、下拉式列表框。其中两。其中两种下拉风格的组合框，只有单击下拉箭头时才会显示全部列表，这样就节种下拉风格的组合框，只有单击下拉箭头时才会显示全

2、部列表，这样就节省了窗体的空间，从而使得无法容纳列表框的地方可以很容易地容纳组合省了窗体的空间，从而使得无法容纳列表框的地方可以很容易地容纳组合框。框。注意：下拉式组合框与下拉式列表框的注意：下拉式组合框与下拉式列表框的区别区别在于后者不能输入列表中没有在于后者不能输入列表中没有的选项。的选项。6.5 6.5 组合框组合框( (ComboBox)ComboBox)第六章第六章 常用内部控件常用内部控件31. 作用作用: 提供列表提供列表(可折叠可折叠)、文本输入、文本输入2. 属性属性 List列表内容列表内容(Ctrl+Enter换行换行) Style外形外形 0下拉组合框下拉组合框(折叠折

3、叠) 1简单组合框简单组合框(不折叠不折叠) 2下拉列表框下拉列表框(不能修改不能修改Text属性属性) Text文本框内容文本框内容 ListIndex运行期运行期用，当前选定项目的索引用，当前选定项目的索引 索引从索引从0开始开始 ListCount列表部分项目的个数列表部分项目的个数 Sorted元素是否自动按顺序排序元素是否自动按顺序排序组合框组合框第六章第六章 常用内部控件常用内部控件43. 事件事件 组合框的事件与组合框的事件与Style属性有关。属性有关。 Style为为0时时: 响应响应Click、Change、DropDown事件事件 Style为为1时时: 响应响应Clic

4、k、DblClick、Change事件事件 Style为为2时时: 响应响应Click、DropDown事件事件4. 方法方法 AddItem: 向组合框中添加新的项目向组合框中添加新的项目 .AddItem , RemoveItem: 从组合框中移除项目从组合框中移除项目 .RemoveItem Clear: 清除组合框中的所有项目清除组合框中的所有项目 .Clear 第六章第六章 常用内部控件常用内部控件5【例【例6-5】在窗体上放在窗体上放4个组合框，用于选择微机配个组合框，用于选择微机配置，包括选择机型、置，包括选择机型、CPU主频、硬盘、内存。运主频、硬盘、内存。运行时，在选择了各项

5、内容之后，单击行时，在选择了各项内容之后，单击“确定确定”按按钮显示所选择的机器配置。钮显示所选择的机器配置。Style=1 Style=2 Style=2 Style=0 第六章第六章 常用内部控件常用内部控件6Private 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 Command1_Click() Picture1.Cls Pictu

6、re1.Print 您选择的配置是您选择的配置是: Picture1.Print 机型机型:; Combo1.Text Picture1.Print CPU:; Combo2.Text Picture1.Print 硬盘硬盘:; Combo3.Text Picture1.Print 内存内存:; Combo4.TextEnd Sub第六章第六章 常用内部控件常用内部控件76.6 6.6 定时器定时器( (Timer)Timer)1. 作用作用:周期性地执行某功能、运行时不可见周期性地执行某功能、运行时不可见2. 属性属性 Enabled: 将将Enabled设置为设置为False时将停止定时器

7、时将停止定时器 的计时操作的计时操作 Interval: 计时事件执行的时间间隔计时事件执行的时间间隔(毫秒毫秒)第六章第六章 常用内部控件常用内部控件3. 事件事件 Timer事件事件: 每当计时时间到时产生每当计时时间到时产生Timer事件事件注注: 一个计时器的最大计时时间为一个计时器的最大计时时间为65535毫秒毫秒 , 等于等于 1 分钟多一些。如果最大计时时间大于该分钟多一些。如果最大计时时间大于该值，可以使用多个计时器。如果每秒产生一个值，可以使用多个计时器。如果每秒产生一个Timer事件事件Interval应设为应设为1000。8第六章第六章 常用内部控件常用内部控件9【例【例

8、6-6】在窗体上放置一个红色圆。在窗体上放置一个红色圆。 单击单击“增大增大”按钮每隔按钮每隔1秒直径自动增大秒直径自动增大200Twips； 单击单击“缩小缩小”按钮每隔按钮每隔1秒直径自动缩小秒直径自动缩小200Twips； 单击单击“停止停止”按钮停止增大或缩小。按钮停止增大或缩小。Timer1属性属性: EnabledFalse Interval1000Command1Timer1Shape1Command2Command3第六章第六章 常用内部控件常用内部控件10Dim Flag As IntegerPrivate Sub Command1_Click() Timer1.Enable

9、d = True Flag = 1End SubPrivate Sub Command2_Click() Timer1.Enabled = True Flag = 0End SubPrivate Sub Command3_Click() Timer1.Enabled = False End Sub第六章第六章 常用内部控件常用内部控件11Private Sub Timer1_Timer() If Flag = 0 Then If Shape1.Width200 Or Shape1.Height200 Then MsgBox 不能再缩小不能再缩小, , 注意注意 Timer1.Enabled =

10、 False Exit Sub 结束本事件过程结束本事件过程 End If Shape1.Width = Shape1.Width - 200 Shape1.Height = Shape1.Height - 200 Else Shape1.Width = Shape1.Width + 200 Shape1.Height = Shape1.Height + 200 End IfEnd Sub第六章第六章 常用内部控件常用内部控件126.7 6.7 滚动条滚动条( (HScrollBarHScrollBar、VScrollBar)VScrollBar)1. 作用作用2. 滚动条结构滚动条结构滚动箭

11、头滚动箭头滚动块滚动块滚动箭头滚动箭头3. 属性属性 LargeChange单击滚动块和滚动箭头之间的区单击滚动块和滚动箭头之间的区域时，滚动条域时，滚动条 Value 值的改变量。值的改变量。 SmallChange单击滚动箭头时，滚动条的单击滚动箭头时，滚动条的Value 值的改变量。值的改变量。 Max滚动条的滚动条的 Value 属性最大值。属性最大值。 Min滚动条的滚动条的 Value 属性最小值。属性最小值。 Value滚动条当前位置值，介于滚动条当前位置值，介于Min ,Max之间。之间。第六章第六章 常用内部控件常用内部控件4.滚动条的事件滚动条的事件13滚动条常用的事件包括

12、以下两个：滚动条常用的事件包括以下两个：Scroll：只有鼠标拖动滚动块时才触发该事件。：只有鼠标拖动滚动块时才触发该事件。Change：只要滚动块位置发生变化（：只要滚动块位置发生变化（Value属性的属性的值改变），即触发该事件。值改变），即触发该事件。 第六章第六章 常用内部控件常用内部控件14【例【例6-7】设计一水平滚动条，表示范围为设计一水平滚动条，表示范围为1到到100，要求，要求: (1) 单击某按钮生成单击某按钮生成1，100之间的随机整数，之间的随机整数，在滚动条上反映此随机数，同时在标签上在滚动条上反映此随机数，同时在标签上显示该值。显示该值。(2) 滚动条滚动时，标签内

13、容能够及时反映滚滚动条滚动时，标签内容能够及时反映滚动条的当前值。动条的当前值。HScroll1Label3Command1第六章第六章 常用内部控件常用内部控件15Private Sub Command1_Click() Randomize:X = Int(Rnd * 100 + 1) HScroll1.Value = X Label3.Caption = XEnd SubPrivate Sub HScroll1_Change() Label3.Caption = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Label3.Captio

14、n = HScroll1.ValueEnd Sub第六章第六章 常用内部控件常用内部控件主要作用：显示图片、作为其他控件的容器、输出图形和文字。主要作用：显示图片、作为其他控件的容器、输出图形和文字。主要属性：主要属性： （1）Autosize属性设置为属性设置为True时，图片框能自动调整大小与显示的时，图片框能自动调整大小与显示的图片匹配，但图形大小不能改变。图片匹配，但图形大小不能改变。 （2）Picture属性：决定所显示的图形文件，默认属性属性：决定所显示的图形文件，默认属性 在设计时通过属性窗口修改在设计时通过属性窗口修改picture属性；属性； 在运行时装入图形通过在运行时装入

15、图形通过LoadPicture函数或赋值的方法；函数或赋值的方法； 装入图形：装入图形：Picture1.Picture = LoadPicture(“图形文件名图形文件名”) 装入另一图片框中的图形：装入另一图片框中的图形： Picture1.Picture=Picture2.Picture 删除图形：删除图形：Picture1.Picture = LoadPicture( ) 1. PictureBox(图片框图片框)6. 8 图片框和图像框图片框和图像框n图片框（图片框（PictureBox）和图像框（）和图像框（Image）都用于显示图形，可以）都用于显示图形，可以显示位图、图标、图元

16、文件中的图形，也可以显示显示位图、图标、图元文件中的图形，也可以显示GIF和和JPEG等格式等格式的图形文件。的图形文件。第六章第六章 常用内部控件常用内部控件2. Image(图像框图像框)作用：作用：图像框仅仅用来显示图像，比图片框占用更少的内存。图像框内不能图像框仅仅用来显示图像，比图片框占用更少的内存。图像框内不能存放其他控件。存放其他控件。属性：属性：Stretch属性属性=False，图像框可自动改变大小，以适应其中的图形。，图像框可自动改变大小，以适应其中的图形。 Stretch属性属性=True， 图形可自动调整尺寸，以适应图像框的大小。图形可自动调整尺寸，以适应图像框的大小。

17、3. PictureBox与与Image的区别的区别（1）PictureBox是父控件、是容器，而是父控件、是容器，而Image不是；不是；（2）PictureBox可以用可以用Print方法显示文本，而方法显示文本，而Image不能；不能；（3）显示图像时，）显示图像时，PictureBox比比Image占用内存多；占用内存多；（4）PictureBox用用AutoSize属性控制图片框的尺寸而自动适应图形的大小属性控制图片框的尺寸而自动适应图形的大小，Image用用Stretch属性对图片大小进行调整。属性对图片大小进行调整。第六章第六章 常用内部控件常用内部控件186.9 ActiveX

18、控件控件向工具箱中添加向工具箱中添加ActiveX控件的操作步骤控件的操作步骤:工程工程 部件部件 控件控件6.9.1 选项卡控件（选项卡控件（SSTab） 选项卡是一个容器控件，用来设计含有多个选项选项卡是一个容器控件，用来设计含有多个选项卡的界面。卡的界面。Microsoft Tabbed Dialog Control 6.06.9.2滑动器控件滑动器控件 滑动器（滑动器（Slider）是）是Windows公共控件之一。公共控件之一。 在部件对话框选择在部件对话框选择Microsoft Windows Common Control 6.0 , 将将9个个Windows公共控件添加到工具公共

19、控件添加到工具箱中。箱中。第六章第六章 常用内部控件常用内部控件19属性：属性：除与滚动条类似的除与滚动条类似的Max、Min、LargeChange、SmallChange、Value，还有如下属性：，还有如下属性：1.Orientation:滑动器的排列方向，滑动器的排列方向，0为水平方向，为水平方向，1为垂直方向。为垂直方向。2.TickStyle:设置滑动器上所显示的标志类型，设置滑动器上所显示的标志类型，043.TickFrequency:设置滑动器上标记的增量值。设置滑动器上标记的增量值。 标记个数标记个数=(Max-Min)/TickFrequency4.BorderStyle:

20、设置滑动器的边框类型。设置滑动器的边框类型。 0-None 无边框无边框 1-Fixed Single 单线边框单线边框第六章第六章 常用内部控件常用内部控件206.9.3进度条进度条(ProgressBar)作用：显示较长操作的进度。作用：显示较长操作的进度。属性：属性：Align:进度条位于窗体的位置，进度条位于窗体的位置，04。Height、决定进度条中小方块的大小和数量。为了、决定进度条中小方块的大小和数量。为了增加小方块的数量可减少增加小方块的数量可减少Height或增加或增加Width的的值。值。BorderStyle、Max、Min、Value第六章第六章 常用内部控件常用内部控

21、件21例：在窗体上显示用计时器控件控制进度条的进度例：在窗体上显示用计时器控件控制进度条的进度Private Sub Form_Load()Timer1.Interval = 100ProgressBar1.Height = 500End SubPrivate Sub Timer1_Timer()Static counter As IntegerCounter=counter + 1BeepProgressBar1.Value = counterEnd Sub第六章第六章 常用内部控件常用内部控件226.10 焦点和焦点和Tab键序键序6.10.1 设置焦点设置焦点 当前可以接收用户输入的对象

22、称为具有焦点。当前可以接收用户输入的对象称为具有焦点。 注意注意: 并非所有控件都可以接收焦点。而且并非所有控件都可以接收焦点。而且, 只有只有Enable和和Visible属性为属性为True时，才可以接时，才可以接收焦点。收焦点。事件事件 GotFocus 发生在对象得到焦点时发生在对象得到焦点时 LostFocus 发生在对象失去焦点时发生在对象失去焦点时对象何时得到焦点对象何时得到焦点 运行时选择对象运行时选择对象(鼠标、鼠标、Tab键、访问键键、访问键) 在代码中使用在代码中使用SetFocus方法方法第六章第六章 常用内部控件常用内部控件236.10.2 Tab键序键序 指按指按T

23、ab键时光标在各个控件之间移动的顺序。键时光标在各个控件之间移动的顺序。 每个窗体都有自己的每个窗体都有自己的Tab键序。键序。 默认键序与控件的建立次序一致。默认键序与控件的建立次序一致。 TabIndex属性属性: 决定键序决定键序 改变改变TabIndex属性可以改变键序属性可以改变键序 TabStop属性属性: 决定是否能够使用决定是否能够使用 TAB 键将焦点键将焦点移动到当前对象。移动到当前对象。第六章第六章 常用内部控件常用内部控件24本章小结本章小结1. 控件的公共属性控件的公共属性 Name Caption Enabled Visible Left Top Height Width BackColor ForeColor FontName FontSize FontBold FontItalic FontStrikethru、FontUnderline Font对象属性对象属性: Name Bold Size Bold Italic Unde