VB编程经验点滴

王朝vb·作者佚名 2006-01-08

---- 欣喜看到VB 编程人和爱好者的阵营越来越大了，而现在VB6 也已经横空出世了，在这里献上自己的一点VB5 编程的小经验，权当和广大朋友交流交流，不妥之处多多指教。

---- 1. 在打开对话框中同时显示多种类型的文件

---- 在打开文件时，我们往往会用到打开对话框CommonDialog，要把文件类型限制在一定的范围内得用CommonDialog 的Filter 属性，比如将Filter 属性设置为"*.TXT|*.TXT" 那么打开对话框只显示文本文件。如果要同时显示几种类型的文件，比如要显示所有的图形文件，其设置方法为将Filter 属性设置为" 图片文件|*.bmp;*.jpg;*.gif"，这样打开对话框便能同时显示bmp 文件,jpg 文件,gif 文件。这个问题似乎很简单，可笔者曾经为这个问题查阅了大量关于VB 的书籍，但是都未找到。

---- 2. 注意最后编译的问题

---- 如果编程中用到数据库控件, 在最后编译时, 一定要注意数据库控件的Datebase 属性, 否则会在制作安装盘, 装到其它机子上时遇到问题。原因是Datebase 属性中存在的路径问题。编译前得将其路径设置为当前路径。如果用的是ACCESS 数据库，将Datebase 属性中的路径信息去掉便可以了，比如，原先为"C:\money\money.mdb", 则改为"money.mdb"。如果是FOXPRO 数据，将Datebase 属性改为"." 便可以了,"." 就代表当前目录。比如，原先为"C:\money", 改为"." 便可以了。用其它数据库的数据的方法差不多。当然制作安装盘时得把用到的数据文件添加进去，这里不在详叙。

---- 3. 在程序中调用其它程序

---- 在DOS 下大家知道可以用system（）函数来调用其它的可执行文件，那么在WINDOWS 下怎么去调用其它的软件呢? 其实在WINDOWS 的API 中就有这样的函数。函数说明如下：

UINT WinExec(

LPCSTR lpszCmdLine, // 命令行地址

UINT fuCmdShow //刚打开时的窗口类型

);

---- 在使用时要加如下声明:

Private Declare Function WinExec Lib "kernel32"

(ByVal lpCmdLine As String,

ByVal nCmdShow As Long) As Long

---- 如果想在程序中调用Windows 中自带的计算器, 用下面的代码即可实现:

WinExec "c:/windows/calc.exe", 10

---- 参数10 使启动的窗口处于缺省状态, 若使用3 使启动的窗口最大化, 若使用6 使启动的窗口最小化。实际上许多商用软件的计算器都是这样直接调用Windows 自带的计算器的。

---- 4. 输入数据的合法性检测

---- 一个软件经常需要用户输入一些数据，而这些数据往往需要一定格式，比如输入的是一个整形，或是一个日期等，这样作为软件的设计者必须想到用户出错的可能性，在用户出错时给予提示和纠正。只有这样你的程序才是一个好程序。在VB 编程中数据的合法性检测有很多的方法，比如你可以利用一些函数来检测数据的合法性，IsDate 就可以用于检测日期型的数据。笔者发现只要巧妙地应用VB 中的错误陷阱技术和VB 的不同类型数据间的自动转换功能就能很好地实现数据的合法性检测，编程简单而且效果很好，能检测各种类型的数据。

---- 通常输入的如果是字符串就不需要检测，但如果要求输入的是整形或货币形等就必须进行一定的检测。下面就先讲一下整形的检测。比如现有一文本框（Text1），要求输入的是一个整数，我们可以在它的LostFocus 事件中进行检测，代码如下：

Private Sub Text1_LostFocus()

Dim i As Integer '定义一个整形i

On Error GoTo ERROR1

'设置错误陷阱，如果Text1.Text不是整数跳到ERROR1

i = Text1.Text

'这里可以做其它处理

Exit Sub

ERROR1:

MsgBox ("请输入一个整数")

Text1.SetFocus

End Sub

---- 这样就可以实现合法性检测了，如果要的是浮点就将i 定义成浮点就可以了，即：

Private Sub Text1_LostFocus()

Dim i As Single

On Error GoTo ERROR1

i = Text1.Text

Exit Sub

ERROR1:

MsgBox ("请输入一个单精度浮点数")

Text1.SetFocus

End Sub

---- 同理，如果要的是日期就将i 定义成日期就可以了，就是说，要什么样的数据就将i 定义成什么样的数据类型就可以了。

---- 当然你不一定要在LostFocus 事件中对数据的合法性进行检测，如果是制作数据库应用程序完全可以在数据被添加到数据库之前再对数据进行检测，这样对用户将更加方便。

---- 5. 窗体以外光标位置的探测和设置

---- 用VB 编程时想获得窗体上的光标位置很容易，用MouseMove 事件的参数就可得到光标在窗体上的位置。然而，如果想得到窗体以外的光标位置或想在程序中设置光标位置，那么则只好求助于API 了，还好，这几个API 函数非常简单，即使刚接触编程的朋友也能学会使用。这里笔者做一个简单的介绍，希望和大家共享使用API 的乐趣。

---- 先介绍一下有关的API 的结构和函数，首先看一下获得光标位置的这个函数，其声明如下：

BOOL GetCursorPos(

LPPOINT lpPoint

//指向POINT结构的指针，其中包含所获的光标的位置信息

);

再来看一下POINT的结构：

typedef struct tagPOINT { // pt

LONG x;

LONG y;

} POINT;

真是非常简单，最后看一下设置光标位置的函数：

BOOL SetCursorPos(

int X, //要设置位置在屏幕上的横坐标

int Y //要设置位置在屏幕上的纵坐标

);

---- 在VB 中使用API 就需要一定的说明了，还好VB 提供了一个"API 文本查看器"，你只要将所要用的API 的声明复制一下就可以用了。我们来做一个简单的例子来试一试。先建立一个项目，往窗体（Form1）上放置两个TextBox 控件（Text1 和Text2），一个CommandButton 控件（Command1）和一个Timer 控件（Timer1）。将Timer1 的Interval 属性改为1000。这个例子的功能是每隔一秒钟在Text1 和Text2 中显示光标的位置坐标, 按Command1 按钮光标将按一定的规律在屏幕上漂移。所有的代码如下：

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function GetCursorPos

Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function SetCursorPos

Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

'以上为API及数据结构的声明

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

For i = 0 To Screen.Width

SetCursorPos i, 100 '设置光标位置

For j = 0 To 1000 '循环延时

Next j

Next i

End Sub

Private Sub Timer1_Timer()

Dim point1 As POINTAPI

GetCursorPos point1 '获得光标位置

Text1.Text = point1.x '显示光标位置X

Text2.Text = point1.y '显示光标位置Y

End Sub

---- 输入完毕后存盘运行就行了，可以发现在VB 中是很容易实现的。

---- 6.Windows 各种路径的获得

---- 在WINDOWS 下编程经常需要在程序中获得各种路径，比如当前的工作路径，系统的路径，等各种路径。在WINDOWS 的API 中提供了齐全的API 函数供我们调用。

---- 先来看一下这几个API 函数的说明：

---- (1). DWORD GetCurrentDirectory(

DWORD nBufferLength, //接收目录的字符串的长度

LPTSTR lpBuffer //接收目录的字符串的地址

);

---- 通过调用这个函数将获得当前的目录，如果调用失败此函数将返回零。调用这个函数时应将nBufferLength 参数设足够大，接收目录的字符串当然也要有这么长。详细用法请看例子。另外用SetCurrentDirectory（）函数可以设置当前目录。

---- (2). UINT GetSystemDirectory(

LPTSTR lpBuffer, //接收目录的字符串的地址

UINT uSize // 接收目录的字符串的长度

);

---- 通过调用这个函数可获得系统的目录，如果调用失败此函数将返回零。

---- 3. UINT GetWindowsDirectory(

LPTSTR lpBuffer, //接收目录的字符串的地址

UINT uSize // 接收目录的字符串的长度

);

---- 通过调用这个函数可获得WINDOWS 目录，如果调用失败将返回零。关于这个函数和第二个函数的区别，通过下面的例子你一定会非常清楚。

---- 下面用VB 来实现。首先当然要先把API 的声明加到代码中, 开始一个新项目，在窗体（Form1）上放上三个按钮（Command1，Command2，Command3）。这个例子的功能是单击按钮用MSGBOX 显示得到的路径。

---- 笔者发现不能简单地复制VB5 的API 文本查看器中关于上面几个API 的声明，要做一定的修改，要在每个函数名后加一个"A"，所有代码如下。

Private Declare Function GetCurrentDirectoryA

Lib "kernel32" (ByVal nBufferLength As Long,

ByVal lpBuffer As String) As Long

Private Declare Function GetWindowsDirectoryA

Lib "kernel32" (ByVal lpBuffer As String,

ByVal nSize As Long) As Long

Private Declare Function GetSystemDirectoryA

Lib "kernel32" (ByVal lpBuffer As String,

ByVal nSize As Long) As Long

Private Sub Command1_Click()

Dim Path As String * 255

GetCurrentDirectoryA(Len(Path), Path) '获取当前路径

MsgBox (Path)

End Sub

Private Sub Command2_Click()

Dim Path As String * 255

GetWindowsDirectoryA(Path, Len(Path)) '获取WINDOWS路径

MsgBox (Path)

End Sub

Private Sub Command3_Click()

Dim Path As String * 255

GetSystemDirectoryA(Path, Len(Path)) '获取SYSTEM路径

MsgBox (Path)

End Sub

---- 7. 错误陷阱中要注意的问题

---- 笔者发现在循环中应用错误陷阱技术有一定的问题。比如下面这一段程序：

Private Sub Command1_Click()

Dim I As Integer

Dim J As Integer

On Error GoTo JERROR

For I = 0 To 3

MsgBox (I)

J = 10000 * 10000 '让J发生溢出错误

JERROR:

Next I

End Sub