当前位置：首页 -> 技术开发 -> 程序开发 -> 一组VB实用小程序函数

一组VB实用小程序函数

时间： 2021-07-31 作者：daque

用vb实行编制程序离不开因变量挪用及windows api因变量的挪用，以次是笔者搜集的少许适用的小例程，它们不妨径直用在你的本质编制程序中，也不妨按照本质运用加以夸大完备。个中波及windows api因变量挪用的代码你不妨从vb5.0体例的api因变量察看器中复制因变量设置实质，以制止堕落。　　1.体例型表单　　体例型表示着用户实行暂时表单操纵之前没辙举行其它操纵，这对于体例体例口令养护界面尤为要害。即使你蓄意暂时表单体例型表单，需如次设置api因变量：declare function setsysmodalwindow lib "user" (byval hwnd as integer) as integer 　　而后挪用：oldsysmodal = setsysmodalwindow([form].hwnd)　　2.获得启动器典型　　代码如后： declare function getdrivetype lib “kernel" (byval ndrive as integer) as integerglobal const drive_removeable％ = 2, drive_fixed％ = 3global const drive_remote％ = 4 　　3.表单在对中　　簿本步调功效使表单定位在屏幕中心，在表单中任何须要表单对中的场合只需介入一条龙代码：“centerwindow.me”即可胜利挪用。public sub centerwindow(f as form)f.top = (screen.height ＊ .5) － (f.height ＊ .5)f.left = (screen.width ＊ .5) － (f.width ＊ .5)end sub 　　4. 设置变量　　很多的步调员风气于如次设置变量：dim inum, inextnum, ilastnum as integer 　　本质上惟有结果一个变量被设为了整型，前两个变量则是体例的缺省的variant 数据典型，而variant 数据典型可用来替代任何数据典型，明显对于简练的步调安排是倒霉的。精确的本领如次：dim inum as integerdim inextnum as integerdim ilastnum as integer 　　5. 使文本高亮　　簿本步调使被触发的诸如文本，标签等控件的文本被选中public sub setselected()screen.activecontrol.selstart = 0screen.activecontrol.sellength = len(screen.activecontrol.text)end sub 　　6. 封闭其它步调　　底下的代码可封闭外存中的其它步调　　title = "myapp" '设置你需封闭的步调窗口的题目ihwnd = findwindow(0＆, title)ihtask = getwindowtask (ihwnd)iret = postappmessage(ihtask, wm_quit, 0, 0＆) 　　7. 文献生存否?　　本因变量归来搜索的文献能否生存。function fileexist(filename as string) as booleanfileexist = iif(dir(filename) <> "", true, false)end function 　　8. 主步调独一　　用底下供给的代码作你的主步调可提防运用步调的多重实行，你该当将它放在坚信须要它的代码模块内。public sub main()if app.previnstance thenbringwindowtotop frmmain.hwndelseload frmmainend ifend sub 　　上头那些干练的代码对于专科步调员来说特殊有适用价格，蓄意你能居中赢得开辟。

一组VB实用小程序函数

相关推荐

推荐下载

热门阅览

最新排行