Visual Basic程序设计实用教程 教学课件 ppt 作者 匡松 缪春池 VB第2章
VB程序设计与数据库应用,1,第2章 常用控件的使用,2.1 Visual Basic 的控件类型 2.2 常用标准控件的使用 2.3 综合应用简易计算器的设计,VB程序设计与数据库应用,2,2.1 Visual Basic的控件类型,（1）标准控件 由Visual Basic的可执行文件提供，启动后出现在工具箱里，不能添加和删除。 （2）ActiveX控件 扩展名为.ocx的独立文件，又称为OLE控件或定制控件。 （3）可插入控件 可添加到工具箱中的对象，当作控件使用。,VB程序设计与数据库应用,3,2.2 常用标准控件的使用,2.2.1 文本框控件 文本框控件不仅可以用来显示文本，而且还可在程序运行中接收用户输入的文本。例如，启动Windows登录时用于输入用户名和密码的控件就是文本框。在工具箱上用鼠标双击TextBox按钮，在窗体中添加文本框（TextBox）控件。,VB程序设计与数据库应用,4,2.2 常用标准控件的使用,2.2.2 标签控件 标签控件常常用于显示文字信息。在工具箱上用鼠标双击Label按钮，即可在窗体中添加标签（Label）控件。标签控件和文本框控件的区别在于：标签控件可以显示文本，但不能在程序运行中输入文本。 标签控件常用的属性有Name、Caption、Alignment、Visible、Appearance、BackStyle、BorderStyle、FontSize、AutoSize和WordWrap。,VB程序设计与数据库应用,5,2.2 常用标准控件的使用,2.2.3 图形控件 Visual Basic的图形控件有4种：图片框、图像框、直线和形状。 在工具箱上双击PictureBox按钮，可在窗体中添加图片框（PictureBox）控件。图片框主要用来显示位图BMP、GIF、JPEG、图标Icon等格式的图片文件。,VB程序设计与数据库应用,6,2.2 常用标准控件的使用,2.2.4 命令按钮控件 在工具箱上双击CommandButton按钮，可在窗体中添加命令按钮（CommandButton）控件。大部分Visual Basic应用程序中都包含CommandButton控件，通过单击命令按钮，就会调用命令按钮的Click事件过程。 命令按钮控件常用的属性有Name、Caption、Default、Cancel、Enabled、Visible和ToolTipText等。,VB程序设计与数据库应用,7,2.2 常用标准控件的使用,2.2.5 单选按钮控件 在工具箱上双击OptionButton按钮，可在窗体中添加单选按钮（OptionButton）控件。单选按钮控件主要用于将不同选项提供给用户进行选择。在一组单选按钮中，只能选择其中的一个。单选按钮控件常用的属性有Name、Caption、Alignment、Visible和Value。,VB程序设计与数据库应用,8,2.2 常用标准控件的使用,2.2.6 复选框控件 在工具箱上双击CheckBox按钮，可在窗体中添加复选框（CheckBox）控件。复选框控件主要用于将不同选项提供给用户进行选择。与单选按钮最大的区别在于在一组复选框中，可以选择一个或多个选项。 复选框控件常用的属性有Name、Caption、Alignment、Visible和Value等。,VB程序设计与数据库应用,9,2.2 常用标准控件的使用,2.2.7 列表框控件 在工具箱上双击ListBox按钮，即可在窗体中添加列表框（ListBox）控件。列表框控件主要用于用户进行多个项目的选择。 列表框控件常用的属性有Name、Columns、List、ListCount、ListIndex、MultiSelect、Selected、SelCount、Sorted和Text等。,VB程序设计与数据库应用,10,2.2 常用标准控件的使用,2.2.8 组合框控件 在工具箱上双击ComboBox按钮，可在窗体中添加组合框（ComboBox）控件。组合框控件是将前面所介绍的文本框控件与列表框控件的特点结合起来，即同时具有文本框控件与列表框控件两者的特点。组合框既可以像列表框那样，让用户从多个项目中选择项目，又可以像文本框一样输入文本来选择项目。组合框也主要用于进行多个项目的选择。 组合框控件常用的属性有Name、List、ListCount、ListIndex、Locked、Sorted、Style和Text等。,VB程序设计与数据库应用,11,2.2 常用标准控件的使用,2.2.9 滚动条控件 在工具箱上双击Scroll按钮，可在窗体中添加滚动条（Scroll）控件。滚动条控件分为水平滚动条（Hscroll）控件和垂直滚动条（Vscroll）控件。滚动条控件常用于某个窗口上帮助观察数据或确定位置。 滚动条控件常用属性有Name、Value、Max、Min、LargeChagnge和SmallChange。,VB程序设计与数据库应用,12,2.2 常用标准控件的使用,2.2.10 定时器控件 在工具箱上双击Timer按钮，可在窗体中添加定时器（Timer）控件。Visual Basic中的定时器控件是响应时间的事件，用来在一定的时间间隔内周期地执行某项操作。经常用于检查系统时间，判断是否应该执行某项任务等。该控件只是在程序设计过程时可见，在程序运行时对用户是不可见的，并且在设计时不能改变控件的大小。 定时器常用的属性有Name、Interval与Enabled。,VB程序设计与数据库应用,13,2.2 常用标准控件的使用,2.2.11 框架控件 在工具箱上双击Frame按钮，可在窗体中添加框架（Frame）控件。作为一种容器，可以在其上添加其他控件，常用的是将一组单选按钮添加在一个框架内，这样就和其他的单选按钮互不干扰。 框架控件常用的属性有Name、BorderStyle、Caption和Enabled等。,VB程序设计与数据库应用,14,2.2 常用标准控件的使用,2.2.12 焦点与Tab键顺序 1焦点 焦点是指一个对象接收用户键盘输入或者鼠标单击的能力，当该对象具有焦点时，就能够接收用户的输入。例如，Windows是一种多任务的操作系统，同时可以运行多个应用程序，但是只有具备焦点的应用程序或者窗口才有活动标题栏，才可以接收用户的输入。在例2-2的窗体中有两个文本框对象，当用户通过鼠标或者键盘使得光标进入了第一个文本框（用户名），该文本框就获得了焦点，才能够接收用户通过键盘输入的文本内容。,VB程序设计与数据库应用,15,2.2 常用标准控件的使用,2Tab键顺序 Tab键顺序指的是当用户按下Tab键时，焦点在当前活动窗体中的各个控件对象之间移动的顺序。在一个应用程序中，每个窗体都有自己的Tab键顺序，系统默认窗体中对象的Tab键顺序与它们的创建顺序相同。,VB程序设计与数据库应用,16,2.3 综合应用简易计算器的设计,【例2-11】 设计一个如图所示的简易计算器。该计算器与图所示的Windows计算器相类似。,VB程序设计与数据库应用,17,操作步骤如下,（1）新建一个窗体，添加1个标签（显示用户输入的运算数和运算结果）、10个数字按钮（分别为09）、4个运算符按钮（分别为+、*、/）、3个功能按钮（分别为Backspace、CE、C）和6个其他按钮（分别为sqrt、%、1/x、=、.、+/-）。当单击数字按钮输入运算数，单击运算符按钮，再单击“=”按钮 ，则在标签中显示计算结果。设计的窗体如图2-33所示。,VB程序设计与数据库应用,18,（2）分别设置各对象的属性 （3）在代码窗口中定义如下变量。 Dim operator As String ' 输入的运算符 Dim operand1 As Single ' 第一个运算数 Dim operand2 As Single ' 第二个运算数 Dim flag As Integer 标志 （4）在窗体的Load事件代码中进行初始化。 Private Sub Form_Load() Me.Caption = “我的计算器“ lblCalc.Caption = “0“ operand1 = 0 operand2 = 0 operator = “ flag = 0 End Sub,VB程序设计与数据库应用,19,（5）编写数字命令按钮09的Click事件过程代码。当单击数字按钮时，一种情况是，单击数字按钮开始输入运算数，只需将数字按钮的标题Caption直接添加到lblCalc标签的Caption属性后面；另外一种情况是，用户先单击了运算符等其他非数字按钮，这时需要清空lblCalc标签后，继续接收新的运算数。本例中，通过变量flag来表示用户输入的状态，0表示连续点击数字按钮来输入运算数，1表示点击了非数字按钮后再来点击数字按钮。,VB程序设计与数据库应用,20,（6）依次编写按钮sqrt、%、1/x、.、+/-的Click事件代码。 Private Sub cmdSqrt_Click() If Val(lblCalc.Caption) 0 Then lblCalc.Caption = “不能小于零“ Else lblCalc.Caption = Sqr(Val(lblCalc.Caption) End If flag = 1 End Sub Private Sub cmdPct_Click() lblCalc.Caption = CStr(Val(lblCalc.Caption)/100) flag = 1 End Sub Private Sub cmdRevs_Click() If Val(lblCalc.Caption) = 0 Then lblCalc.Caption = “除数不能为零“ Else lblCalc.Caption = CStr(1/(Val(lblCalc.Caption) End If flag = 1 End Sub,VB程序设计与数据库应用,21,下面给出按钮Backspace、CE及cmdClear的Click事件部分代码。 Private Sub cmdBack_Click() If flag = 0 Then length = Len(lblCalc.Caption) If length = 1 Then lblCalc.Caption = “0“ Else lblCalc.Caption = Left(lblCalc.Caption, length - 1) End If End If End Sub （7）运行程序。,
