VB程序设计初步详解

三个属性常与剪贴板一起使用，完成文本信息的剪切、复制和粘贴。见例1.6。

（2）文本框常用方法

SetFocus方法是文本框最有用的方法。其格式为： [对象.]SetFocus

该方法是把光标移至指定的文本框中，当窗体上建立了多个文本框时，可使用该方法把光标置于所需要的文本框上。

（3）文本框常用事件

Change事件、KeyPress事件、LostFocus事件和GotFocus事件是文本框最重要的响应事件。

①Change事件

在程序运行过程中，当文本框中的内容（即Text属性值）发生改变时引发该事件。用户每输入一个字符，就会触发一个Change事件。

如：Private sub Text1_Change() Text2.Text=Text1.Text End Sub

当文本框Text1中输入任意文本，将触发事件过程Text1_Change()，从而文本框Text2中的内容将自动随Text1中内容同步发生变化。

②KeyPress事件

程序运行时，用户按下并且释放键盘上的一个可打印字符（即ANSI键），将会引发焦点所在控件的KeyPress事件，如焦点在文本框上，就引发文本框的KeyPress事件，此事件会把输入字符的ASCII值作为参数返回到该事件过程中。如按下键盘上字母“a”，则返回KeyAscii的值为96。同理，如果KeyAscii的值为13，表示用户按下并释放的是回车键，文本输入结束，实际应用中，我们常常利用该事件的这一返回参数来判断是否输入文本结束。

③LostFocus事件

当控件失去焦点时，触发LostFocus事件，Tab键的移动或单击另一对象都能引起当前控件焦点的丢失。

【注意】Focus英文为“焦点”、“聚焦”之意，什么是焦点呢？最直观的例子是，比如桌面上有两个层叠的窗体，互相有一部分遮盖，当我们点击下面的窗体时，它就会全部显示出来，这时该窗体处在被激活的状态，并且标题条变成蓝色，这就是GotFocus事件，而相反，另外一个窗体被遮盖，并且标题条变灰，称为LostFocus事件。

④GotFocus事件

与LostFocus事件相反，当一个对象获得焦点时发生GotFocus事件。 4．命令按钮（commandButton）

命令按钮（commandButton）在应用程序中使用最为普遍，是用户与应用程序交互的一个直接手段。

（1）命令按钮（commandButton）的常用属性 命令按钮也具有Name、Font 、Top、Left、Width、Height、Enable、Visible、Alignment、BackColor、ForeColor、TabIndex等基本属性，其含义和设置前面已有详细介绍。

①Caption属性

该属性的值即命令按钮上显示的文字。如果用户在设置命令按钮的Caption属性值中含有“&”字符，“&”字符本身并不显示在命令按钮上，该字符所起作用是把紧接在它后面的字符定义为该命令按钮的快捷键，程序运行时，快捷键字母带下划线显示，当用户按下Alt+快捷键，便可激活该命令按钮。

例如，命令按钮Command1的Caption属性设置为“&Run”，则程序运行时，命令按钮显示标题文字为“Run”，当用户按下Alt+R（快捷键）时可激活命令按钮Command1。

②Style属性

该属性用于确定命令按钮的显示类型，命令按钮不仅可显示文字，也可显示图形。属性值有两种：0——Standard 标准按钮，按钮上不能显示图形，此为默认值；1——Graphical图形的，按钮上可以显示文字，也允许用Picture属性为按钮选择显示图形。

③Picture属性

若Style属性设置为1，则可利用Picture属性显示图形文件（扩展名为.bmp和.ico）。

④Defanlt属性

该属性决定命令按钮是否是“默认按钮”，属性值为逻辑类型。“默认按钮”是指这样的按钮，当用户在窗口中按下Enter键时，不管当前输入焦点在哪个控件上（可按收Enter键操作的控件除外），都相当于单击了该按钮。默认按钮有较粗的边框，一个窗体上只能有一个按钮的Defanlt属性值为 True。

⑤ToolTipText属性

ToolTipText属性与Picture属性配合使用，如果一个命令按钮仅有图形显示时，可以利用该属性以较少的文字来解释该命令按钮。

（2）命令按钮常用事件

命令按钮使用最多的是Click（单击）事件。

【例1.6】利用文本框和命令按钮建立一个简单的文本编辑器。在窗体上建立两个文本框Text1、Text2，三个命令按钮command1、command2、command3，调整和对齐至合适大小和位置，如图1-14所示。按表1-4修改各控件属性。

表1-4 属性设置 控件默认名称 相关属性设置 控件默认名称 相关属性设置 Text1 Text2 Form1 Multilane=true, ScrollBars=2 Multilane=true, ScrollBars=3 Caption=一个简单的文本编辑器 Command1 Command2 Command3 Name=剪切 Name=复制 ame=粘贴

图1-14 简单的文本编辑器

在代码窗口编写各事件过程代码如下：

Dim temp As String '定义一个变量temp存放文本框Text1中被选中内容 Private Sub 剪切_Click()

temp = Text1.SelText 'text1中被选中内容存入变量temp中 Text1.SelText = \被选中内容以空文本代替 剪切.Enabled = False '剪切按钮呈暗色显示 复制.Enabled = False '复制按钮呈暗色显示 粘贴.Enabled = True End Sub

Private Sub 复制_Click()

temp = Text1.SelText 'text1中被选中内容存入变量temp中 粘贴.Enabled = True 剪切.Enabled = False 复制.Enabled = False End Sub

Private Sub 粘贴_Click()

Text2.Text = temp '变量temp中内容存入text2的text属性中 剪切.Enabled = True 复制.Enabled = True End Sub

运行该程序，在文本框1中可输入和编辑任意文本内容，用鼠标选定部分文本，单击剪切按钮和粘贴按钮，分别触发剪切_Click()和粘贴_Click()两个事件过程，可实现将选定内容剪贴到文本框Text2中。同理，单击复制按钮和粘贴按钮，分别触发复制_Click()和粘贴_Click()两个事件过程，实现选定文本内容的复制功能。

在本例中，为增加程序的可读性，修改了三个命令按钮的Name（名称）属性，因此，凡在代码中引用到命令按钮的默认名称处都要作相应的修改。

【例1.7】将例1.6中的三个命令按钮的属性按下表1-5修改。则用户界面如图1-15示：

表1-5 【例1.7】中控件属性的修改 控件默认Caption属Picture属ToolTipText属Name属性 Style属性 名 性 性 性 Command1 Command2 Command3 cmdCut cmdCopy cmdPaste 空白 空白 空白 cut.ico copy.ico paste.ico 1——Graphical 1——Graphical 剪切 复制 1——粘贴 Graphical 注意，cut.ico 、copy.ico、 paste.ico三个图标文件是在Picture属性设置时通过浏览获取，如果读者的本地机上没有这三个文件，可用别的图形文件来代替，不要生搬硬套。本例旨在熟悉命令按钮的几个重要属性的使用。本例中控件的命名（即Name属性）采用了匈牙利命名法，则例1.6中代码凡用到三个命令按钮名称的地方均要作相应修改，请读者自己去完成。

图1-15 修改属性后的运行界面

1．5 建立简单的VB应用程序

1．5．1

VB可视化编程基本步骤

建立一个VB应用程序的一般过程如下：

（1）设计并建立用户界面。即在窗体上建立各控件对象。

（2）设置各对象的属性。即在属性窗口为各控件对象进行初始属性设置。 （3）编写所需事件过程代码。即在代码窗口为激发控件对象执行所需操作的事件过程代码。 （4）保存程序。在运行程序前，保存程序可以避免由于各种原因造成的程序丢失。 （5）运行和调试程序。在VB集成环境下调试好程序，无误后将其再次保存。

（6）生成可执行文件。可执行文件（扩展名为.exe）可作为Windows应用程序，在Windows环境下直接运行。本步骤根据情况可选。

本节将结合实例，帮助读者学会建立简单的VB应用程序。

【例1.8】编写一个程序，输入正方形的边长，计算并输出正方形的面积。为简单起见，这里假设每次输入的正方形边长均大于0。程序运行界面如图1-16所示。

图1-16 计算正方形面积运行界面

（1）建立工程，分析并设计用户界面。

任何程序，无论大小，都应该对其问题性质特征、解决途径等进行必要的分析，这是一种良好的程序设计思维习惯，根据本程序要求，文本框具有编辑和显示文本能力，因此可设计两个文本框分别用来接收用户输入正方形的边长及显示面积计算结果，两个标签用于提示信息，两个命令按钮供用户和程序交互，即点击“计算”命令按钮，可完成计算并显示结果，点击“退出”命令按钮可退出程序。

通过“文件”菜单“新建工程”可以打开“新建工程”对话框，选择“标准化EXE”。确定后可建立工程，工程的默认名称是：工程1，可以通过工程属性窗口将工程改名。在工程的默认窗体Form1上建立Label1、Label2、Text1、Text2、Command1、Command2六个控件并调整好位置和大小。

（2）控件对象的初始属性设置

控件对象的初始属性设置在“属性窗口”中完成。按表1-6设置相关属性，其它属性取默认值。

表1-6 【例1.8】相关属性设置 控件默认名称 属性设置 控件默认名称 属性设置 Form1 Label1 Label2 Caption=“计算正方形面积” Text2 Text=”” Caption=“计算” Caption=“退出” Caption=“请输入正方形边长=” Command1 Caption=“计算该正方形面积=” Command2 Text1 Text=”’ （3）编写所需事件过程代码。 为使程序能够执行任务，需要编写代码。本例中要用到两个命令按钮的单击事件过程。命令按钮“计算”的Click事件过程功能是单击后能计算出正方形面积并在text2中显示出来，命令按钮“退出”的Click事件过程功能是单击后退出程序。

现以“计算”按钮为例，说明Command1_Click()事件过程编码的步骤：

①用前面介绍的方法切换至代码窗口，单击“对象”列表框右边的下拉按钮，将列出当前窗体中包含的所有对象，从列表中选择命令按钮Command1。

②单击“过程”列表框右边的下拉按钮，将列出与Command1对象相关的所有事件，选择本例所需要的Click事件。此时，代码窗口显示出该事件的模板，在过程头和过程尾的代码编辑区输入过程体，本例的代码如下：

Private Sub Command1_Click() '过程头，由系统自动生成

Text2.Text = Text1.Text * Text1.Text '取Text1中的边长计算面积并在Text2中显示

End Sub ' 过程尾，由系统自动生成

③重复上述步骤建立其它事件过程，如本例的Command2_Click()事件过程。 Private Sub Command2_Click()

End '结束程序 End Sub