vb小程序:一组VB实用小程序函数-vb教程来源: 发布时间:星期四, 2008年9月25日 浏览:134次 评论:0
实现编程离不开函数调用及Windows API函数的调用,以下是笔者收集的一些实用的小例程,它们可以直接用在你的实际编程中,也可以根据实际应用加以扩充完善。其中涉及Windows API函数调用的代码你可以从VB5.0系统的API函数查看器中复制函数定义内容,以避免出错。
1.系统型表单 系统型意味着用户完成当前表单操作之前无法进行其它操作,这对于编制系统口令保护界面尤为重要。如果你希望当前表单系统型表单,需如下定义API函数: Declare Function SetSysModalWindow Lib \"User\" (ByVal hWnd As Integer) As Integer
2.获取驱动器类型 代码如后: Declare Function GetDriveType Lib “Kernel\" (ByVal nDrive As Integer) As Integer
本子程序功能使表单定位在屏幕中央,在表单中任何需要表单对中的地方只需加入一行代码: “centerwindow.me”即可成功调用。 Public Sub CenterWindow(f As Form)
许多的程序员习惯于如下定义变量: Dim iNum, iNextNum, iLastNum as Integer
Dim iNum as Integer
本子程序使被触发的诸如文本,标签等控件的文本被选中 Public Sub SetSelected()
下面的代码可关闭内存中的其它程序 title = \"MyAPP\" ´定义你需关闭的程序窗口的标题 ihWnd = findWindow(0&, Title)
本函数返回查找的文件是否存在。 Function FileExist(Filename as string) as Boolean
用下面提供的代码作你的主程序可防止应用程序的多重执行,你应当将它放在确信需要它的代码模块内。 Public Sub Main()
0
相关文章
读者评论
发表评论 |