VB第4章-常用控件

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,第四章,常用控件,4.1,使用文本框处理字符信息,4.2,使用标签控件显示字符信息,4.3,善于使用命令按钮,4.4,利用 滚动条控件进行输入,4.5,图片框控件,4.1,使用文本框处理字符信息,使用文本框既可输出或显示信息，又可在其中输入和编辑文本，有时把文本框也称为编辑区,文本框中可以指定所显示或输入的文本的字体、字号,注意,:,一个文本框中的文字只能是同一种字体和字号，若一个文本框中的文字能有多种字体、字号，需要使用其他控件。,文本框的简单使用,例,1,设计一个程序，从键盘上输入两个数，计算这两个数的和，并将计算结果显示出来。,文本框控件的作用,:,输入和显示信息的。,对象,属性,设置,窗体,（名称）,frmExample1,Caption,文本框使用例,1,文本框,1(被加数),（名称）,txtOp1,Text,?,文本框,2(“+”号),（名称）,txtOp2,Text,+,TabStop,False,文本框,3(加数),（名称）,txtOp3,Text,?,文本框,4(“=”号),（名称）,txtOp4,Text,=,文本框,5(结果),（名称）,txtResult,Text,?,命令按钮,1,（名称）,cmdAdd,Caption,加法运算,命令按钮,2,（名称）,cmdClear,Caption,清除,命令按钮,3,（名称）,cmdExit,Caption,退出,文本框的简单使用,对象,前缀,举例,Form(,窗体,),frm,frmDemo,CheckBox(,选择框,),chk,chkInput,ComboBox(,组合框,),cbo,cboInfo,CommandButton(,命令按钮,),cmd,cmdStart,DirectoryListBox(,目录列表框,),dir,dirList,DriveListBox(,驱动器列表框,),drv,drvDisplay,FileListBox(,文件列表框,),fil,filTarget,Frame(,框架,),fra,fraFont,HscrollBar(,水平滚动条,),hsb,hsbRate,Image(,图像框,),img,imgSun,Label1(,标签,),lbl,lblMessage,Line(,画线控件,),lin,linHorizontal,ListBox(,列表框,),lst,lstName,Menu(,菜单,),mnu,mnuDatabase,OptionButton(,单选按钮,),opt,optEnglish,OLEClient(OLE,客户控件,),ole,oleObjectA,PictureBox(,图片框,),pic,picSource,Shape(,形状控件,),shp,shaSquare,TextBox(,文本框,),txt,txtGetString,Timer(,计时器,),tmr,tmrClock,VscrollBar(,垂直滚动条,),vsb,vsbYear,为了提高程序可读性，建议用能反映对象性质的,3,个小写字母作为对象名字的前缀,(,见右表,),按照系统建议的命名规则将例,1,的,Command1,改成,cmdAdd,。,文本框的简单使用,1,编写“加法运算”命令按钮事件过程,切换到“加法运算”命令按钮的代码窗口，编写事件过程：,Private Sub cmdAdd_Click(),Dim op1 As Integer, op2 As Integer,Dim Sum As Integer,op1 = Val(txtOp1.Text),op2 = Val(txtOp3.Text),Sum = op1 + op2,txtResult.Text = Str$(Sum),End Sub,文本框所接收的是字符型数据，用,Val,函数将字符型转换成数值型数据,。,文本框的简单使用,2,编写“清除”命令按钮事件过程,“清除”操作 的作用是清除文本框,1,、,3,、,5,（即,txtOp1,、,txtOp3,和,txtResult,）中原有的信息，以便输入和输出数据。,Private Sub cmdClear_Click(),txtOp1.Text = ,txtOp3.Text = ,txtResult.Text = ,End Sub,清空文本框的内容,文本框的简单使用,3,设置焦点,（,1,）用,SetFocus,方法设置焦点,SetFocus,是,VB,提供的一种设置焦点的“方法”,。设置焦点实际上就是激活所要操作的控件。可以在,cmdClear,事件过程的最后加入下面的语句，设置当前焦点。,txtOp1.SetFocus,单击“清除”命令按钮后，除了将三个“？”清除，还自动将焦点设在文本框,txtOp1,。用户可以直接向文本框,txtOp1,输入数据，而不必先单击该文本框，再输入数据。,文本框的简单使用,（,2,）用,TabIndex,属性，当按,Tab,键时使焦点转移,文本框和命令按钮均有属性,TabIndex,，其值是按照窗体内各控件从工具箱中添加的顺序自动确定的。,请注意：,TabIndex,的值是从,0,开始的。,不仅文本框具有,TabIndex,属性，而且命令按钮也具有。所有具有此属性的控件的,TabIndex,值按控件建立的先后统一编排序号。,按,Tab,键可以按照,TabIndex,值的顺序到达相应的文本框或命令按钮。本例中有些控件不应接受焦点，比如（,+,、,=,）。,文本框的简单使用,（,3,）用,TabStop,属性使某个控件“轮空”,一般控件的,TabStop,属性的默认值为,True,（真），表示按,Tab,键时光标移到该控件处“停下来”。由属性设置表可知，文本框,txtOp2,的,TabStop,属性值为,False,（假），当按下,Tab,键时光标在该控件处不停留,（,4,）可以改变控件的,TabIndex,属性值,改变,TabIndex,值，可改变按,Tab,键时焦点变化的顺序。,（,5,）可以用“回车”键代替用鼠标单击命令按钮,如果焦点当前在某一命令按钮上，则可以用“回车”键代替用鼠标单击该命令按钮的操作。,文本框的属性、事件和方法,1,利用文本框的,Change,事件,例：在窗体上画出,3,个文本框和两个命令按钮，如图。程序运行时，要求在第一个文本框内输入一行文字时，在另外两个文本框中同时显示出相同的内容，但显示的字体大小不同。最多只能输入,20,个字符。,文本框的属性、事件和方法,属性值设置如表。,文本框,txtShow1,的,MaxLength,属性，用于设置文本框可输入的字符数最大值，系统默认值为,0,，表示字符输入的个数没有限制。本题要求将,MaxLength,设置成值,20,，即最多只能输入,20,个字符。,对象,属性,设置,窗体,（名称）,frmExample3,Caption,文本框使用例,2,文本框,1,（名称）,txtShow1,Text,空,MaxLength,20,文本框,2,（名称）,txtShow2,Text,（置空）,文本框,3,（名称）,txtShow3,Text,（置空）,命令按钮,1,（名称）,txtClear,Caption,清除文本框,命令按钮,2,（名称）,txtExit,Caption,退出,文本框的属性、事件和方法,此题目的是说明文本框,Change,事件的使用方法。,触发,Change,事件的条件：文本框的内容发生变化。,本例题当从键盘向文本框,txtShow1,输入任何内容时，即改变文本框,txtShow1,的,Text,属性值时，就会发生,Change,事件，执行,Change,事件过程。,Private Sub txtShow1_Change(),txtShow2.Text = txtShow1.Text,txtShow2.FontSize = 18,txtShow3.Text = txtShow1.Text,txtShow3.FontSize = 24,End Sub,文本框的属性、事件和方法,运行程序，图是输入,Visual Basic,的界面效果,单击“清除文本框”命令按钮，执行,cmdClear_Click(),过程，初始化三个文本框。,单击“退出”命令按钮，执行以下事件过程，结束程序的运行。,文本框的属性、事件和方法,2,设置密码,例：程序设计者事先设定（在程序中设定）一个密码为“,PassWord,”。要求用户在一个文本框中输入密码，然后单击“校验密码”命令按钮，程序核对用户输入的密码与事先设定的密码是否一致。如果一致,则继续执行其它功能，若不一致输出警告信息。界面如下图所示。,文本框的属性、事件和方法,设置对象和设置属性，见表。,文本框的,PasswordChar,属性设为*,，能够很容易地实现题目的要求。,从键盘输入“,abc,”，则在文本框中显示出“,*,”,对象,属性,设置,窗体,（名称）,Form1,Caption,文本框使用例,3,文本框,1,（名称）,txtPW,Text,空白,PasswordChar,*,文本框,2,（名称）,txtShow,Text,（置空）,命令按钮,1,（名称）,cmdCheck,Caption,校验密码,命令按钮,2,（名称）,cmdClear,Caption,清除,命令按钮,3,（名称）,cmdExit,Caption,退出,。,文本框的属性、事件和方法,窗体上有两个文本框，一个用来接受用户输入的密码，一个用来显示验证结果的信息。 “校验密码”命令按钮的单击事件过程如下：,Private Sub cmdCheck_Click(),Dim pass As String,pass = txtPW.Text,If pass = PassWord Then,txtShow.Text = ,密码正确,继续进行,!,Else,txtShow.Text = ,密码错,重新输入,!,End If,End Sub,本例是一个简化程序，在校验密码无误后只输出一条信息“密码正确，继续进行！”。在实际应用中，校验密码无误后应按程序的要求,执行相应的功能。,文本框的属性、事件和方法,3,多行文本框,例,:,设计一程序，用户界面由一个文本框和一个命令按钮组成，在程序中输入一段文字，当单击命令按钮时，在文本框中将这一段文字显示出来。界面如右图所示。,文本框的属性、事件和方法,在窗体上添加一个文本框和两个命令按钮,选中文本框（单击该文本框），到文本框的属性表中找到,Multiline,（多行） 属性，单击此属性，将,False,改成,True,，表示该文本框为多行文本框。,按照右表设置其它属性值,。,对象,属性,设置,窗体,（名称）,frmExample4,Caption,文本框使用例,4,文本框,（名称）,txtMultiline,Multiline,True,Text,（置空）,FontName,隶书,命令按钮,1,（名称）,cmdShow,Caption,显示文本,命令按钮,2,（名称）,cmdExit,Caption,退出,文本框的属性、事件和方法,以下过程，在文本框中放入一段文字：,Private Sub cmdShow_Click(),txtMultiline.Text = ,txtMultiline.Text = ,程序运行中，需要通过键盘接收用户输入的信息,或把有关信息显示在屏幕上。在,Visual BASIC,中，可以用文本框和标签实现接收信息和显示信息。,End Sub,运行程序，单击“显示文本”命令按钮，这段文字就会在文本框中显示出来。运行结果见右图。,文本框的属性、事件和方法,若文字过长，文本框不能全部显示，可加滚动条,ScrollBar,属性用设置是否加上滚动条。有四个属性值：,0,（,None,）,-,不加滚动条，它是默认值。,1,（,Horizontal,）,-,只加水平滚动条。当加入水平滚动条后，文本框的自动换行功能便消失了；,2,（,Vertical,）,-,只加垂直滚动条；,3,（,Both,）,-,既加入水平滚动条又加入垂直滚动条。,文本框的一个特点是进入运行状态后，无需编写任何代码就可以在输入或编辑时，使用以下几个快捷键：,CTRL + X ,剪切,CTRL + C ,复制,CTRL + V ,粘贴,字体与字型的控制,例：设计一个程序，使用文本框字体和字号属性改变文本框中文字字体和字号。,在窗体上画一个名称为,txtText,的文本框和,4,个命令按钮，命令按钮的名称分别为,cmdFont1,、,cmdFont2,、,cmdFontSize1,、,cmdFontSize2,，标题分别为“宋体”、“黑体”、“,14,磅”、“,18,磅”。界面如右图,所示。,执行,Form_Load,事件过程，在文本框中显示一段文字。代码如下：,Private Sub Form_Load(),txtText.Text = “,通过属性设置文本,框的字体与字号,End Sub,字体与字型的控制,文本框的,字体,由,FontName,属性设置。,设置字体的事件过程如下：,Private Sub cmdFont1_Click(),txtText.FontName = ,宋体,End Sub,Private Sub cmdFont2_Click(),txtText.FontName = ,黑体,End Sub,单击“宋体”命令按钮，执行,cmdFont1_Click,事件过程，将文本框的字体名称属性,txtText.FontName,设置为“宋体”，其中的文字随之变为宋体。同样，单击“黑体”命令按钮，可以将文本框的文字字体改为黑体。,字体与字型的控制,FontSize,属性用于设置字体的,大小,。分别单击“,14,磅”、“,18,磅”命令按钮，将字号改为,14,磅或,18,磅。代码如下：,Private Sub cmdFontSize1_Click(),txtText.FontSize = 14,End Sub,Private Sub cmdFontSize2_Click(),txtText.FontSize = 18,End Sub,结果如右图所示。,字体与字型的控制,“宋体”命令按钮的事件过程将,FontName,属性设置为宋体：,Private Sub cmdFont1_Click(),txtText.FontName = ,宋体,End Sub,“黑体” 命令按钮的事件过程将,FontName,属性设置为黑体,Private Sub cmdFont2_Click(),txtText.FontName = ,黑体,End Sub,字体与字型的控制,FontSize,属性用于设置字体的,大小,。分别单击“,14,磅”、“,18,磅”命令按钮，可以将字号改为,14,磅或,18,磅。代码如下：,Private Sub cmdFontSize1_Click(),txtText.FontSize = 14,End Sub,Private Sub cmdFontSize2_Click(),txtText.FontSize = 18,End Sub,字体与字型的控制,设置文本框文本显示风格的属性：,FontItalic,属性用来设置字体输出的形式是否为,斜体,，它有两种选择，属性值为,True,（,-1,）为斜体，属性值为,False(0),不是斜体。,FontUnderline,属性,用来设置是否为输出的文本加,下划线,，有两种选择，属性值为,True,（,-1,）加下划线，属性值为,False,（,0,）不加下划线。,FontBold,属性,用来设置字体是否为,粗体,，如果属性值设置为,True,（,-1,），输出的字体为粗体，属性值设置为,False,（,0,），输出的字体不为粗体。,4.2,使用标签控件显示字符信息,标签控件的作用是按指定格式显示文字信息，往往用做说明或提示。,例如，修改例题，将其中的运算符“,+,”和运算结果改用标签显示。如图,4.2,使用标签控件显示字符信息,使用标签为每个文本框加上说明,各对象以及其属性设置如表,标签的,BorderStyle,属性用于设定标签是否有边界,。,对象,属性,设置,窗体,（名称）,Form1,Caption,标签使用,文本框,1,（名称）,txtOp1,Text,?,文本框,2,（名称）,txtOp2,Text,?,标签,1,（名称）,lblOp1,Caption,被加数,BorderStyle,0,标签,2,（名称）,lblOp2,Caption,加数,BorderStyle,0,标签,3,（名称）,lblOp3,Caption,+,BorderStyle,0,标签,4,（名称）,lblOp4,Caption,结果,BorderStyle,0,标签,5,（名称）,lblResult,Caption,?,BorderStyle,1,命令按钮,1,（名称）,cmdAdd,Caption,=,命令按钮,2,（名称）,cmdClear,Caption,清除,命令按钮,3,（名称）,cmdExit,Caption,退出,4.2,使用标签控件显示字符信息,文本框,1,和文本框,2,是用来输入运算数的。运算结果显示在标签控件。事件过程如下：,Private Sub cmdAdd_Click(),Dim op1 As Integer, op2 As Integer,Dim Sum As Integer,op1 = Val(txtOp1.Text),op2 = Val(txtOp2.Text),Sum = op1 + op2,lblResult.Caption = Str$(Sum),End Sub,4.2,使用标签控件显示字符信息,标签控件的常用属性,:,1,Alignment,属性,Alignment,属性用于指定显示的信息在标签中的位置，,3,个属性值：,0,左对齐，,1,右对齐，,2,居中。,2.AutoSize,属性,AutoSize,属性用于设置标签的大小是否自动按标签中所显示内容的多少进行调整：,属性值为,True,，能随其中文字的多少和大小而改变标签大小；,属性值为,False,时,，则超出标签显示范围的文字被截掉。,4.2,使用标签控件显示字符信息,3.BorderStyle,属性,BorderStyle,属性用于设置标签有无边框。,属性值为,0,时，标签控件没有边框；,属性值为,1,时标签控件有单线边框。,4.Caption,属性,Caption,属性用于设置要在标签中显示的内容。,5.Left,属性,Left,属性值是标签与窗体左边界之间的距离。,Left,属性与下面介绍的,Top,属性能够确定标签在窗体上的位置。,4.2,使用标签控件显示字符信息,6.Name,属性,Name,属性用于设置标签控件的名字，这个名字是程序中所使用的，在窗体上看不到。,7,Top,属性,Top,属性用于设置标签与窗体上边界之间的距离。,Top,属性和,Left,属性能够确定标签在窗体上的位置。,8.WordWrap,属性,WordWrap,属性用于设置标签中所显示的内容是否能够自动折行。默认值为,False,，将标签的内容显示在一行中。若文字超出范围，自动截去多余部分。,WordWrap,为,True,，标签中的文本能够自动折行。,4.3,善于使用命令按钮,4.3.1 Enabled,属性使命令按钮可用或不可用,控件的,Enabled,（可用）属性的作用是控制控件是否可用。,当,Enabled,属性值为,True,（,-1,）时,，表示控件可用；,当属性值为,False(0),时，,控件“不可用”（即暂时失效）,系统默认的,Enabled,属性值为,True(-1),，即控件“可用”。,4.3.1 Enabled,属性使命令按钮可用或不可用,例,:,设计一个程序，窗体上有一个图片框及,2,个命令按钮。运行程序后，“隐藏图片”命令按钮不可用，如图所示。,对象,属性,设置,窗体,（名称）,Form1,命令按钮,1,（名称）,cmdShow,Caption,显示图片,命令按钮,2,（名称）,cmdHide,Caption,隐藏图片,Enabled,False,命令按钮,3,（名称）,cmdExit,Caption,退,出,图片框,（名称）,picFigure,AutoSize,True,4.3.1 Enabled,属性使命令按钮可用或不可用,题目要求在运行程序后，单击“显示图片”按钮时，在图片框中显示一个图片，同时使“显示图片”按钮失效，“隐藏图片”命令按钮变为可以使用。事件过程如下：,Private Sub cmdShow_Click(),picFigure.Picture = LoadPicture(D:userfigure.bmp),cmdShow.Enabled = False,cmdHide.Enabled = True,End Sub,4.3.1 Enabled,属性使命令按钮可用或不可用,“,隐藏图片”按钮的事件过程如下：,Private Sub cmdHide_Click(),picFigure.Picture = LoadPicture(),cmdShow.Enabled = True,cmdHide.Enabled = False,End Sub,4.3.2,用,Visible,属性使命令按钮“不可见”,为使界面简洁，可将暂时不用的控件变成“不可见”。,Visible(,可见,),属性,可以用于控制命令按钮在屏幕上是否能被看得见。,当,Visible,属性值为,True,（,-1,）,时，命令按钮可以被看见；,若为,False(0),，则命令按钮被“隐藏”起来，在屏幕上不显示。（实际该按钮依然存在）,Enabled,和,Visible,属性可用于窗体或其他控件，其作用基本相同。,4.3.3 Default,属性和,Cancel,属性,Default,属性：,当命令按钮的,Default,属性值被设置为,True,时，该按钮就被确定为默认的“活动按钮”，可用回车键代替单击该按钮来选择它，当为,False,时，它不是默认的“活动按钮” 。,在一个窗体中，只能有一个命令按钮的,Default,属性值被设置为,True,。,Cancel,属性：,指定命令按钮为“取消按钮”，按下键盘上 “,Esc,”键代替该按钮。,Cancel,属性值为,True,时，该按钮被指定为“取消按钮”，,为,False,时，则不是“取消按钮”，不能用,Esc,键代替单击该命令按钮。,在,个窗体只能有一个命令按钮的,Cancel,属性值被设置为,True,4.3.3 Default,属性和,Cancel,属性,例：设计一个程序，使用,Default,、,Cancel,及,Visible,属性。在窗体上画,2,个命令按钮和,4,个标签，见图：,程序运行，若单击“确定（,O,k,）”，则“确定（,O,k,）”命令按钮成为不可见的，同时在两个空白的标签中显示出当前日期和时间，单击“撤消（,E,sc,）”命令按钮就结束运行。,运行时窗体外观,4.3.3 Default,属性和,Cancel,属性,对象,属性,设置,窗体,（名称）,Form1,Caption,命令按钮的,Default和Cancel属性,标签,1,（名称）,lblTitle1,Caption,今天的日期,标签,2,（名称）,lblTitle2,Caption,现在的时间,标签,3,（名称）,lblDate,Caption,置空,BorderStyle,1-Fixed Single,标签,4,（名称）,lblTime,Caption,（置空）,BorderStyle,1-Fixed Single,命令按钮,1,（名称）,cmdOk,Caption,确定（,&OK）,Default,True,命令按钮,2,（名称）,cmdCancel,Caption,撤消（,&Esc）,Cancel,True,命令按钮,1cmdOK,的,Default,属性为,True,，即指定此命令按钮为默认的“活动按钮”,命令按钮,2cmdCancel,的,Cancel,属性值为,True,，即指定为“取消按钮”。,在标签,1,中显示“今天的日期”，标签,2,中显示“现在的时间”。,4.3.3 Default,属性和,Cancel,属性,“确定（,O,k,）”命令按钮的单击事件过程：,Private Sub cmdOk_Click(),cmdOk.Visible = False,lblDate.Caption = ,日期,: + Date$,lblTime.Caption = ,时间,: + Time$,End Sub,cmdOk_Click,过程的第,1,行是使命令按钮,cmdOk,不可见。,然后，在标签,lblDate,内显示当前日期，在标签,lblTime,内显示当前时间。,运行程序时，可单击“确定（,O,k,）”按钮，也可以用按回车键代替单击“确定”按钮的操作。,Date$,是一个日期函数，其函数值是一个表示日期的字符串,Time$,是时间函数，以“,hh:mm:ss,”字符串形式表示当前时间,4.3.3 Default,属性和,Cancel,属性,另一种形式的命令按钮是带图案的命令按钮。具体做法是,（,1,）添加一个命令按钮；,（,2,）设置,Caption,属性，即命令按钮上显示的文字。,（,3,）设置该按钮的,Style,属性为,1,；,（,4,）选择按钮的,Picture,属性，单击右侧的“,”按钮，在“加载图片”对话框中选择一个图片文件，单击“打开”按钮，将该图片放到命令按钮上。,下图就是一个图片风格的命令按钮,4.4,利用 滚动条控件进行输入,水平滚动条,图标,和垂直滚动条,除了方向不同外，其功能和操作是一样的。,滚动条两端各有一个滚动箭头，在滚动箭头之间有一个滚动块。滚动块从一端移至另一端时，其值在不断变化。,Value,：滚动条的当前值。,垂直滚动条的最上端代表最小值，最下端代表最大值。水平滚动条则是左端代表最小数值，右端代表最大值。,min,属性和,max,属性：,滚动条的取值范围，系统规定其值的范围从,-32768,到,32767,。,4.4,利用 滚动条控件进行输入,例：在窗体上画三个水平滚动条，分别对应三种基本颜色，滚动条的不同取值，对应不同的颜色值。这样构成一个简易的窗体背景色调色板。每个滚动条值的变化范围是,0,255,。窗体外观如图所示。,4.4,利用 滚动条控件进行输入,属性设置见表：,对象,属性,设置,窗体,（名称）,Form1,Caption,设置窗体背景色,水平滚动条,1,（名称）,HsbRed,Max,255,Min,0,Value,0,水平滚动条,2,（名称）,HsbGreen,Max,255,Min,0,Value,0,水平滚动条,3,（名称）,HsbBlue,Max,255,Min,0,Value,0,标签,1,（名称）,lblTitleRed,Caption,红,标签,2,（名称）,lblTitleGreen,Caption,绿,标签,3,（名称）,lblTitleBlue,Caption,蓝,标签,4,（名称）,lblRed,Caption,（置空）,标签,5,（名称）,lblGreen,Caption,（置空）,标签,6,（名称）,lblBlue,Caption,（置空）,4.4,利用 滚动条控件进行输入,改变滚动条滑块位置时，产生,Change,事件。例如改变红颜色对应的滚动条的滑块，会触发,hsbRed_Chang,事件过程，过程如下：,Private Sub hsbRed_Change(),Form1.BackColor = RGB(hsbRed.Value, hsbBlue.Value, hsbGreen.Value),lblRed.Caption = hsbRed.Value,End Sub,用滚动条的,Value,属性当前值作为,RGB,函数的参数，设置窗体的背景色，并将该,Value,值显示在相应的标签中。其他两个滚动条的,Change,事件过程类似。,4.4,利用 滚动条控件进行输入,滚动条除了可以响应,Change,事件外，还可以响应,Scroll,事件。,Scroll,事件是拖动滚动块而产生的，如果只单击两端箭头或单击箭头与滚动块之间的滚动条，只产生,Change,事件而不产生,Scroll,事件。,若拖动滚动块，只要拖动的动作在继续，就会不断产生,Scroll,事件，当拖动停止，,Value,属性值发生了变化，则产生,Change,事件。,4.5,图片框控件,图片框（,PictureBox,）工具和图像框,(Image),工具可用于装载图文件。,VB,中支持以下几种类型的图形文件：,位图（,bitmap,）文件，其文件扩展名为,.bmp,。,图标（,icon,）文件，其文件扩展名为,.ico,。,Windows,元文件（,metafile,）,文件扩展名为,.wmf,。,JPEG,文件，文件扩展名为,JPG,，这也是,Internet,上流行的一种压缩位图文件格式。,GIF,文件，文件扩展名为,GIF,，也是,Internet,上流行的一种压缩位图文件格式。,4.5,图片框控件,AutoSize,属性：能否自动改变尺寸,当设置,AutoSize,属性值为,True,时，图片框的大小随着图形的实际大小自动调整尺寸以适应图形的尺寸。,当设置,AutoSize,属性值为,False,时，图片框不能自动调整尺寸。,4.5,图片框控件,例：使用,LoadPicture,函数加载图片。,单击“装载”命令按钮时执行,cmdLoad_Click,事件过程，把图形加载到图片框。事件过程代码如下：,Private Sub cmdLoad_Click(),Picture1.Picture = LoadPicture(,“,e:yuanVBclock.wmf,”,),End Sub,LoadPicture,函数的作用是把图形文件调入内存。它的一般形式为：,对象,.Picture = LoadPicture,（,“,文件名,”,）,4.6,图像框控件,图像框（,Image,）,用来装载图形文件，使用方法与图片框类似。既可以在设计阶段给,Image,控件的,Picture,属性赋值（赋予一个图形文件的名字），也可以在运行阶段通过,LoadPicture,函数装入图形文件。,图像框与图片框的不同之处：,（,1,）图像框比图片框占内存少，为了节省内存，一般应尽量用图像框，除非图像框不能满足使用要求。,4.6,图像框控件,（,2,）图片框控件内可以放置其它控件。如果移动图片框，则其中的控件随着图片框一起移动。,图像框则不然，图像框中的控件与其彼此独立,（,3,）,将图形文件装入图片框时，图形不能随图片框的尺寸调整大小。如果其,AutoSize,属性为,True,时，图片框可以按照图片的大小调整自身的大小，以便适应图形的大小（注意：不是图形改变大小）。,图像框有一个,Stretch,（拉伸）属性。当,Stretch,的值为,True,时，图形能自动变化大小以适应图像框的尺寸。,4.6,图像框控件,例：使用图像框显示奖杯图案。本例的目的是将一个图形文件放到图像框中。改变图像框的大小，观察图形是否随之改变大小。效果如下图,：,对象,属性,设置,图像框,(,名称,),Image1,Picture,e:yuanVBtrophy.wmf,Stretch,True,命令按钮,1,(,名称,),cmdChangeW,Caption,改变宽度,命令按钮,2,(,名称,),cmdChangeHW,Caption,改变宽和高,命令按钮,3,(,名称,),cmdReset,Caption,恢复原尺寸,命令按钮,4,(,名称,),cmdExit,Caption,退出,4.6,图像框控件,针对各个命令按钮，编写事件过程：,(1),单击“改变宽度”命令按钮所触发的事件过程：,Private Sub cmdChangeW_Click(),Image1.Left = Image1.Left - Image1.Width / 2,Image1.Width = Image1.Width * 2,End Sub,(2),单击“改变宽和高”命令按钮所触发的事件过程：,Private Sub cmdChangeHW_Click(),Image1.Left = Image1.Left - Image1.Width / 2,Image1.Height = Image1.Height * 2,Image1.Width = Image1.Width * 2,End Sub,4.6,图像框控件,(3),单击“恢复原尺寸”命令按钮所触发的事件过程：,Private Sub cmdReset_Click(),Image1.Left = 2100,Image1.Top = 600,Image1.Height = 500,Image1.Width = 600,End Sub,恢复图像框原来的位置（左上角距窗体左上角水平距离,2100,，垂直距离,600,）和大小（高,500,，宽,600,）。,4.7,计时器控件,“计时器”控件：每隔一定的时间间隔就触发一次,Timer,事件（可理解为报时）。,根据计时器的这个特性，依照时间控制某些操作，或用于计时。,4.7,计时器控件,例：在窗体上添加图片框、计时器及标题分别为“开始”、“停止”的命令按钮。单击“开始”按钮，图片框每隔,1,秒钟向右移动,50,。单击“停止”按钮，图片框停止移动。,为实现图片框的移动，添加计时器控件。程序运行时，计时器控件不显示在窗体上，因此计时器控件在窗体上的位置对程序没有影响。,对象,属性,设置,图片框,(,名称,),Picture1,Picture,e:yuanVBtrophy.wmf,计时器,(,名称,),Timer1,Interval,1000,Enabled,False,命令按钮,1,(,名称,),cmdStart,Caption,开始,命令按钮,2,(,名称,),cmdStop,Caption,停止,4.7,计时器控件,属性窗口中，计时器控件的,Enabled,属性被设置为,False,，也就是说程序开始运行时，计时器控件是不可用的。,当单击“开始”按钮时，计时器控件,Enabled,属性被设置为,True,，计时器控件才开始工作，按照设定的时间间隔触发,Timer,事件过程。,Private Sub cmdStart_Click(),Timer1.Enabled = True,End Sub,4.7,计时器控件,计时器控件的,Interval,属性：设置时间间隔，时间单位是毫秒。,本题将该属性设置为,1000,，即时间间隔为,1,秒，每隔,1,秒钟就会触发计时器的,Timer,事件过程。,Private Sub Timer1_Timer(),Picture1.Left = Picture1.Left + 50,End Sub,单击“停止”命令按钮时，触发,cmdStop_Click,事件过程，将计时器控件的,Enabled,属性设置为,False,，使之不可用。,Private Sub cmdStop_Click(),Timer1.Enabled = False,End Sub,本章结束了！,