一組VB實用小程序函數

領測軟件測試網 用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


　　上面這些精悍的代碼對于專業程序員來說非常有實用價值，希望你能從中獲得啟發。

文章來源于領測軟件測試網 http://www.kjueaiud.com/