应用程序编制实例之一
VB自1991年问世以来，已从1.0版步入到功能十分强大的4.0版。VB以其开发软件周期短
、操作
简单、可视化程度高的优点倍受编程人员的青睐。近几年来，许多Windows程序员应用V
B作为
编程语言，开发了大量的应用软件。本文通过几个实例说明了VB的强大功能。
一、工具棒的建立方法
Windows应用程序的操作界面都含有大量的图标，这些图标集中放在某一个区域形成工具
棒(To
olbars), 工具棒中的图标用图示的方法表示某一种功能，可以加速操作，在某些Windo
ws应用
程序中还把这些工具棒直接称为加速棒（Speedbars）。下面介绍编制工具棒的方法。
在窗体上画一个足够大的图片框，使用这个图片框可以存放图标。设置图片框的Align属
性，
使图片框列在窗口的顶部，即[窗体名][控件名]Align=1
在图片框中增加影像控件(Image Control)数组或者三维命令控制按钮数组(3D Command
Butto
n Control)。改变控件的Picture属性，输入图形，图形的格式为：*.BMP,*.DIB,*.WMF
,*.ICO。
下面的实例介绍了工具棒的建立方法，具体步骤为：
1．建立一个图片框，取名为Demo(即Name属性为Demo)，设置Align属性，即 Demo.Alig
n=1
2．在图片框上增加三维命令按钮，设置Name属性为Tool，设置Index的属性为0(第一个
控件)，
改变 Picture 属性，输入图示化的图形(文件)。改变提示信息，设置Caption取值为
空。
3．增加三维命令按钮控件，设置Name属性为Tool，注意使Index属性分别为1，2，……
。
4．建立窗体Paint事件过程
Sub FormPaint()
Demo.ScaleHeight = Tool(0).Height '设置工具棒的高度
iw％ = Tool(0).Width '获取第一个图标的宽度，用于设置其他的图标宽度
For i％ = 0 To 3
Tool(i％).Height = Demo.Scaleheiht
Tool(i％).Width = iw％
Tool(i％).AutoSize = 1 '设置图标中的图形充满整个图形框
Tool(i％).Move iw％ ＊ i％, 0 '重新排列所有图标的位置
Next i％
End Sub
5.建立图标事件过
为工具棒中的每一个图标增加一个过程，执行相应的命令：
Sub Tool_Click(index As Integer)
If index = 0 Then
Tool (0). Picture = Load(″animal.bmp″) '更换第一个图标中图像
ElseIf index = 1 Then
j％ = Shell(″calc.exe″, 1) '执行WINDOWS95计算重新CALC.EXE
ElseIf index = 2 Then
End '中止程序的执行
End If
End Sub
在实际应用中，程序员可以发挥自己的想象力，从而完善工具棒的功能。
二、Windows演示程序的编程方法
Windows应用软件系统中教学演示程序，在整个系统中占有十分重要的地位，它从一个侧
面反
映了应用软件的功能和用户界面。下面介绍了使用VB编制演示软件的语言基础，并列举
实例说
明。
三、演示软件激活语言软件的方法
应用软件可以通过演示程序激活，无论该应用程序是否是用户自己编制的程序。例如，
用户可
以通过演示激活字处理软件Word for Windows。应用软件的激活可以依照应用软件所处
状态使
用Shell函数或AppActivate命令激活。
1.Shell函数的使用
Shell函数可以运行一个执行程序(即应用程序)，类似在“文件管理器”的“文件”菜单
中运
行一个程序，Shell函数的使用语法是：
Shell(commandstr＄,winstyle％)
其中，commandstr＄是一个包含有路径的可执行文件字符串，winstyle％是决定运行窗
口类型
的参数。例如
j％=Shell(″c:\win\write.exe″,1)
该句启动Windows中“Write”应用软件，窗口类型为具有输入焦点的正常窗口，它的返
回值在
VB中不使用。
2.AppActivate命令的使用
AppActivate命令可以把Windows的焦点移向指定的应用程序，若该应用程序没有启动，
AppAct
ivate也不能启动，且此时会出现运行错误，使用AppActivate的语法是：
AppActivate titletext＄
titletext＄是应用出现的标题(窗口顶部的第一行文字)，对大小写不敏感。例如：
AppActivate“calculator”or AppActivate“CALCULATOR”
这两句都能够把Windows的焦点移向“计算器(Calculator)”，即把计算器从后台调入前
台。对
于中文版Windows应使用下面的命令：
AppActivate“计算器”
3模拟输入控制应用程序
演示程序的关键是能使用代码模拟手工输入，控制应用程序的运行过程。使用Sendkey命
令可
以模拟键盘输入，使用方法为：
Senekey keyin＄,Wait％
其中， keyin＄为模拟输入的控制字符串。Wait％为真(非零)时，说明其它程序运行模
拟输入
完毕后，VB才继续运行；Wait％为假时，说明VB命令一执行( Send Keys),马上继续运行
自己
本身。Wait％可省略，缺省值为0。下面为两实例：
SendKeys“％{F4}”，1
该句说明向应用程序输入<ALT>＋<F4>,相当于通过键盘键入了退出应用程序的操作。
SendKeys“(Hello){Enter}”，1
相当于通过键盘键入“Hello”，然后按回车键换行。