一组VB实用小程序

用VB实现编程离不开函数调用及WindowsAPI函数的调用，以下是笔者收集的一些实用的小例程，它们可以直接用在你的实际编程中，也可以根据实际应用加以扩充完善。其中涉及WindowsAPI函数调用的代码你可以从VB5.0系统的API函数查看器中复制函数定义内容，以避免出错。
　　1.系统型表单
　　系统型意味着用户完成当前表单操作之前无法进行其它操作，这对于编制系统口令保护界面尤为重要。如果你希望当前表单系统型表单，需如下定义API函数：
　　DeclareFunctionSetSysModalWindowLib"User"(ByValhWndAsInteger)AsInteger
　　然后调用：oldSysModal=SetSysModalWindow([Form].hWnd)
　　2.获取驱动器类型
　　代码如后：
　　DeclareFunctionGetDriveTypeLib“Kernel"(ByValnDriveAsInteger)AsInteger
　　GlobalConstDRIVE_REMOVEABLE％=2,DRIVE_FIXED％=3
　　GlobalConstDRIVE_REMOTE％=4
　　3.表单在对中
　　本子程序功能使表单定位在屏幕中央，在表单中任何需要表单对中的地方只需加入一行代码：
　　“centerwindow.me”即可成功调用。
　　PublicSubCenterWindow(fAsForm)
　　f.Top=(Screen.Height＊.5)－(f.Height＊.5)
　　f.Left=(Screen.Width＊.5)－(f.Width＊.5)
　　EndSub
　　4.定义变量
　　许多的程序员习惯于如下定义变量：
　　DimiNum,iNextNum,iLastNumasInteger
　　实际上只有最后一个变量被设为了整型，前两个变量则是系统的缺省的Variant数据类型，而Variant数据类型可用来替换任何数据类型，显然对于精练的程序设计是不利的。正确的方法如下：
　　DimiNumasInteger
　　DimiNextNumasInteger
　　DimiLastNumasInteger
　　5.使文本高亮
　　本子程序使被触发的诸如文本，标签等控件的文本被选中
　　PublicSubSetSelected()
　　Screen.ActiveControl.SelStart=0
　　Screen.ActiveControl.SelLength=Len(Screen.ActiveControl.Text)
　　EndSub
　　6.关闭其它程序
　　下面的代码可关闭内存中的其它程序
　　title="MyAPP"'定义你需关闭的程序窗口的标题
　　ihWnd=findWindow(0＆,Title)
　　ihTask=GetWindowTask(ihWnd)
　　iRet=PostAppMessage(ihTask,WM_QUIT,0,0＆)
　　7.文件存在否?
　　本函数返回查找的文件是否存在。
　　FunctionFileExist(Filenameasstring)asBoolean
　　FileExist=Iif(Dir(Filename)<>"",True,False)
　　EndFunction
　　8.主程序唯一
　　用下面提供的代码作你的主程序可防止应用程序的多重执行，你应当将它放在确信需要它的代码模块内。
　　PublicSubMain()
　　IfApp.PrevInstanceThen
　　BringWindowToTopfrmMain.hwnd
　　Else
　　LoadfrmMain
　　EndIf
　　EndSub
　　上面这些精悍的代码对于专业程序员来说非常有实用价值，希望你能从中获得启发。->