一组VB实用小程序函数
来源:互联网 发布:彩票系统 源码 编辑:程序博客网 时间:2024/06/06 18:44
用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 Integer
Global Const DRIVE_REMOVEABLE% = 2, DRIVE_FIXED% = 3
Global 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 Integer
Dim iNextNum as Integer
Dim iLastNum as Integer
5. 使文本高亮
本子程序使被触发的诸如文本,标签等控件的文本被选中
Public Sub SetSelected()
Screen.ActiveControl.SelStart = 0
Screen.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 Boolean
FileExist = Iif(Dir(Filename) <> "", True, False)
End Function
8. 主程序唯一
用下面提供的代码作你的主程序可防止应用程序的多重执行,你应当将它放在确信需要它的代码模块内。
Public Sub Main()
If App.PrevInstance Then
BringWindowToTop frmMain.hwnd
Else
Load frmMain
End If
End Sub
上面这些精悍的代码对于专业程序员来说非常有实用价值,希望你能从中获得启发。
以上代码来自: 源代码数据库(SourceDataBase)
当前版本: 1.0.392
作者: Shawls
个人主页: Http://Shawls.Yeah.Net
E-Mail: ShawFile@163.Net
QQ: 9181729
- 一组VB实用小程序函数
- 一组VB实用小程序函数
- 一组VB实用小程序
- VB 实用函数集
- VB 实用函数集
- VB 实用函数集
- vb 实用函数
- 一组实用的Cookie读写函数(JS)
- VB代码 VB小程序
- java实用小程序
- Netty实用小程序。
- 各类实用小程序
- Delphi实用小函数
- javascript实用小函数
- 一些实用小函数
- 实用字符小函数
- DEBUG实用小程序集锦
- DEBUG实用小程序集锦
- DIV+CSS网页布局
- 监视系统中进程的创建和终止
- 网页主题相关度计算
- 发一款资源查看,编辑软件,可以编辑dll,exe,res等后缀名的文件的小东东(Reshacker汉化版)
- 用VB6读写数据库中的图片
- 一组VB实用小程序函数
- 使用 Visual Basic 通过 32 位 地址访问内存(中英对照)
- Linux/Unix 编程电子书下载集绵
- 过年了
- 用VB产生随机任意大小文件挤满硬盘
- 外企工作日志11
- 用VB建立快捷方式
- JSP连接Mysql数据库详解及乱码处理
- VB中实现MD5加密