高等教育第7章VisualBasic常用控件课件

1、第7章 Visual Basic常用控件 第1页，共46页。 开发应用程序的第一步就是在窗体上安排所需的控件，并设计出各控件相应的属性、方法和事件代码，来完成用户界面的设计。因此了解和掌握各控件相应的属性、方法和事件是非常有必要的，第二章已介绍过几个常用控件，本章将逐个介绍其他几个常用控件的使用。第2页，共46页。命令按钮（CommandButton）文本框（TextBox）标签（Label）窗体（Form）第3页，共46页。窗体的常用属性名称（Name）：窗体对象引用名，默认为Form1。Caption：标题属性，默认为窗体名。与Name属性的区别。Icon：图标属性（图片)BackColo

2、r、ForeColor：窗体的背景和前景色。 BorderStyle：窗体边框属性。Enabled：活动属性。缺省为“True”。Visible：可视属性。缺省值为“True”。Font：设置字体、字型、字号等）（多个控件可一起）Left、Top：决定窗体相对于显示屏位置的属性。(单位：特维）Height、Width：决定窗体大小的属性。Picture：用于设置窗体显示的图片。第4页，共46页。窗体的常用事件Click：单击窗体时触发。DblClick：双击窗体时触发。Load：使用Show方法显示窗体时触发。窗体的常用方法 Hide：隐藏方法。 Show：显示方法。 Cls ：清除方法。 P

3、rint：打印方法。第5页，共46页。Print方法举例Private Sub Form_Click( )Print a; b; c 紧凑格式 Print d, e, f 标准格式 Print 空一行 Print g, h, iEnd Sub示例第6页，共46页。标签（Label）主要用于在窗体上增加文字说明。标签有多种属性、事件和方法。 第7页，共46页。属性Caption：标签标题。为标签中具体内容。Alignment：对齐属性。AutoSize：大小自动适应属性。缺省值为“False”。BackStyle：背景风格（透明与否）。缺省值为1（不透明）BordStyle：边框风格方法Refr

4、esh：刷新；Move ：移动；方法很少用到。事件Click、DblClick：事件很少用到。第8页，共46页。功能用于接受用户在框内输入的信息，或显示由程序提供的信息。（最常用）文本框（TextBox）第9页，共46页。常用属性：Name：Text：文本属性。值为用户从文本框输入的内容。PasswordChar：口令属性。MaxLength：最大长度属性。缺省值为0。MultiLine：多行属性。值为“True”可输入多行文本。ScrollBars：滚动条属性。 Alignment、 Left、Top、Height、Width、BorderStyle、 Enabled、Font、ForeCo

5、lor等属性和窗体意义完全相同。第10页，共46页。常用方法：Refresh：刷新。SetFocus：设置焦点。常用事件Change：文本框的Text属性值发生变化时引发。LostFocus：当光标离开文本框时引发。GotFocus：当文本框获得焦点时引发。KeyPress：当用户按下或松开某个按键时引发。当用户在文本框内输入字符时，先触发KeyPress事件，然后显示输入的字符，最后触发Change事件。举例第11页，共46页。命令按钮（CommandButton）属性Caption：Cancel：取消属性。值为“True”时与按“Esc”键等同Default：缺省属性。值为“True”与按

6、回车键等同Style与Picture：风格与图片属性。 Style=0 显示Caption文本（缺省） Style=1 显示Picture图形ToolTipText：当鼠标停留在控件上时显示的文本。Enabled：活动属性第12页，共46页。方法SetFocus：设置焦点。事件Click第13页，共46页。 开发应用程序的第一步就是在窗体上安排所需的控件，并设计出各控件相应的属性、方法和事件代码，来完成用户界面的设计。下面将逐个介绍其他几个常用控件的使用。第14页，共46页。7.1 控件的公共属性 属 性说 明Name设置对象在程序代码中的引用名，运行时为只读属性Caption设置或返回窗体的

7、标题栏中、控件上面或后面的文本Font设置或返回文本的字体、字型、字号等Left 设置或返回对象的左边界距容器坐标系纵轴的距离Top 设置或返回对象的上边界距容器坐标系横轴的距离Height 设置或返回对象的高度Width设置或返回对象的宽度Alignment设置或返回一个值，决定控件中的对象的对齐方式。Enabled设置或返回一个布尔值，用来确定一个窗体或控件是否能够对用户产生的事件作出反应。Visible设置或返回一个布尔值，用来确定对象是否可见。BackColor设置或返回对象的背景色ForeColor设置或返回在对象里显示图片和文本的前景色第15页，共46页。7.2.1 鼠标事件 Mo

8、useMove 事件 当移动鼠标时引发的事件。MouseDown、MouseUp 事件 当按下（MouseDown）或者释放（MouseUp）鼠标按钮时发生。 7.2 控件的公共事件 第16页，共46页。7.2.2 键盘事件KeyPress事件 当用户按下和松开一个 键时发生。例7-1第17页，共46页。7.3 常用内部控件 第18页，共46页。属性List：列表属性。设置列表项包含的内容。 列表项的序号由上至下依次为0、1、2、3。 可以用 对象名.List（序号） 来访问列表项。ListCount：用于存储列表中所含的全部元素的个数。（计数属性，属性窗口中不显示）ListIndex：列表项

9、索引。其值为最后选中的列表项的序号，第一个为0，如果未选任何表项，则值为-1。 Text：列表项正文。其值为最后选中的列表项的文本。 7.3.1 列表框（ListBox） 用于列出可供用户选择的项目列表。用户单击鼠标，被选中的项目加亮显示。当项目较多时，还会有垂直滚动条。Text 等价于 List(List1.ListIndex)第19页，共46页。Columns：列表框显示形式。值为0（缺省）时逐行显示列表项，可能有垂直滚动条；值大于0时，列表项可占多行显示。 Sorted：排序属性。值为“false”（缺省）时，列表项不排序；值为“true”时，列表项按ASC II码排序。Style：风格

10、属性，缺省值为0；可选择1（加复选框），运行时可选多项。Selected：选择属性。当某列表项被选中时，该列表项的本属性值为“true”。否则为False。 该属性只能在程序代码中使用 。 列表框（ListBox）第20页，共46页。方法AddItem：在列表框指定位置添加列表项。格式：对象名.AddItem 列表项文本，序号列表项文本为字符串。若不指定位置，则在最后插入。 Clear：删除列表中所有项目。 RemoveItem：删除列表项。格式：对象名. RemoveItem 序号 列表框（ListBox）第21页，共46页。 AddItem 方法的使用格式:Object.AddItem ,

11、插入位置序号例1: 插入至第4行List1.AddItem “Add a line” , 3例2: 插入至末尾List1.AddItem “Add it to the last line”说明:插入位置序号必须有效.第22页，共46页。 RemoveItem方法使用格式:Object.RemoveItem 删除项序号例1: 删除第3项List1.RemoveItem 2例2: 删除当前选中的项List1.RemoveItem List1.ListIndex说明:删除项序号必须有效第23页，共46页。事件Click （常用） DbClick （较少使用）LostFocus、GotFocus等通用

12、事件第24页，共46页。Private Sub Command1_Click() List1.AddItem ghfdsEnd SubPrivate Sub Command2_Click() List1.RemoveItem 5End SubPrivate Sub List1_Click()Text1.Text = List1.TextText1.Text = List1.List(List1.ListIndex)End Sub 举例：jl_list 第25页，共46页。示例Private Sub Command1_Click()List1.AddItem Text1.Text & & Tex

13、t2.Text & & Text3.Text & & Val(Text2.Text) + Val(Text3.Text)Command1.Enabled = FalseCommand2.Enabled = TrueCommand2.SetFocusEnd SubPrivate Sub Form_Load() List1.AddItem 姓名 理论 上机 总成绩End Sub第26页，共46页。Private Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Command2.Enabled = FalseCommand1.En

14、abled = TrueCommand1.SetFocusText1.SetFocusEnd SubPrivate Sub Command3_Click()List1.ClearText1.Text = Text2.Text = Text3.Text = Text1.SetFocusList1.AddItem 姓名 理论 上机 总成绩End Sub第27页，共46页。属性Style：组合框外观属性。值为0时：有下拉式列表框的组合框。（缺省值）。值为1时：文本框和列表框的直接组合。用户可以输入文本。值为2时：无文本框，只有下拉列表框。用户不能自己输入文本，只能在列表中选择。Text：文本属性。其

15、值为在列表框中选中的文本或用户自己输入的文本。7.3.2 组合框（ComboBox）功能:将文本框和列表框组合在一起，在列表框中选择的项目会自动填入文本框。也可以向文本框中输入文本。第28页，共46页。方法： AddItem、Clear、RemoveItem (使用方法同lisibox)事件：Click（风格为0或2）DbClick（风格为1）GotFocusLostFocus Change：带有文本框时（风格为0或1），在编辑文本时引发。 组合框（ComboBox）第29页，共46页。举例：1.输入文本，自动加入下拉列表框Private Sub Combo1_Change()Combo1.A

16、ddItem Combo1.TextEnd Sub第30页，共46页。用于在多个选项中选择一个。通常由两个或两个以上的单选按钮组成选项按钮组，这些按钮在同一时刻只能选择一个。 属性Value：确定单选按钮是否被选中。值为“True”则被选中，值为“False”则未被选中。Caption: 单选按钮上的说明文字。Alignment:事件Click GotFocus LostFocus 7.3.3 选项按钮（OptionButton）第31页，共46页。属性Value：值为“0”表示未选中，值为“1” 表示选中，值为“2”表示不能访问。Caption: 说明文字。Alignment:7.3.4 复

17、选框（CheckBox）用于在一组选项中同时选择多个选项。事件：Click GotFocus LostFocus 可利用框架控件或图片框控件作为选项按钮组的“包容器”第32页，共46页。用于把其他控件组织在一起。 注意：一定要先放框架，然后在框架内放选项按钮或复选框等。移动框架时，框架内的控件将跟着一起移动。7.3.5 框架控件（Frame）框架示例第33页，共46页。一个显示图像的控件。它可以显示.BMP、.ICO、.WMF、.GIF、.JPG等格式的文件。 属性Picture：用来显示一幅图。 Stretch：伸缩属性。在改变控件的大小时，若Stretch值为“False”（缺省）时，图像

18、不随控件大小缩放；值为“True”时，图像随控件大小缩放。 方法Move Refresh 事件 ：基本与窗体相同。7.3.6 图像控件（Image）举例第34页，共46页。图片框功能更强，不仅可以显示图形和文本，还提供了更多的功能和绘图方法，解决了图像控件只能装入现存文件的局限。它的属性要比图像控件的属性多得多。另外，其它控件（如选项按钮）可成组放入图片框控件，建立一组选项按钮组。图像控件和图片框控件的具体应用见第11章。 属性Picture：用来显示一幅图（fj3）。 方法Print:在图片框中显示内容。Cls：PSet：画点。Line：画线。 Circle：画圆或椭圆。 7.3.7 图片框

19、（PictureBox）举例第35页，共46页。有水平滚动条和垂直滚动条。 属性Min：滚动块在顶端或左端时所代表的值。（取值范围：-3276732767）Max：滚动块在底端或右端时所代表的值。（取值范围：-3276732767）LargeChange：当用户单击滚动条上的空白位置（左右或上下）时的增减值。SmallChange：当用户单击两侧的箭头时的增减值。Value：滚动条当前的值。是一整数，缺省值为0。 7.3.8 滚动条（ScrollBar）第36页，共46页。事件Change：滚动条的值发生变化时发生。（移动滚动块结束或单击滚动箭头或单击滚动条后引发）Scroll：只有在移动滚动

20、块时引发，单击滚动箭头或单击滚动条时不引发。滚动条（ScrollBar）举例第37页，共46页。用于在指定的时间后引发Timer事件,然后有规律的执行该Timer事件过程中的程序代码.设计时可见，运行时不可见。 属性Interval（间隔），该属性值决定两次调用Timer事件的时间间隔，单位为毫秒，缺省值为0。Enabled：活动属性(True/False)。方法：无事件：Timer：经过设定的时间间隔后引发，直到停止活动。即Enabled设置为False。 7.3.9 计时器（Timer） 举例 时钟程序第38页，共46页。 小 结掌握每个控件的常用属性、方法、事件；掌握控件方法的同时，要了

21、解参数的含义；通过编程，加深属性、方法、事件的记忆和理解；第39页，共46页。实 验 作 业实验书P 178190 页 实验6-1实验6-5第40页，共46页。7.4 常用ActiveX控件Visual Basic6.0的控件可分为三类：内部控件、ActiveX控件和可插入的对象。内部控件存在于Visual Basic6.0的.exe文件中；ActiveX控件是扩展名为.ocx的独立文件 第41页，共46页。将ActiveX控件加入工具箱的步骤为：单击“工程”菜单中“部件”命令单击“控件”选项卡，根据需要，将要添加到工具箱中的ActiveX控件名左边的复选框选定。单击“确定”按钮。第42页，共46页。常用ActiveX控件 ActiveX控件功能CommonDialog提供一组标准对话框，如“打开”、“保存”、“打印”等DBGrid对Data控件中的Recordsets集合进行显示或操作DBCombo显示与之相连的Data控件中的数据的组合框，并能自动更新DBList显示与