一组VB实用小程序函数

原创 2002年02月18日 12:03:00

用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实现编程离不开函数调用及Windows API函数的调用,以下是笔者收集的一些实用的小例程,它们可以直接用在你的实际编程中,也可以根据实际应用加以扩充完善。其中涉及Windows API函数调用...
  • pzhan
  • pzhan
  • 2007年02月16日 21:21
  • 624

一组VB实用小程序

一组VB实用小程序用VB实现编程离不开函数调用及Windows API函数的调用,以下是笔者收集的一些实用的小例程,它们可以直接用在你的实际编程中,也可以根据实际应用加以扩充完善。其中涉及Window...
  • ZOU_SEAFARER
  • ZOU_SEAFARER
  • 2006年02月20日 10:12
  • 877

vb_一个简单的小程序·1

Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = True Command3.Enabled = ...
  • a191030148
  • a191030148
  • 2012年11月05日 10:14
  • 7694

小程序发布这么久,这些优质实用小程序都用了吗

微小程就给大家介绍一些优质的使用小程序。
  • wexiaocheng
  • wexiaocheng
  • 2017年10月18日 17:54
  • 54

VBA 入门进阶 实用小程序

这些都是平时用到的小程序,涉及到知识点的都总结下来了,主要包括循环的利用,文件读写,学会了很简单,只要把逻辑整理清楚就好。 最复杂的是没有规律的Excel文档,这个最让人头疼。。 ----...
  • liuxiaoddd
  • liuxiaoddd
  • 2016年02月25日 14:17
  • 864

java经典小程序

以下答案源于java菜鸟学堂(144648357)群共享第一题Java code
  • zhujie790220860
  • zhujie790220860
  • 2011年07月28日 22:16
  • 5438

在读自考期间,我用VB6.0制作的一个搜索本机文件的软件,小软件,实用。

那个时候,还是零几年,操作系统还是WIN2000和WIN XP的时代。用这两个系统搜索文件不是太方便。速度慢,出结果慢,而且一些不相关或者不精确的搜索结果也显示了出来,于是,我打算自己做一个搜索程序,...
  • huangxingzhou
  • huangxingzhou
  • 2017年11月13日 14:59
  • 88

用VB做的一个小程序

Dim num As StringDim qqurl As StringPrivate Sub Command1_Click()num = Me.Text1.Textqqurl = "http://w...
  • getdata
  • getdata
  • 2005年07月20日 23:40
  • 786

matlab快速傅立叶变换小程序(含GUI)

function varargout = Experiment1(varargin) % EXPERIMENT1 M-file for Experiment1.fig % EXPERIMEN...
  • u013346007
  • u013346007
  • 2017年01月12日 14:20
  • 523

Windows Bat小程序

不定期更新: 2016年12月5日 1.chm文件转txt  hh -decompile d:\test\help 123.chmd:\test\help为目标路径 123.chm为源文件 bat...
  • u012175089
  • u012175089
  • 2016年12月05日 22:52
  • 2127
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一组VB实用小程序函数
举报原因:
原因补充:

(最多只允许输入30个字)