VB控件教程大全(详细).ppt

1、3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.1 标签与文本框,3.1.1 标签,1. 标签的属性、事件和方法,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,标签所具有的其它属性：,3.1 标签与文本框 3.

2、2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.1.2 文本框,1.文本框的属性,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,例题1：标签控件,Private Sub Form_Click() Label2.BorderStyle =

3、 0 Label2.Caption = 你单击窗体! End Sub Private Sub Form_DblClick() Label2.BorderStyle = 1 Label2.Caption = 你双击窗体! End Sub,标签1：“请您单击或双击窗体”,属性：窗体：标签的使用,FONTSIZE=14,标签2：AUTOSIZE=“TRUE”,CAPTION：置空,FONTSIZE=14,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用Activ

4、eX控件,第三章 VB 6.0的常用控件,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,该属性既可以在设计时使用属性窗口设定，也可以在运行时使用代码动态的修改。例如在代码中有如下语句： Text1.Text=Welcome to china! 那么将在文本框Text1中显示字符串“Welcome to china!”。,（6）SelLength属性： SelLength属性返回/设置文本框中用户选中的字

5、符数,(7）SelStart属性： SelStart属性返回/设置选定文本的起始位置（插入点）,（8）SelText属性 SelText属性返回/设置包含有当前所选择的文本的字符串,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,设定form1的click事件如下： Private Sub Form_Click() Debug.Print Select start= Selecttext= Selectl

6、ength=2;Selecttext=! Selectstart=27;Selectlength=0;Selecttext= 通过这个示例可以发现，对于SelLength和Selectstart属性的值将随着修改Selecttext的值而改变。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3

7、.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,SetFocus方法可以用于将焦点移动到指定的对象,是文本框较常用的. 格式：,（4）SetFocus方法,3.1.3 应用举例,例3.1： 利用LostFocus事件改变文本框中的内容。 在窗体form1上建立两个文本框分别是Text1、Text2，下面在form1的load事件过程中作如下设置：,Private Sub Form_Load() Form1.Text1.Text= Form1.Text2.Text= Form1.Text1.Font=宋体 Form1.

8、Text2.Font=宋体 Form1.Text1.FontSize=14 Form1.Text2.FontSize=14 Form1.Text1.BackColor=vbBlack Form1.Text1.ForeColor=vbWhite Form1.Text2.ForeColor=vbBlue Form1.Text2.BackColor=vbRed Form1.Show Form1.Text1.SetFocus End Sub,对象.SetFocus 该方法可以把光标移到指定的文本框中,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框

9、和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,如果在text1的LostFocus事件过程中作如下设定： Private Sub Text1_LostFocus() Form1.Text2.Text=UCase(Form1.Text1.Text) End Sub,3.2 图片框和图像框,与图形有关的标准控件有4种，即图片框、图像框、直线和形状,3.2.1 图片框和图像框,图片框比图像框更灵活，且适用于动态环境， 而图像框适用于静态情况,默认名称分别为Picture1，Picture2和Imagex1，I

10、magex2,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,1. 与窗体属性相同的属性,第2章中介绍的部分窗体属性，包括Enabled、Name、Visible、FontBold、FontItalic、FontName、Fantasize、FontUnderline等，完全适用于图片框和图像框，其用法也相同。但在使用时应注意，对象名不能省略，必须是具体的,图片框或图像框名。,2.Current X和Cu

11、rrent Y属性,用来设置下一个输出的水平（Current X）或垂直（Current Y）坐标。这两个属性只能在运行期间使用。 格式如下： 对象.Current X=x 对象.Current Y=y 其中“对象”可以是窗体、图片框和打印机,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,Private Sub Form_Click() Picture1.Print Tab(10);picture1 t

12、ab10test Print Tab(20);Form Tab 20 Picture1.CurrentX = 800 Picture1.CurrentY = 600 CurrentX = 800 CurrentY = 600 Print Form CurrentX,CurrentY Test Picture1.Print Picture1CurrentX,currentY Print Tab(15);CurrentX, CurrentY Picture1.Print Tab(15);CurrentX, CurrentY End Sub,例3.3：在窗体上建立一个图片框，然后分别在窗体和图片框中

13、显示一些信息。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3. Picture属性,用于窗体、图片框和图像框，可通过属性窗口设置，用来把图形放入这些对象中,支持以下格式的图形文件,（1） Bitmap（位图）：也称“绘图类型”扩展名为.BMP或 .DIB。 （2） Icon （图标）：是一种特殊类型的位图，扩展名为.ICO或.OUR （3） Metafile（图元文件）：也称为绘图类型图形，它将图形

14、定义为编码的线段和图形。普通图元文件的扩展名为.WMF，增强型图元文件的扩展名为.EMF。 （4） JPEG （Joint Photographics Expert Group）：是一种支持8位和24位颜色的压缩位图格式，其文件扩展名为.JPG。 （5） GIF （Graphics Interchange Format）：是一种压缩位图格式，支持256种颜色，其扩展名为.GIF。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章

15、VB 6.0的常用控件,4. Stretch属性,用于图像框，用来自动调整图像框中图形内容的大小。它既可通过属性窗口设置，也可通过程序代码设置。该属性的值可设为True(不显 )或False (自动 ),3.2.2 图形文件的装入,1. 图片框与图像框的区别,（1）图片框是“容器”控件，可以作为父控件，而图像框不能作为父控件,（2）图片框可以通过Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收，也不能用绘图方法在图像框上绘制图形,（3）图像框比图片框占用的内存少，显示速度快。,图片框是一个“容器”，可以把其他控件放在该控件上。,2. 在设计阶段装入图形文件,（1）用属性窗口中

16、的Picture属性装入,步骤如下：建立 、属性 、加载图片、目录中选择、打开 如下页图,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,Private Sub Command1_Click() Picture1.Picture = LoadPicture End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture(“e:kk.g

17、if) End Sub,例题2：加载图片,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.2.3 应用举例,例3.4：编写程序，交换两个图片框中的图形 三个图片框：

18、,Private Sub Form_Click() Form1.Picture3.Picture = Form1.Picture1.Picture Form1.Picture1.Picture = Form1.Picture2.Picture Form1.Picture2.Picture = Form1.Picture3.Picture End Sub,Private Sub Form_Load() Form1.Picture3.Visible = False Form1.Picture1.Picture = LoadPicture(F:bmpZW_015.GIF) Form1.Picture

19、2.Picture = LoadPicture(F:bmpZW_016.GIF) End Sub,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.3 按钮控件,命令按钮：Caption、Enabled、FontBold、FontItalic、FontName、Fontsize、FontUnderline、Height、Left、Name、Top、Visible、Width。,用于指出命令按钮是否为窗体

20、的“取消”按钮,1.Cancel属性,2. Default属性,是用于决定窗体的缺省命令按钮,3.Style属性,设置或返回一个值，这个值用来指定控件的显示类型和操作。,4.Picture属性,用于返回/设置CommandButton,OptionButton或CheckBox 控件中要显示的图形。,5.Downpicture属性,用于返回/设置按钮按下状态时显示的图形。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6

21、.0的常用控件,6.Disablepicture属性,用于返回/设置按钮无效时显示的图形。,注意：命令按钮最常用的事件是单击命令按钮时触发的单击事件（Click事件）。这里特别指出的是，命令按钮不支持双击事件（Dblclick事件）。,3.3.2 应用举例,例3.5：验证按钮的属性,Private Sub Form_Click() Commtop1.Caption = 示例1 Commtop1.FontName = 黑体 Commtop1.FontSize = 20 Commtop1.FontBold = True Commtop1.FontItalic = True Commtop1.Fon

22、tUnderline = True Commtop2.Caption = 示例2 Commtop2.FontName = 宋体 Commtop2.FontSize = 22 Commtop2.FontBold = True Commtop2.FontItalic = False Commtop1.Enabled = False Commtop2.Enabled = True End Sub,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件

23、,第三章 VB 6.0的常用控件,例题3：命令按纽的使用,Private Sub Command1_Click() Label1.Caption = 你单击命令按纽一 End Sub Private Sub Command2_Click() Label1.Caption = 你单击命令按纽二 End Sub,属性：,FONTNAME 宋体,PICTURE F:bmpE_-34,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB

24、 6.0的常用控件,3.4 复选框和单选框,3.4.1 复选框和单选框的属性与事件,大多数属性都可用于复选框和单选按钮，包括Caption、Enabled、FontBolder、FontItalic、FontName、Fontsize、FontUnderline、Height、Left、Name、Top、Visible、Width。,也可以使用Picture、DownPicture和DisabledPicture属性,1. Value属性,表示复选框或单选按钮的状态。对于单选按钮，可设为True(打开 )或False(关闭 )。,对于复选框来说，Value属性可以设置值为0(没有 )、1(选中

25、 )或2(被禁止 )。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,2. Alignment属性,用于返回/设置复选框或选项按钮、或一个控件的文本的对齐,格式：对象.Alignment=值,对象为复选框或单选按钮时 ,0(居左 ),1(居右 ),也可以是标签和文本框,3. Style属性,用于指定复选框或单选按钮的显示方式，改善视觉效果,0(标准方式 ),1(图形方式 ),注意以下几点：,Style属

26、性被设置为不同的值（0或1）时，其外观也不一样,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.4.2 应用举例,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,编写如下事件过程： Option Explicit

27、 Private Sub check1_Click() test1.Font.Underline = Not test1.Font.Underline End Sub Private Sub check2_Click() test1.Font.Italic = Not test1.Font.Italic End Sub Private Sub option1_Click() test1.FontName = 黑体 End Sub Private Sub option2_Click() test1.FontName = 宋体 End Sub,3.1 标签与文本框 3.2 图片框和图像框 3.3

28、按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.5 列表框和组合框,3.5.1 列表框,1. 属性,列表框支持的标准属性包括Height、Left、Top、Visible、Width、Enabled、FontBold、FontItalic、FontName、FontUnderline、Height。,（1）Columns属性,设置一个值，决定列表框为是在一列中垂直滚动,还是多个列中水平滚动,0 单列显示，有垂直滚动条; 1 多行单列显示只有水平滚动条,

29、N 是大于1的数，多行多列显示。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,Columns属性值分别为0，1，4时,（2）List属性,List属性用来列出表项的内容,a)格式：s$=列表框.List（下标） 例如：s$=List1.list(8) 将列出列表框Listl第九项的内容。,b)格式：列表框.List（下标）=s$ 例如：List1.list(4)=“kkkkk” 将把列表框Listl第

30、五项的内容设置为kkkkk。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,（3）ListCount属性,用来返回列表部分的项目数，即该属性列出列表框中表项的数量,（4）ListIndex属性,用来返回/设置列表中当前选定项目的索引,返回值是己选中的表项的位置。,（5）MultiSelect属性,用来返回/设置一个值，决定用户是否可以在列表中做多重选择,（6）Selected属性,用来返回/设置列表中项

31、目的选定状态。,（7）SelCount属性,用来返回列表框控件选定的项目数,（8）Sorted属性,用来确定列表框中的项目是否按字母、数字升序排列,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,（9）Style属性,用来确定列表外观，只能在设计时确定。其取值可以设置为0或l。,（10）Text属性,返回/设置列表中包含的文本,2.列表框事件,列表框接收Click和Db1Click事件，但有时不用编写Cl

32、ick事件过程代码，而是当单击一个命令按钮或发生DblClick事件时，读取Text属性。,可以使用AddItem、Clear和RemoveItem等方法，用来在运行期间修改列表框的内容。,3.列表框方法,（1）AddItem :在列表框中添加文本项目:,（2）Clear:清除列表框中的全部内容,（3）RemoveItem:删除列表框中指定的项目,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,例3.8：

33、利用列表框显示学生的籍贯，并可以添加列表项。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,Private Sub Form_Load() Lst.AddItem 李亿 Lst.AddItem 王晓波 Lst.AddItem 万明” Lst.AddItem 张君 Lst.AddItem 马萧萧 Lst.AddItem 季林 Lst.AddItem 陈奇 Lst.AddItem 朱小 Lst.AddIte

34、m 周和平,ReDim NativeArray(0 To 8) NativeArray(0) = 天津 NativeArray(1) = 武汉 NativeArray(2) = 上海 NativeArray(3) = 北京 NativeArray(4) = 云南 NativeArray(5) = 南京 NativeArray(6) = 广州 NativeArray(7) = 大连 NativeArray(8) = 河北 End Sub,Dim NativeArray() As String 定义籍贯数组为动态数组,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和

35、单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,Private Sub Lst_Click() CmdAdd.Caption = 添加 TxtName.Visible = False LblName.Visible = False TxtNative.Text = NativeArray(Lst.ListIndex) End Sub Private Sub CmdAdd_Click() CmdAdd.Caption = 确定 TxtName.Visible = True LblNam

36、e.Visible = True Lst.AddItem TxtName i = Lst.ListCount ReDim Preserve NativeArray(i) NativeArray(Lst.ListCount - 1) = TxtNative.Text TxtName = TxtNative = End Sub,列表框Click事件，姓名标签及文本框隐藏，籍贯处显示学生籍贯,单击添加按钮事件,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用Ac

37、tiveX控件,第三章 VB 6.0的常用控件,例3.9：交换两个列表框中的项目。其中一个列表框中的项目按字母升序排列，另一个列表框中的项目按加入的先后顺序排列。当双击某个项目时，该项目从本列表框中消失，并出现在另一个列表框中。,Private Sub Form_Load() List1.FontSize = 14 List2.FontSize = 14 List1.AddItem IBM List1.AddItem Compaq List1.AddItem HP List1.AddItem FUH List1.AddItem Digiul List1.AddItem 长城 List1.Add

38、Item 联想 List1.AddItem Cmon List1.AddItem 四通 List1.AddItem Ac List1.AddItem Nec End Sub,Private Sub List1_DblClick() List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End Sub Private Sub List2_DblClick() List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End Sub,属性： List2:sorte=true,3.

39、1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.5.2 组合框,1.组合框属性,（1）Style属性,组合框的一个重要属性，其取值为决定了组合框3种不同的类型：,0(下拉式组合框：既可以输入又可选择 )、 1(简单组合框：只能输入不能选择 )、 2(下拉式列表框：只能选择不能输入 )。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6

40、滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,（2）Text属性： style=0,1返回编辑框中的文本； style=2返回列表框中的项目,2.组合框事件：Dblclick(简组),click、Dropdown(下组、下列),Change(下组,简组),前面介绍的AddItem、Clear和RemoveItem方法也适用于组合框，其用法与在列表框中相同。,3.组合框方法,3.5.3 应用举例,例3.10：将用户在文本框中输入的文字添加到复合列表框中，并且同时具有删除和清空,复合列表框中条目的功能,3.1 标签与文本框

41、3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,例题4：组合框,Private Sub Combo1_Change() Label4.Caption = 你输入的是： + Combo1.Text End Sub Private Sub Combo1_Click() Label4.Caption = 你选择的是： + Combo1.Text End Sub,属性：,四个标签：caption style=0 style=1 sty

42、le=2,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.6 滚动条,1.滚动条属性,滚动条的属性用来标识滚动条的状态，除支持Enabled、Height、Left、caption、Top、Visible、Width等,（1）Max属性 滚动条所能表示的最大值，取值范围为-3276832767,（2）Min属性 表示的最小值。当滚动框位于最左端或最上端时，Value属性取该值。,（3）LargeCha

43、nge属性 单击滚动条中滚动框前面或后面的部位时，Value增加或减小的增量值,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,（4）Smallchange属性 单击滚动条两端的箭头时，Value属性增加或减小的增量值。 （5）Value属性 表示滚动框在滚动条上的当前位置。如果在程序中设置该值，则把滚动框移到相应的位置。,注意：不能把Value属性设置为Max和Min范围之外的值。,2. 滚动条事件,与

44、滚动条有关的事件主要是Scroll和Change,3.6.2 应用举例,例3.11：按下列步骤操作，在窗体上建立一组滚动条来验证滚动条的属性。 在窗体上建立10个控件，其中6个标签、2个文本框、2个滚动条，,把6个标签的caption属性分别设为“低”、“高”、“低”、“高”、“水平滚动条位置”、“垂直滚动条位置”。 两个文本框的name属性分别设定为“TxtHScro”和“TxtVScro”。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用Active

45、X控件,第三章 VB 6.0的常用控件,Private Sub HScro_Change() TxtHScro.Text = HScro.Value End Sub Private Sub VScro_Change() TxtVScro.Text = VScro.Value End Sub,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,Private Sub HScroll1_Change() Labz

46、he.Caption = HScroll1.Value & 折 Labxj.Caption = Text1.Text * HScroll1.Value / 10 & 元 End Sub,例题5:计算打折小程序,例题6: 滚动图片,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,Private Sub Form_Load() HScroll1.Max = Picture2.Width - Picture1.

47、Width VScroll1.Max = Picture2.Height - Picture1.Height End Sub Private Sub HScroll1_Change() Picture2.Left = -HScroll1.Value End Sub Private Sub VScroll1_Change() Picture2.Top = -VScroll1.Value End Sub,窗体：name 滚动图片,图片框1：name picture1,图片框2：name picture2(p113) /autosize=true/borderstyle=0/left=0/top=0

48、,垂直滚动条：name vscroll1/min=0/ /largechange=200/smallchange=100,水平滚动条：name hscroll1/min=0/largechange=200/smallchange=100,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.7 计时器,在程序中可以通过改变Enabled属性的值来启停计时器。,2.计时器事件,1.计时器属性,对于一个含有计时

49、器控件的窗体，每经过一段由属性Interval指定的时间间隔，就产生一个Timer事件。,3.建立计时器,双击工具箱上的计时器图标，窗体中部出现一个计时器控件。 注意：计时器控件的位置和大小无关紧要，因为它只是在设计阶段出现在窗体上，程序运行时会自动消失。,3.7.2 应用举例,例3.12：使用计时器控件建立一个时钟，要求用户可以设定时间报时,在窗体上绘制5个标签，2个文本框，2个按钮，3个计时器控件,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用Act

50、iveX控件,第三章 VB 6.0的常用控件,Private Sub Timer1_Timer() LabTIME.Caption = Time For i = 1 To 60 Beep Next End Sub Private Sub Command1_Click() If Command1.Caption = 停止 Then Timer1.Enabled = False Command1.Caption = 开始 Else Timer1.Enabled = True Command1.Caption = 停止 End If End Sub,窗体：caption 电子表 标签1： capti

51、on 当前系统时间是： Font 幼园、四号 标签2：名称：labtime caption 置空 Font Arial, 粗体，二号 按纽： 名称 Command1 Caption 停止 计时器： 名称： timer1 Interval 1000 Enabled True,例题 7 电子表,Private Sub Comstart_Click() Timer1.Enabled = True End Sub Private Sub Comstop_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If Image1

52、.Left = Picture1.Width Then Image1.Move Image1.Left + 100 Else Image1.Left = -400 End If End Sub,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,例题8 制作动画,窗体： CAPTION 制作动画,图片框 名称 PIC,PICTION 蓝天图片f:bmpslm),图像框 名称 IMAGE,PICTION 飞机图

53、片(f:bmppl-059),按纽1 名称 COMSTART,按纽2 名称 COMSTOP,CAPTION 开始,CAPTION 停止,计时器 Timer1 Enable false Interval 1000,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,例3.13：用计时器实现字体的放大,Private Sub Form_Load() Label1.FontName = 宋体 Label1.Capt

54、ion = 字体 Label1.Width = Width Label1.Height = Height Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() If Label1.FontSize 100 Then Label1.FontSize = Label1.FontSize * 1.2 Else Label1.FontSize = 10 End If End Sub,属性：标签 label 计时器 timer,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.

55、6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.8 框架,框架（Frame）是一个容器控件，用于将屏幕上的对象分组.,1.框架的属性,框架的属性包括Enabled、FontBold、FontName、FontUnderline、Height、Left、Top、Visible、Width,把Enabled属性设置为True，这样才能保证框架内的对象是活动的。如果把框架的Enabled属性设置为False，则其标题会变灰,2.框架事件,框架常用的事件是Click和Db1Click，它不接受用户输入，不能显示文本和图形，

56、也不能与图形相连。,有多个单选按钮时，如果选择其中的一个，其他单选按钮自动关闭,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.8.2 应用举例,例3.14：编写程序，通过两组单选按钮设置字体类型和大小。,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用Activ

57、eX控件,第三章 VB 6.0的常用控件,Private Sub Opt10_Click() TxtExp.FontSize = 10 End Sub Private Sub Opt18_Click() TxtExp.FontSize = 18 End Sub Private Sub OptHT_Click() TxtExp.FontName = 黑体 End Sub Private Sub OptST_Click() TxtExp.FontName = 宋体 End Sub,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6

58、 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.9 窗体布局,3.9.1 使用窗体布局工具,可以方便地对多个控件的位置、大小进行设置。,选择视图菜单中的工具栏中的“窗体编辑器”,该工具的主要功能有： （1）置前和置后的调整。 （2）对齐方式的调整。 （3）大小尺寸的调整,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.4 复选框和单选框 3.5 列表框和组合框 3.6 滚动条 3.7 计时器 3.8框架 3.9 窗体布局 3.10 使用ActiveX控件,第三章 VB 6.0的常用控件,3.9.2 焦点和Tab顺序,1.设置焦点,焦点是接收用户鼠标或键盘输入的能力。,用下面的方法可以设置一个对象的焦点： （1）在运行时单击该对象。 （2）运行时用快捷键选择该对象。 （3）在程序代码中使用SetFocus方法,Private Sub Form_Load () Text1.SetFocus End Sub 程序运行后，显示出错信息,Private Sub Form_Load () Form1.Show Text1.SetFocus End Sub,3.1 标签与文本框 3.2 图片框和图像框 3.3 按钮控件 3.