当前位置:主页   - 电脑 - 程序设计 - VB
一组VB实用小程序
来源:网络转载   作者:未知   更新时间:2009-02-03
收藏此页】    【字号    】    【打印】    【关闭
用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
上面这些精悍的代码对于专业程序员来说非常有实用价值,希望你能从中获得启发。->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明