IDC资讯中心
—-欣喜看到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中就有这样的函数。函数说明如下：
UINTWinExec(
LPCSTRlpszCmdLine,//命令行地址
UINTfuCmdShow//刚打开时的窗口类型
);
—-在使用时要加如下声明:
PrivateDeclareFunctionWinExecLib"kernel32"(ByVallpCmdLineAsString,ByValnCmdShowAsLong)AsLong
—-如果想在程序中调用Windows中自带的计算器,用下面的代码即可实现:
WinExec"c:/windows/calc.exe",10
—-参数10使启动的窗口处于缺省状态,若使用3使启动的窗口最大化,若使用6使启动的窗口最小化。实际上许多商用软件的计算器都是这样直接调用Windows自带的计算器的。
—-4.输入数据的合法性检测
—-一个软件经常需要用户输入一些数据，而这些数据往往需要一定格式，比如输入的是一个整形，或是一个日期等，这样作为软件的设计者必须想到用户出错的可能性，在用户出错时给予提示和纠正。只有这样你的程序才是一个好程序。在VB编程中数据的合法性检测有很多的方法，比如你可以利用一些函数来检测数据的合法性，IsDate就可以用于检测日期型的数据。笔者发现只要巧妙地应用VB中的错误陷阱技术和VB的不同类型数据间的自动转换功能就能很好地实现数据的合法性检测，编程简单而且效果很好，能检测各种类型的数据。
—-通常输入的如果是字符串就不需要检测，但如果要求输入的是整形或货币形等就必须进行一定的检测。下面就先讲一下整形的检测。比如现有一文本框（Text1），要求输入的是一个整数，我们可以在它的LostFocus事件中进行检测，代码如下：
PrivateSubText1_LostFocus()
DimiAsInteger定义一个整形i
OnErrorGoToERROR1
设置错误陷阱，如果Text1.Text不是整数跳到ERROR1
i=Text1.Text
这里可以做其它处理
ExitSub
ERROR1:
MsgBox("请输入一个整数")
Text1.SetFocus
EndSub
—-这样就可以实现合法性检测了，如果要的是浮点就将i定义成浮点就可以了，即：
PrivateSubText1_LostFocus()
DimiAsSingle
OnErrorGoToERROR1
i=Text1.Text
ExitSub
ERROR1:
MsgBox("请输入一个单精度浮点数")
Text1.SetFocus
EndSub
—-同理，如果要的是日期就将i定义成日期就可以了，就是说，要什么样的数据就将i定义成什么样的数据类型就可以了。
—-当然你不一定要在LostFocus事件中对数据的合法性进行检测，如果是制作数据库应用程序完全可以在数据被添加到数据库之前再对数据进行检测，这样对用户将更加方便。
—-5.窗体以外光标位置的探测和设置
—-用VB编程时想获得窗体上的光标位置很容易，用MouseMove事件的参数就可得到光标在窗体上的位置。然而，如果想得到窗体以外的光标位置或想在程序中设置光标位置，那么则只好求助于API了，还好，这几个API函数非常简单，即使刚接触编程的朋友也能学会使用。这里笔者做一个简单的介绍，希望和大家共享使用API的乐趣。
—-先介绍一下有关的API的结构和函数，首先看一下获得光标位置的这个函数，其声明如下：
BOOLGetCursorPos(
LPPOINTlpPoint
//指向POINT结构的指针，其中包含所获的光标的位置信息
);
再来看一下POINT的结构：
typedefstructtagPOINT{//pt
LONGx;
LONGy;
}POINT;
真是非常简单，最后看一下设置光标位置的函数：
BOOLSetCursorPos(
intX,//要设置位置在屏幕上的横坐标
intY//要设置位置在屏幕上的纵坐标
);
—-在VB中使用API就需要一定的说明了，还好VB提供了一个"API文本查看器"，你只要将所要用的API的声明复制一下就可以用了。我们来做一个简单的例子来试一试。先建立一个项目，往窗体（Form1）上放置两个TextBox控件（Text1和Text2），一个CommandButton控件（Command1）和一个Timer控件（Timer1）。将Timer1的Interval属性改为1000。这个例子的功能是每隔一秒钟在Text1和Text2中显示光标的位置坐标,按Command1按钮光标将按一定的规律在屏幕上漂移。所有的代码如下：
PrivateTypePOINTAPI
xAsLong
yAsLong
EndType
PrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLong
PrivateDeclareFunctionSetCursorPosLib"user32"(ByValxAsLong,ByValyAsLong)AsLong
以上为API及数据结构的声明
PrivateSubCommand1_Click()
DimiAsInteger
DimjAsInteger
Fori=0ToScreen.Width
SetCursorPosi,100设置光标位置
Forj=0To1000循环延时
Nextj
Nexti
EndSub
PrivateSubTimer1_Timer()
Dimpoint1AsPOINTAPI
GetCursorPospoint1获得光标位置
Text1.Text=point1.x显示光标位置X
Text2.Text=point1.y显示光标位置Y
EndSub
—-输入完毕后存盘运行就行了，可以发现在VB中是很容易实现的。
—-6.Windows各种路径的获得
—-在WINDOWS下编程经常需要在程序中获得各种路径，比如当前的工作路径，系统的路径，等各种路径。在WINDOWS的API中提供了齐全的API函数供我们调用。
—-先来看一下这几个API函数的说明：
—-(1).DWORDGetCurrentDirectory(
DWORDnBufferLength,//接收目录的字符串的长度
LPTSTRlpBuffer//接收目录的字符串的地址
);
—-通过调用这个函数将获得当前的目录，如果调用失败此函数将返回零。调用这个函数时应将nBufferLength参数设足够大，接收目录的字符串当然也要有这么长。详细用法请看例子。另外用SetCurrentDirectory（）函数可以设置当前目录。
—-(2).UINTGetSystemDirectory(
LPTSTRlpBuffer,//接收目录的字符串的地址
UINTuSize//接收目录的字符串的长度
);
—-通过调用这个函数可获得系统的目录，如果调用失败此函数将返回零。
—-3.UINTGetWindowsDirectory(
LPTSTRlpBuffer,//接收目录的字符串的地址
UINTuSize//接收目录的字符串的长度
);
—-通过调用这个函数可获得WINDOWS目录，如果调用失败将返回零。关于这个函数和第二个函数的区别，通过下面的例子你一定会非常清楚。
—-下面用VB来实现。首先当然要先把API的声明加到代码中,开始一个新项目，在窗体（Form1）上放上三个按钮（Command1，Command2，Command3）。这个例子的功能是单击按钮用MSGBOX显示得到的路径。
—-笔者发现不能简单地复制VB5的API文本查看器中关于上面几个API的声明，要做一定的修改，要在每个函数名后加一个"A"，所有代码如下。
PrivateDeclareFunctionGetCurrentDirectoryALib"kernel32"(ByValnBufferLengthAsLong,ByVallpBufferAsString)AsLong
PrivateDeclareFunctionGetWindowsDirectoryALib"kernel32"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong
PrivateDeclareFunctionGetSystemDirectoryALib"kernel32"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong
PrivateSubCommand1_Click()
DimPathAsString*255
GetCurrentDirectoryA(Len(Path),Path)获取当前路径
MsgBox(Path)
EndSub
PrivateSubCommand2_Click()
DimPathAsString*255
GetWindowsDirectoryA(Path,Len(Path))获取WINDOWS路径
MsgBox(Path)
EndSub
PrivateSubCommand3_Click()
DimPathAsString*255
GetSystemDirectoryA(Path,Len(Path))获取SYSTEM路径
MsgBox(Path)
EndSub
—-7.错误陷阱中要注意的问题
—-笔者发现在循环中应用错误陷阱技术有一定的问题。比如下面这一段程序：
PrivateSubCommand1_Click()
DimIAsInteger
DimJAsInteger
OnErrorGoToJERROR
ForI=0To3
MsgBox(I)
J=10000*10000让J发生溢出错误
JERROR:
NextI
EndSub
—-按通常的分析，这段程序在运行时应该是不会出现错误的，但实际运行一下可以发现，当I等于1时发生溢出错误。这就是说错误陷阱只在循环的第一次有效。这个问题很值得注意，否则会给程序留下一个很大的臭虫。->
