《Visual Basic程序设计案例教程》课件第2章

第2章VisualBasic基本控件

2.1窗体2.2命令按钮2.3标签2.4文本框习题2.1窗体案例1在窗体上显示黑底白字“HOWAREYOU?”

1．学习目标利用属性窗口和程序代码设置窗体(Form)的属性，将窗体标题由“Form1”修改为“牛刀小试”，且窗体显示黑底白字“HOWAREYOU?”。通过本案例的学习，掌握窗体的Caption、BackColor、ForeColor等属性的用法和Click事件的用法。

2．相关知识窗体(Form)是构造用户界面的基本模块，是开发人员的“工作台”。窗体设计好以后，运行时每个窗体就是一个窗口。构建一个友好的窗体是创建应用程序的第一步。

1)窗体的结构窗体的结构与Windows窗口的类似。图2.1所示是一个设计中的窗体，窗体的左上角为标题栏，即窗体的标题(缺省值为Form1)；窗体的右上角为控制栏，包括最小化、最大化和关闭按钮，可通过ControlBox、MinButton和MaxButton属性加以设置；窗体的中部是客户区，开发人员可在客户区添加其他控件以构建出友好的用户界面。图2.1窗体结构

2)窗体的常用属性属性决定控件(对象)的外观，一般有两种设置属性的方法：一是直接通过属性窗口选择不同的属性值进行设置；二是在事件过程中通过程序代码设置。通过选择不同的属性值可以制作风格各异的窗体，Form控件的常用属性见表2.1。表2.1Form控件的常用属性

3)窗体的常用事件和方法窗体最常用的事件有Load(装入)、Unload(移出)、Click(单击)和DblClick(双击)。

(1) Load事件。Load事件是指将控件(对象)自动装入工作区，并自动执行Load事件过程，对控件属性、变量进行初始化。窗体的Load事件在运行时将窗体装入工作区，并自动执行SubForm_Load()过程。

(2)Unload事件。运行程序后，单击窗体的(关闭)按钮，则触发Unload事件，并执行SubForm_Unload()事件过程中的程序代码。在Unload事件过程中，我们往往会编写保护程序，用以提醒用户在退出该应用程序前保存数据，以避免数据的丢失。

(3)Click事件。程序运行后，当单击窗口内的某个位置时，VisualBasic将调用窗体单击事件过程SubForm_Click()。如果单击窗体内的控件，则只能够调用相应控件的Click过程。

(4) DblClick事件。程序运行后，当双击窗口内的某个位置时，VisualBasic将调用窗体双击事件过程。窗体最常用的方法有Print、Cls、Show、Hide和Move等。

3．程序实现程序实现的具体步骤如下：

(1)进入VB6.0设计环境，在属性窗口中找到Caption(标题)。在Caption属性值上单击鼠标左键，将原缺省值Form1删除，再键入新的内容，如图2.2所示。图2.2设置Form1的Caption属性

(2)移动鼠标在BackColor属性值栏上单击鼠标左键，然后再单击下拉箭头，调出“调色板”，选中黑色，如图2.3所示。图2.3设置Form1的BackColor属性

(3)移动鼠标在ForeColor属性值栏上单击鼠标左键，然后再单击下拉箭头，调出“调色板”，选中白色。

(4)在“牛刀小试”窗体上双击鼠标左键，调出“代码”窗口，再单击“过程”栏的下拉箭头，选择“Click”事件，在代码区输入Print"HOWAREYOU?"，如图2.4所示。图2.4在“代码”窗口输入程序

(5)单击工具栏中的图标则进入运行阶段。单击窗体，在窗体上即显示“HOWAREYOU?”，运行结果如图2.5所示。

4．思考

(1)修改Form1的属性，将Caption设置为“窗体”、BackColor设置为“蓝色”、ForeColor设置为“红色”。

(2)怎样修改程序，使得单击窗体后窗体上显示“书山有路勤为径”？图2.5运行结果案例2编写一个随手画程序

1．学习目标用鼠标在窗体上任意画，可以画出随意的曲线。通过本案例的学习，掌握窗体的MouseMove事件的用法。

2．程序实现程序实现的具体步骤如下：

(1)选择“文件”菜单的“新建工程”菜单项，建立窗体Form1。

(2)设置属性。设置背景颜色为红色，前景颜色为白色。

(3)编写代码。在“事件列表”中搜索MouseMove事件，再为MouseMove事件编写过程。

PrivateSubForm_MouseMove(ButtonasInteger,ShiftasInteger,xassingle,yassingle)

Line-(x,y)'在上一点与鼠标移动到的(x,y)点之间画一条直线

EndSub完成设计后，就可进入运行阶段。用鼠标在窗体上任意画，即可出现类似图2.6所示的画面。图2.6运行结果2.2命令按钮案例3设置CommandButton控件的属性

1．学习目标利用属性窗口和程序代码设置命令按钮(CommandButton)

控件的属性。通过本案例的学习，掌握命令按钮的Caption、Picture、Style、Font、BackColor、Width、Height等属性的用法和Click事件的用法。

2．相关知识在设计应用程序界面时，工具箱中的命令按钮(CommandButton)主要是用来制作矩形按钮的，通常在该控件上单击鼠标左键可执行指定操作。

1)命令按钮的常用属性前面介绍的大多数属性都适用于命令按钮，如Caption、Name、BackColor、ForeColor、Picture、Height、Width等。CommandButton控件的其他常用属性见表2.2。

2)命令按钮的常用事件和方法命令按钮的常用事件有Click、GotFocus和LostFocus。命令按钮的常用方法为SetFocus。表2.2CommandButton控件的常用属性

3．程序实现程序实现的具体步骤如下：

(1)在工具箱中的上单击鼠标左键，再移动鼠标到窗体的适当位置，按住鼠标左键拖曳，分别调出Command1和Command2。在Command2的Caption属性值上单击鼠标左键，将原缺省值删除，再键入“运行代码”。将Command1的Style(图形外观)属性值设为1，再选中Picture属性，调出“加载图片”对话框，如图2.7所示。图2.7设置属性

(2)在出现的“加载图片”对话框中，从“查找范围”内选择存放图片的文件夹，选择合适的图片，再单击“打开”按钮，如图2.8所示。图2.8“加载图片”对话框

(3)移动鼠标到Command2控件上双击鼠标左键，在Command2_Click()事件代码窗口中输入设定Command1控件属性的代码。

PrivateSubCommand2_Click()

Command1.Caption="图形按钮"'设置Command1控件上显示的文字

Command1.Font="隶书"'设置文字的类型

Command1.BackColor=RGB(50,150,0)'设置Command1控件上的颜色

Command1.Width=800

'设置Command1控件的宽度

Command1.Height=800

'设置Command1控件的高度EndSub

(4)点选工具栏中的运行图标，单击“运行代码”按钮，即执行以上代码，运行结果如图2.9所示。图2.9运行结果2.3标签案例4利用Label控件制作宣传画

1．学习目标利用Label控件制作一个“仲夏之夜演奏会”的宣传画。通过本案例的学习，掌握标签(Label)的Caption、BackColor、ForeColor、Font、Picture、BackStyle等属性的用法。

2．相关知识

Label控件是VB6.0内建的文字标签，用于设计在用户界面上不能被使用者修改的只读的文字内容。

1)标签的常用属性前面介绍的大多数属性都适用于该标签，如Caption、Name、BackColor、ForeColor、Font、ToopTipText、Height、Width等。Label控件的其他常用属性见表2.3。

2)标签的常用事件标签的常用事件为Click和DblClick。表2.3Label控件的常用属性

3．程序实现程序实现的具体步骤如下：

(1)在工具箱中的上单击鼠标左键，再将鼠标移动到窗体的适当位置，并按住鼠标左键拖曳，调出Label1。在属性窗口修改窗体Form1的Picture属性值，并加载合适的图片。修改Label1的Caption属性值，键入“仲夏之夜演奏会”。然后选中Label1的Font属性，调出“字体”对话框，选择字体为“华文中宋”，字型为“粗体”，大小为“小四”，并加下划线。再设置Label1的BackColor为黄色、ForeColor为红色，如图2.10所示。图2.10设置控件属性

(2)在窗体Form1上双击鼠标左键，调出代码窗口，在Form_Click()事件代码窗口中输入修改Label1控件属性的代码，如图2.11所示。图2.11输入代码

(3)点选工具栏中的运行图标，在窗体的任一位置单击鼠标左键，其结果如图2.12所示。

4．思考如何设置标签上的文字为“计算机系文艺晚会”？图2.12运行结果2.4文本框案例5利用TextBox控件制作一个密码框

1．学习目标利用文本框(TextBox)控件制作一个密码框。通过本案例的学习，掌握文本框的Text、MaxLength、PasswordChar等属性的用法和Change、KeyPress事件的用法。

2．相关知识文本框控件同样可以制作出显示文字的标签效果，不过与Label控件不同的是，Label控件仅能以只读方式显示文字，而TextBox控件既可以显示文本，又可以由使用者改变其内容，所以文本框常作为用户与程序之间的交流界面。此外，文本框还具备编辑器的一些基本功能，如能进行插入、删除、反白、剪切、复制、粘贴等操作，因此文本框也被称为“小型编辑器”。

1)文本框的常用属性前面介绍的许多属性也同样适用于文本框，这些属性包括Name、BackColor、ForeColor、Height、Width、Enabled、Visible、Alignment、Font等。此外，文本框还具有以下一些常用属性，见表2.4。注意：TextBox控件无Caption属性。表2.4TextBox控件的常用属性

2)文本框的常用事件文本框与窗体类似，也可触发Click和DblClick事件，除此之外，文本框还支持Change、LostFocus、KeyPress等事件。①  Change事件：当用户向文本框中输入新信息，或把Text设置为新值，从而改变文本框Text属性时，将触发该事件，执行该事件过程。② LostFocus事件：当按下Tab键使光标离开当前文本框或用鼠标选择其他对象时，触发该事件。③ KeyPress事件：该事件与键盘输入有关，适用于窗体和大部分控件，当在键盘上按下某键时触发该事件。

3．程序实现程序实现的具体步骤如下：

(1)在工具箱中的上单击鼠标左键，再移动鼠标到窗体的适当位置，并按住鼠标左键拖曳，调出TextBox控件。然后调入两命令按钮于适当位置，并在属性窗口修改窗体Form1的Caption属性值，键入“请输入密码”，再修改两命令按钮的Caption属性值，键入“输入”及“退出”，如图2.13所示。图2.13设置控件属性

(2)对TextBox控件的Text1属性通过其属性窗口进行设置，其具体的属性设置如表2.5所示。表2.5Text1控件属性设置

(3)加入一个标签控件Label1，设置它的Caption属性值为“欢迎进入本系统”，然后选中Label1的Font属性，调出“字体”对话框，选择字体为“新宋体”，字型为“粗体”，大小为“小四”，再设置Label1的ForeColor为红色，BackStyle为0(透明)，最后设置它的Visible属性值为False，即如果密码不正确时，不可见该控件，如图2.14所示。图2.14设置Label1控件属性

(4)移动鼠标到Command1(输入)控件上，单击鼠标左键，在Command1_Click()事件代码窗口中输入如下代码。

PrivateSubCommand1_Click()

IfText1.Text="2591"Then '采用If语句对输入密码正确与否进行核对

Form1.Caption="欢迎进入本系统" '如正确，则修改窗体的标题

Form1.BackColor=vbYellow '窗体的背景颜色设为黄色

Label1.Visible=True

'设"欢迎进入本系统"的红色标签为可见状态

Command1.Visible=False '设Command1和Command2为不可见

Command2.Visible=FalseText1.Visible=False '设Text1为不可见

Else

Form1.Caption="密码错，请重新输入" '如密码错，窗体标题设为"密码错，请重新输入"

EndIf

EndSub

(5)点选工具栏中的运行图标，在文本框内输入正确密码“2591”，再单击“输入”命令按钮，结果如图2.15所示。若输入密码错误，则结果如图2.16所示。图2.15运行结果(一)图2.16运行结果(二)

4．思考

(1)如果要将密码修改为“goodmorning”，应该怎样修改程序？

(2)增加Text1_Change()事件过程，实现下面的功能：如果第一次输入了错误的密码，则第二次重新输入密码时，清除窗体Form1上显示的“密码错，请重新输入”。

(3)增加Text1_KeyPress()事件过程，实现下面的功能：如果在文本框中按回车键，则判断密码是否正确(回车键的KeyAscii为13)。案例6设计一个简单的加减计算器

1．学习目标设计一个简单的加减计算器，先从键盘上输入两个数，然后选择所需的运算符(“+”或“–”)，其结果显示在一个文本框中。通过本案例的学习，掌握文本框和标签控件的综合运用，并学会利用Val()函数、Str()函数在字符串和数值之间进行相互转换。

2．程序实现实现程序的具体步骤如下：

(1)界面设计与属性设置。根据程序要求，“计算器”的用户界面需要7个用于显示提示文字的标签，3个用于输入数据和显示结果的文本框，其控件属性设置如表2.6所示。表2.6“计算器”控件属性设置

(2)编写代码。该程序流程要求先由用户输入两个数到文本框，当用户选择“+”或“–”运算符后，其运算结果出现在Text3中。因此，将数1与数2进行相加或相减的运算过程必须在用户点击“+”或“–”标签后进行，所对应的事件过程如下：

PrivateSublblAdd_Click()

Dims1AsSingle,s2AsSingle,addAsSingle

s1=Val(Text1.Text)'将用户输入的文本通过Val()函数转换成能进行计算的数值

s2=Val(Text2.Text)

add=s1+s2

txtResult.Text=Str(add)'将计算的结果通过Str()函数转换成文本进行显示

EndSub

PrivateSublblRemove_Click()

Dims1AsSingle,s2AsSingle,sAsSingle

s1=Val(Text1.Text)