VB控件教程大全(详细)PPT课件

3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.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控件,第三章VB6.0的常用控件,标签所具有的其它属性：,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.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控件,第三章VB6.0的常用控件,例题1：标签控件,PrivateSubForm_Click()Label2.BorderStyle=0Label2.Caption=你单击窗体!EndSubPrivateSubForm_DblClick()Label2.BorderStyle=1Label2.Caption=你双击窗体!EndSub,标签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使用ActiveX控件,第三章VB6.0的常用控件,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,该属性既可以在设计时使用属性窗口设定，也可以在运行时使用代码动态的修改。例如在代码中有如下语句：Text1.Text=Welcometochina!那么将在文本框Text1中显示字符串“Welcometochina!”。,（6）SelLength属性：SelLength属性返回/设置文本框中用户选中的字符数,(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控件,第三章VB6.0的常用控件,设定form1的click事件如下：PrivateSubForm_Click()Debug.PrintSelectstart=Selecttext=Selectlength=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控件,第三章VB6.0的常用控件,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,SetFocus方法可以用于将焦点移动到指定的对象,是文本框较常用的.格式：,（4）SetFocus方法,3.1.3应用举例,例3.1：利用LostFocus事件改变文本框中的内容。在窗体form1上建立两个文本框分别是Text1、Text2，下面在form1的load事件过程中作如下设置：,PrivateSubForm_Load()Form1.Text1.Text=Form1.Text2.Text=Form1.Text1.Font=宋体Form1.Text2.Font=宋体Form1.Text1.FontSize=14Form1.Text2.FontSize=14Form1.Text1.BackColor=vbBlackForm1.Text1.ForeColor=vbWhiteForm1.Text2.ForeColor=vbBlueForm1.Text2.BackColor=vbRedForm1.ShowForm1.Text1.SetFocusEndSub,对象.SetFocus该方法可以把光标移到指定的文本框中,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,如果在text1的LostFocus事件过程中作如下设定：PrivateSubText1_LostFocus()Form1.Text2.Text=UCase(Form1.Text1.Text)EndSub,3.2图片框和图像框,与图形有关的标准控件有4种，即图片框、图像框、直线和形状,3.2.1图片框和图像框,图片框比图像框更灵活，且适用于动态环境，而图像框适用于静态情况,默认名称分别为Picture1，Picture2和Imagex1，Imagex2,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,1.与窗体属性相同的属性,第2章中介绍的部分窗体属性，包括Enabled、Name、Visible、FontBold、FontItalic、FontName、Fantasize、FontUnderline等，完全适用于图片框和图像框，其用法也相同。但在使用时应注意，对象名不能省略，必须是具体的,图片框或图像框名。,2.CurrentX和CurrentY属性,用来设置下一个输出的水平（CurrentX）或垂直（CurrentY）坐标。这两个属性只能在运行期间使用。格式如下：对象.CurrentX=x对象.CurrentY=y其中“对象”可以是窗体、图片框和打印机,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubForm_Click()Picture1.PrintTab(10);picture1tab10testPrintTab(20);FormTab20Picture1.CurrentX=800Picture1.CurrentY=600CurrentX=800CurrentY=600PrintFormCurrentX,CurrentYTestPicture1.PrintPicture1CurrentX,currentYPrintTab(15);CurrentX,CurrentYPicture1.PrintTab(15);CurrentX,CurrentYEndSub,例3.3：在窗体上建立一个图片框，然后分别在窗体和图片框中显示一些信息。,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,3.Picture属性,用于窗体、图片框和图像框，可通过属性窗口设置，用来把图形放入这些对象中,支持以下格式的图形文件,（1）Bitmap（位图）：也称“绘图类型”扩展名为.BMP或.DIB。（2）Icon（图标）：是一种特殊类型的位图，扩展名为.ICO或.OUR（3）Metafile（图元文件）：也称为绘图类型图形，它将图形定义为编码的线段和图形。普通图元文件的扩展名为.WMF，增强型图元文件的扩展名为.EMF。（4）JPEG（JointPhotographicsExpertGroup）：是一种支持8位和24位颜色的压缩位图格式，其文件扩展名为.JPG。（5）GIF（GraphicsInterchangeFormat）：是一种压缩位图格式，支持256种颜色，其扩展名为.GIF。,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,4.Stretch属性,用于图像框，用来自动调整图像框中图形内容的大小。它既可通过属性窗口设置，也可通过程序代码设置。该属性的值可设为True(不显)或False(自动),3.2.2图形文件的装入,1.图片框与图像框的区别,（1）图片框是“容器”控件，可以作为父控件，而图像框不能作为父控件,（2）图片框可以通过Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收，也不能用绘图方法在图像框上绘制图形,（3）图像框比图片框占用的内存少，显示速度快。,图片框是一个“容器”，可以把其他控件放在该控件上。,2.在设计阶段装入图形文件,（1）用属性窗口中的Picture属性装入,步骤如下：建立、属性、加载图片、目录中选择、打开如下页图,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubCommand1_Click()Picture1.Picture=LoadPictureEndSubPrivateSubCommand2_Click()Picture1.Picture=LoadPicture(“e:kk.gif)EndSub,例题2：加载图片,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,3.2.3应用举例,例3.4：编写程序，交换两个图片框中的图形三个图片框：,PrivateSubForm_Click()Form1.Picture3.Picture=Form1.Picture1.PictureForm1.Picture1.Picture=Form1.Picture2.PictureForm1.Picture2.Picture=Form1.Picture3.PictureEndSub,PrivateSubForm_Load()Form1.Picture3.Visible=FalseForm1.Picture1.Picture=LoadPicture(F:bmpZW_015.GIF)Form1.Picture2.Picture=LoadPicture(F:bmpZW_016.GIF)EndSub,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,3.3按钮控件,命令按钮：Caption、Enabled、FontBold、FontItalic、FontName、Fontsize、FontUnderline、Height、Left、Name、Top、Visible、Width。,用于指出命令按钮是否为窗体的“取消”按钮,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控件,第三章VB6.0的常用控件,6.Disablepicture属性,用于返回/设置按钮无效时显示的图形。,注意：命令按钮最常用的事件是单击命令按钮时触发的单击事件（Click事件）。这里特别指出的是，命令按钮不支持双击事件（Dblclick事件）。,3.3.2应用举例,例3.5：验证按钮的属性,PrivateSubForm_Click()Commtop1.Caption=示例1Commtop1.FontName=黑体Commtop1.FontSize=20Commtop1.FontBold=TrueCommtop1.FontItalic=TrueCommtop1.FontUnderline=TrueCommtop2.Caption=示例2Commtop2.FontName=宋体Commtop2.FontSize=22Commtop2.FontBold=TrueCommtop2.FontItalic=FalseCommtop1.Enabled=FalseCommtop2.Enabled=TrueEndSub,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,例题3：命令按纽的使用,PrivateSubCommand1_Click()Label1.Caption=你单击命令按纽一EndSubPrivateSubCommand2_Click()Label1.Caption=你单击命令按纽二EndSub,属性：,FONTNAME宋体,PICTUREF:bmpE_-34,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.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(选中)或2(被禁止)。,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,2.Alignment属性,用于返回/设置复选框或选项按钮、或一个控件的文本的对齐,格式：对象.Alignment=值,对象为复选框或单选按钮时,0(居左),1(居右),也可以是标签和文本框,3.Style属性,用于指定复选框或单选按钮的显示方式，改善视觉效果,0(标准方式),1(图形方式),注意以下几点：,Style属性被设置为不同的值（0或1）时，其外观也不一样,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.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控件,第三章VB6.0的常用控件,编写如下事件过程：OptionExplicitPrivateSubcheck1_Click()test1.Font.Underline=Nottest1.Font.UnderlineEndSubPrivateSubcheck2_Click()test1.Font.Italic=Nottest1.Font.ItalicEndSubPrivateSuboption1_Click()test1.FontName=黑体EndSubPrivateSuboption2_Click()test1.FontName=宋体EndSub,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,3.5列表框和组合框,3.5.1列表框,1.属性,列表框支持的标准属性包括Height、Left、Top、Visible、Width、Enabled、FontBold、FontItalic、FontName、FontUnderline、Height。,（1）Columns属性,设置一个值，决定列表框为是在一列中垂直滚动,还是多个列中水平滚动,0单列显示，有垂直滚动条;1多行单列显示只有水平滚动条,N是大于1的数，多行多列显示。,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,Columns属性值分别为0，1，4时,（2）List属性,List属性用来列出表项的内容,a)格式：s$=列表框.List（下标）例如：s$=List1.list(8)将列出列表框Listl第九项的内容。,b)格式：列表框.List（下标）=s$例如：List1.list(4)=“kkkkk”将把列表框Listl第五项的内容设置为kkkkk。,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,（3）ListCount属性,用来返回列表部分的项目数，即该属性列出列表框中表项的数量,（4）ListIndex属性,用来返回/设置列表中当前选定项目的索引,返回值是己选中的表项的位置。,（5）MultiSelect属性,用来返回/设置一个值，决定用户是否可以在列表中做多重选择,（6）Selected属性,用来返回/设置列表中项目的选定状态。,（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控件,第三章VB6.0的常用控件,（9）Style属性,用来确定列表外观，只能在设计时确定。其取值可以设置为0或l。,（10）Text属性,返回/设置列表中包含的文本,2.列表框事件,列表框接收Click和Db1Click事件，但有时不用编写Click事件过程代码，而是当单击一个命令按钮或发生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控件,第三章VB6.0的常用控件,例3.8：利用列表框显示学生的籍贯，并可以添加列表项。,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubForm_Load()Lst.AddItem李亿Lst.AddItem王晓波Lst.AddItem万明”Lst.AddItem张君Lst.AddItem马萧萧Lst.AddItem季林Lst.AddItem陈奇Lst.AddItem朱小Lst.AddItem周和平,ReDimNativeArray(0To8)NativeArray(0)=天津NativeArray(1)=武汉NativeArray(2)=上海NativeArray(3)=北京NativeArray(4)=云南NativeArray(5)=南京NativeArray(6)=广州NativeArray(7)=大连NativeArray(8)=河北EndSub,DimNativeArray()AsString定义籍贯数组为动态数组,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubLst_Click()CmdAdd.Caption=添加TxtName.Visible=FalseLblName.Visible=FalseTxtNative.Text=NativeArray(Lst.ListIndex)EndSubPrivateSubCmdAdd_Click()CmdAdd.Caption=确定TxtName.Visible=TrueLblName.Visible=TrueLst.AddItemTxtNamei=Lst.ListCountReDimPreserveNativeArray(i)NativeArray(Lst.ListCount-1)=TxtNative.TextTxtName=TxtNative=EndSub,列表框Click事件，姓名标签及文本框隐藏，籍贯处显示学生籍贯,单击添加按钮事件,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,例3.9：交换两个列表框中的项目。其中一个列表框中的项目按字母升序排列，另一个列表框中的项目按加入的先后顺序排列。当双击某个项目时，该项目从本列表框中消失，并出现在另一个列表框中。,PrivateSubForm_Load()List1.FontSize=14List2.FontSize=14List1.AddItemIBMList1.AddItemCompaqList1.AddItemHPList1.AddItemFUHList1.AddItemDigiulList1.AddItem长城List1.AddItem联想List1.AddItemCmonList1.AddItem四通List1.AddItemAcList1.AddItemNecEndSub,PrivateSubList1_DblClick()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSubPrivateSubList2_DblClick()List1.AddItemList2.TextList2.RemoveItemList2.ListIndexEndSub,属性：List2:sorte=true,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,3.5.2组合框,1.组合框属性,（1）Style属性,组合框的一个重要属性，其取值为决定了组合框3种不同的类型：,0(下拉式组合框：既可以输入又可选择)、1(简单组合框：只能输入不能选择)、2(下拉式列表框：只能选择不能输入)。,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,（2）Text属性：style=0,1返回编辑框中的文本；style=2返回列表框中的项目,2.组合框事件：Dblclick(简组),click、Dropdown(下组、下列),Change(下组,简组),前面介绍的AddItem、Clear和RemoveItem方法也适用于组合框，其用法与在列表框中相同。,3.组合框方法,3.5.3应用举例,例3.10：将用户在文本框中输入的文字添加到复合列表框中，并且同时具有删除和清空,复合列表框中条目的功能,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,例题4：组合框,PrivateSubCombo1_Change()Label4.Caption=你输入的是：+Combo1.TextEndSubPrivateSubCombo1_Click()Label4.Caption=你选择的是：+Combo1.TextEndSub,属性：,四个标签：captionstyle=0style=1style=2,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,3.6滚动条,1.滚动条属性,滚动条的属性用来标识滚动条的状态，除支持Enabled、Height、Left、caption、Top、Visible、Width等,（1）Max属性滚动条所能表示的最大值，取值范围为-3276832767,（2）Min属性表示的最小值。当滚动框位于最左端或最上端时，Value属性取该值。,（3）LargeChange属性单击滚动条中滚动框前面或后面的部位时，Value增加或减小的增量值,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,（4）Smallchange属性单击滚动条两端的箭头时，Value属性增加或减小的增量值。（5）Value属性表示滚动框在滚动条上的当前位置。如果在程序中设置该值，则把滚动框移到相应的位置。,注意：不能把Value属性设置为Max和Min范围之外的值。,2.滚动条事件,与滚动条有关的事件主要是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使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubHScro_Change()TxtHScro.Text=HScro.ValueEndSubPrivateSubVScro_Change()TxtVScro.Text=VScro.ValueEndSub,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubHScroll1_Change()Labzhe.Caption=HScroll1.Value&折Labxj.Caption=Text1.Text*HScroll1.Value/10&元EndSub,例题5:计算打折小程序,例题6:滚动图片,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubForm_Load()HScroll1.Max=Picture2.Width-Picture1.WidthVScroll1.Max=Picture2.Height-Picture1.HeightEndSubPrivateSubHScroll1_Change()Picture2.Left=-HScroll1.ValueEndSubPrivateSubVScroll1_Change()Picture2.Top=-VScroll1.ValueEndSub,窗体：name滚动图片,图片框1：namepicture1,图片框2：namepicture2(p113)/autosize=true/borderstyle=0/left=0/top=0,垂直滚动条：namevscroll1/min=0/largechange=200/smallchange=100,水平滚动条：namehscroll1/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控件,第三章VB6.0的常用控件,3.7计时器,在程序中可以通过改变Enabled属性的值来启停计时器。,2.计时器事件,1.计时器属性,对于一个含有计时器控件的窗体，每经过一段由属性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使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubTimer1_Timer()LabTIME.Caption=TimeFori=1To60BeepNextEndSubPrivateSubCommand1_Click()IfCommand1.Caption=停止ThenTimer1.Enabled=FalseCommand1.Caption=开始ElseTimer1.Enabled=TrueCommand1.Caption=停止EndIfEndSub,窗体：caption电子表标签1：caption当前系统时间是：Font幼园、四号标签2：名称：labtimecaption置空FontArial,粗体，二号按纽：名称Command1Caption停止计时器：名称：timer1Interval1000EnabledTrue,例题7电子表,PrivateSubComstart_Click()Timer1.Enabled=TrueEndSubPrivateSubComstop_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()IfImage1.Left=Picture1.WidthThenImage1.MoveImage1.Left+100ElseImage1.Left=-400EndIfEndSub,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,例题8制作动画,窗体：CAPTION制作动画,图片框名称PIC,PICTION蓝天图片f:bmpslm),图像框名称IMAGE,PICTION飞机图片(f:bmppl-059),按纽1名称COMSTART,按纽2名称COMSTOP,CAPTION开始,CAPTION停止,计时器Timer1EnablefalseInterval1000,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,例3.13：用计时器实现字体的放大,PrivateSubForm_Load()Label1.FontName=宋体Label1.Caption=字体Label1.Width=WidthLabel1.Height=HeightTimer1.Interval=1000EndSubPrivateSubTimer1_Timer()IfLabel1.FontSize100ThenLabel1.FontSize=Label1.FontSize*1.2ElseLabel1.FontSize=10EndIfEndSub,属性：标签label计时器timer,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,3.8框架,框架（Frame）是一个容器控件，用于将屏幕上的对象分组.,1.框架的属性,框架的属性包括Enabled、FontBold、FontName、FontUnderline、Height、Left、Top、Visible、Width,把Enabled属性设置为True，这样才能保证框架内的对象是活动的。如果把框架的Enabled属性设置为False，则其标题会变灰,2.框架事件,框架常用的事件是Click和Db1Click，它不接受用户输入，不能显示文本和图形，也不能与图形相连。,有多个单选按钮时，如果选择其中的一个，其他单选按钮自动关闭,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.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使用ActiveX控件,第三章VB6.0的常用控件,PrivateSubOpt10_Click()TxtExp.FontSize=10EndSubPrivateSubOpt18_Click()TxtExp.FontSize=18EndSubPrivateSubOptHT_Click()TxtExp.FontName=黑体EndSubPrivateSubOptST_Click()TxtExp.FontName=宋体EndSub,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.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控件,第三章VB6.0的常用控件,3.9.2焦点和Tab顺序,1.设置焦点,焦点是接收用户鼠标或键盘输入的能力。,用下面的方法可以设置一个对象的焦点：（1）在运行时单击该对象。（2）运行时用快捷键选择该对象。（3）在程序代码中使用SetFocus方法,PrivateSubForm_Load()Text1.SetFocusEndSub程序运行后，显示出错信息,PrivateSubForm_Load()Form1.ShowText1.SetFocusEndSub,3.1标签与文本框3.2图片框和图像框3.3按钮控件3.4复选框和单选框3.5列表框和组合框3.6滚动条3.7计时器3.8框架3.9窗体布局3.10使用ActiveX控件,第三章VB6.0的常用控件,2.Tab顺序,Tab顺序是在按Tab键时焦点在控件间移动的顺序。,3.10使用ActiveX控件,ActiveX控件文件的扩展名为OCX,3