第六章 常用控件2.ppt

1、,第六章 常用控件,控件是包含在窗体中的对象。 控件同窗体一样，也是辅助用户快速完成界面设计的有效工具。 控件和窗体组成与用户交互的可视化部件。 VB通过控件箱（工具箱）提供了组成Windows应用程序窗口或对话框的诸如文本框、列表框、命令按钮等控件。 VB6.0标准版的控件如图：,Pointer指针 Picture图片框 Label标签 TextBox文本框 Frame框架 CommandButton命令按钮 CheckBox复选框 OptionButton单选框 ComboBox组合框 ListBox列表框 H.ScrollBar水平滚动条 V.ScrollBar垂直滚动条 Timer计时

2、器 DriveListBox驱动器列表框 DirListBox文件夹列表框 FileListBox文件列表框 Shape图形 Line线条 Image图像 Date数据控件 OLE控件,第六章 常用控件,1文本框（TextBox） 用于接收用户在框内输入的信息，或显示由程序提供的信息。,(2)方法 SetFocus：设置焦点;使光标指向指定的文本框。 (3)事件 Change：改变。 LostFocuse：失去焦点。 KeyPress：按下字符键。,常用控件,一、输入输出空件,常用控件,2标签（label） 标签常用作其他控件的说明。 (1) 属性 Font,Name,Caption,Alig

3、nment属性：同窗体和文本框 AutoSize属性： 自动缩放，即大小自适应属性。默认为“False“，若为“True“，根据文本大小自动调整标签宽度。 (2) 方法(没有值得掌握的) (3) 事件(没有值得掌握的),3命令按钮（CommandButton） 用来在窗体内添加命令按钮。运行时用户单击此按钮，则执行一段代码。 (1)属性 Caption：标题 Cancel： 取消 本属性设为True, 按ESC键等同单击本按钮 Default：默认 本属性设为True, 按Enter键等同单击本按钮 (2)方法 SetFocus：设置焦点 (3)事件 Click：单击,常用控件,二、修饰控件和

4、为用户提供选择的控件 1列表框（ListBox） 列出可供用户选择的项目列表。运行时，可用鼠标或箭头键选中其中的一项或多项，选中的项被加亮显示。 (1)属性 List：列表。 ListCount：列表框中所含项的总数。 ListIndex：选中项的索引号。 Text： 文本。 Columns：列数。（例见下一页） Sorted：排序。 Selected：选中。,常用控件,2列表框（ListBox） 列出可供用户选择的项目列表。运行时，可用鼠标或箭头键选中其中的一项或多项，选中的项被加亮显示。,常用控件,(2)方法 AddItem：添加列表项。 格式：对象名.AddItem ,插入位置序号 注意

5、：若不指定插入位置，则插入到列表尾。 RemoveItem：删除列表项。 格式：对象名.RemoveItem 删除项序号 Clear：删除列表所有项。 (3)事件 Click（单击） Dbclick（双击）事件（但很少用）,3组合框（ComboBox） 组合框是文本框和列表框的组合方式，它包含一个文本框和一个列表框。用户可在文本框部分输入选项，也可用列表框部分选择选项。 (1)属性 Style：外观属性。组合框有三种外观：,(2) 方法：同列表框。 (3) 事件： Style=0时，响应Click,Change事件。 Style=1时，响应DbClick，Change事件。 Style=2时，

6、响应Click事件。,常用控件,Text：文本属性 文本属性的值为用户从列表框中选定的文本内容或直接输入 文本框中的内容。,4.图像控件（Image）和图片框（PictureBox） 图像控件用来显示一个来自硬盘上的位图文件（.bmp）或图标文件（.ico），并可随意调整图形的大小。 图片框不仅可以显示图形和文本，还可创建动画图形。 (1) 方法 (2) 事件,常用控件,5.选项按钮(OptionButtom)、复选框(CheckBox)和框架控件(Frame） a.选项按钮与复选框 (1)属性 选项按钮Value：选中与否标记。 Value = True 表示选中；默认为 False表示 未

7、选中。 复选框Value：选中与否标记 Value=1表示选中；默认为 0 表示未选中；2 表示不能访问。 (2)方法 (3)事件 Click:单击 b. 框架控件： 用作其他控件的容器。 c.结合框架和选项按钮组(或复选框组) 在窗体上可以创建选项组。,常用控件,一、滚动条与滑块 二、计时器 三、 ProgressBar控件 四、 UpDown 控件 五、鼠标器和键盘,其他的内部控件,一、 滚动条与滑块,滚动条（ScrollBar）和滑块（Slider）控件通常用来帮助观察数据或确定位置，同时也可以作为数据输入的工具。FlatScrollBar控件是标准 Windows滚动条（ScrollB

8、ar控件）对鼠标敏感版本，它提供平面格式选项，也可以代替标准 Windows 的立体滚动条。使用滚动箭头和滚动框时，FlatScrollBar 能提供更强的交互性能。FlatScrollBar 控件是 MSCOMCT2.OCX 文件中一组ActiveX 控件的一部分。要在应用程序中使用 FlatScrollBar 控件，必须将MSCOMCT2.OCX 文件添加到工程。,FlatScrollBar 控件的三种格式选项：,（1）和Internet Explorer 4.0 中的滚动条看起来一样的平面外观。滚动箭头和滚动条滑块都是对鼠标敏感的；当鼠标指针移动到它们上面并按下时，它们就会改变颜色。（参

9、见图7-11左2） （2）鼠标指针放在上面就变成立体的平面外观。当鼠标指针移动到滚动箭头和滚动条滑块上时，它们就会变成斜面。（参见图7-11左3） （3）和标准 Windows 的立体滚动条外观相同。立体模式没有鼠标敏感功能。参见图7-11左1） 使用 FlatScrollBar 可以禁用两个滚动箭头之一，这就给用户提供了基于程序中其它因素的附加反馈信息，以作为在特定方向上的滚动指示。 图7-11左边三个为FlatScrollBar控件，第4个为标准滚动条控件。,图7-11 滚动条与滑快,1 、 滚动条和滑块共有的重要属性,Value属性 Value属性表示滚动框在滚动条中的位置，用整数表示，

10、其取值范围为-3276832767。 Max属性 Max属性表示滚动条所能够代表的最大值，其取值范围为-3276832767。 Min属性 Min属性表示滚动条或滑块所能够代表的最小值，其取值范围为-3276832767。 SmallChange 属性 SmallChange属性表示当用户单击滚动条两端箭头时，滚动框移动的增量值。对滑块控件，可以用左、右箭头进行控制。 LargeChange属性 LargeChange属性表示当用户单击滚动条或滑块中的空白处时，滚动框或滑快移动的增量值。对滑块控件，还可以用PageUp和PageDown键控制。,2 、 FlatScrollBar 控件特有的重

11、要属性,Appearance 属性： Appearance 属性用来设置滚动条的外观，并决定滚动条是平面的、立体的，还是两者的组合。 Appearance=fsb3D（即0）：滚动条有标准 Windows 滚动条的立体外观。 Appearance=fsbFlat（即1）：缺省值， 滚动条是平面的。 Appearance=fsbTrack3D（即2）：滚动条是平面的，当鼠标移动到滑块和箭头按钮上，它们就会变成立体的。,3、 滑块控件特有的重要属性,（1）TickStyle 属性 TickStyle 属性用来确定 Slider 控件上显示的刻度标记的样式和位置。可以为03四个值。 （2）TickF

12、requency 属性 TickFrequency 属性用来确定滑块控件刻度标记的频率，此频率与其范围有关。 （3） TextPosition属性 当用鼠标操作滑块控件时会出现当前刻度的提示文本，TextPosition属性用来确定显示提示文本相对于滑块的位置。 TextPosition属性=0：文本显示在控件的上边或左边。 TextPosition属性=1：文本显示在控件的下边或右边。 （4） SelLength 属性和SelStart属性 SelLength 属性表示滑块中选择出的范围长度。 SelStart属性表示滑块中选择出的范围起点。 SelLength 和 SelStart 属性一

13、起使用，可以在滑块上选择某一范围内的连续数值。因此，可以在滑块上直观地模拟可能的取值范围。 SelLength 属性不能小于 0，SelLength 与 SelStart 之和不能大于 Max 属性值。 （5） SelectRange 属性 SelectRange 属性决定滑块是否能够具有选择出的范围。,4 、 滚动条和滑块的事件,与滚动条有关的事件主要是Scroll和Change事件。只有拖动滚动框才响应Scroll，而通过单击滚动箭头或滚动条则不会发生Scroll事件。只要滚动框的位置发生改变，就触发Change事件。,例7-5：利用滚动条调整图片的大小，利用滑块调整字号。 （1）界面设计

14、,图7-14 滑块属性页,图7-12 运行界面,图7-13 滚动条属性页,（2）编写事件过程代码 Private Sub FlatScrollBar1_Change() Picture1.Height = FlatScrollBar1.Value*3 图片的高度=滚动条的值3 Picture1.Width = FlatScrollBar1.Value*4 图片的高度=滚动条的值4 FlatScrollBar1.Width = Picture1.Width 滚动条的跨度=图片框的宽度 FlatScrollBar1.ToolTipText = 图片尺寸 & Picture1.Width & * &

15、 Picture1.Height 显示提示文本 Slider1.Top = Picture1.Top + Picture1.Height - Slider1.Height 滑块保持在图片框内的底部 Slider1.Width = Picture1.Width End Sub Private Sub Slider1_Click() Label1.FontSize = Slider1.Value 文字大小随滑块值调整 Slider1.ToolTipText = 字号 & Slider1.Value 显示提示文字 End Sub,二 、 计时器,计时器（Timer）控件是在应用程序中用来处理按一定时

16、间间隔（Interval）触发事件的控件。在运行时不可见。 计时器的属性不多，其重要的属性为Interval属性。 计时器只有一个事件，即Timer事件。 在VB中，可以用Timer函数获取系统时钟的时间。而Timer事件是VB模拟实时计时器的事件，不能将两者混淆。 Timer事件的一般语法格式为： Private Sub _Timer() 只要 Timer 控件的 Enabled 属性被设置为 True 而且 Interval 属性值大于 0，则 Timer 事件以 Interval 属性值指定的时间间隔发生。,例7-6：利用计时器实现气球升空。 在窗体上添加两个图片框控件Picture1P

17、icture2，两个计时器Timer1、Timer2，令Interval1=10，Interval1=20，在Windows附件的“画图”程序中绘制几个气球，分别复制到两个图片框中。程序代码为： Private Sub Timer1_Timer() Picture1.Top = Picture1.Top 10 气球上升 If Picture1.Top 0 Then Picture1.Top = Form1.Height - Picture1.Height 气球1回到窗体下部 End If End Sub Private Sub Timer2_Timer() Picture2.Top = Pic

18、ture2.Top 10 气球上升 If Picture2.Top 0 Then Picture2.Top = Form1.Height - Picture2.Height 气球2回到窗体下部 End If End Sub,四、 UpDown 控件,UpDown 控件有一对上下箭头按钮，位于Microsoft Windows Common Control-2 6.0部件中，往往与其他控件捆绑在一起使用。单击时使诸如滚动位置或者关联的伙伴控件中的值增减。,建立Updown控件的伙伴控件的两种方法：,（1）通过设置 AutoBuddy 属性，UpDown 控件将自动地将Tab 键次序中前面的控件作

19、为它的伙伴控件。如果Tab 键次序中没有前面的控件，UpDown 控件则将Tab 键次序中的下一个控件作为它的伙伴控件。 （2）另一种设置伙伴控件的方法是使用 BuddyControl 属性。在设计时，一旦 AutoBuddy 属性或 BuddyControl 属性被设置，伙伴控件会自动地按其大小和位置与 UpDown 控件配对。UpDown 控件可用 Alignment 属性决定它被放在伙伴控件的右面或左面。,例7-9：将Text1文本框控件作为Updown1控件的伙伴控件，要求单击向上箭头时，Text1中的文本字号增加，反之则减小。 （1）界面设计,（a）伙伴控件及其关联属性 （b）Val

20、ue、Min、Max、Wrap、Increment属性值 图 Updown控件的属性页,在窗体上添加一个几乎充满整个窗体的文本框Text1，在Text1的右边添加一个Updown控件Updown1。 右键单击Updown1，打开如图7-17所示Updown控件的属性页对话框。单击“合作者”选项卡，在“合作者控件”（即伙伴控件）栏内输入Text1（或者选中“自动合作者”，则自动在栏内输入Text1），在“合作者属性”栏内选择“Text”（即运行时Text1中显示Updown控件的Value属性值）。,（2）编写事件过程代码 “合作者属性”只是与Updown控件关联的属性，这里与Updown控件关

21、联的属性为Text1.text。要达到程序要求，还应编写Updown1_Change事件代码如下： Private Sub UpDown1_Change() Text1.FontSize = UpDown1.Value End Sub,图7-18 Updown控件应用程序运行界面,1、 鼠标器,七、 鼠标器和键盘,由用户操作鼠标所引起的、能够被VB各种对象识别的事件即为鼠标事件。常用的鼠标事件有单击（Click）、双击（DblClick）、按下任意键（MouseDown）、释放任意键（MouseUp）、移动鼠标（MouseMove）等。,鼠标事件的语法结构基本相同，下面以窗体上发生的Mouse

22、Move为例进行说明。 Private Sub _MouseMove(index As Integer， button As Integer，shift As Integer，x As Single，y As Single),1.鼠标事件,2.鼠标光标形状,鼠标光标的形状由对象的MousePointer属性确定，具体值可在属性窗口了解或参考VB帮助文件。,例7-12：设计绘图程序。要求：单击鼠标左键开始绘制，按下左键并移动鼠标进行绘制，释放鼠标则停止绘制，然后在新的位置开始绘制。用鼠标右键可以绘制较粗的线条。在窗体的左下角显示当前坐标值。,图7-24 鼠标事件实例,（1）界面设计,（2）编写事

23、件过程代码。 Dim X0 As Integer ,Y0 As Integer X0、Y0存放新的图形的起点 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim k As Integer k = k + 1 If k = 1 Then X0 = X: Y0 = Y : Line (X0, Y0)-(X, Y) 设置绘图起点 End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line -(X, Y) 按下鼠标左键时绘制图形 If Button = 2 Then Circle (X, Y), 25: Circle (X, Y), 30: Circle (X, Y), 35: Circle (X, Y), 40 用绘制圆的方式绘制粗线条 Label1.Caption = Str(X) : Label2.Caption =