一组VB实用小程序

用VB实现编程离不开函数调用及Windows API函数的调用，以下是笔者收集的一些实用的小例程......

作者：佚名来源：yesky 2007年10月16日

关键字：

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

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

业界热点: