VB.NET中的函數應用方式是一個比較基礎的知識點。我們可以通過實踐來積累經驗，充分掌握這些函數的應用方法。在這里我們就先為大家詳細介紹幾個VB.NET基本函數的應用方法，希望能給大家帶來一些幫助。

判斷該窗體是否已經打開

Public Function OpenForm
(ByVal myform As Form, ByVal 
MdiForm As Form) As Boolean  
Dim form As Form  
For Each form In MdiForm.
MdiChildren  
If form.Text = myform.
Text Then  
form.Activate()  
Return True  
End If  
Next  
Return False  
End Function 

系統退出時的代碼

Public Sub ExitSystem
(ByVal Form_Name As String)  
If Form_Name = "Exit" Then  
' If MsgBox("您真的要退出文件管理系統嗎？",
 MsgBoxStyle.YesNo + MsgBoxStyle.
Question, "退出系統") = 
MsgBoxResult.Yes Then  
Application.Exit()  
End  
'End If  
End If  
End Sub 

判斷字符是否為數字型,當為數字時返回True，不為時返回False

Public Function IsNumeric
(ByVal strText As String) 
As Boolean  
Dim charstr As Char  
For Each charstr In strText  
If Not Char.IsNumber
(charstr) Then  
Return False  
End If  
Next  
Return True  
End Function 

加密函數

Function EnPas(ByVal CodeStr 
As String) As String  
Dim CodeLen As Integer = 30 
Dim CodeSpace, Been, NewCodeInt
 As Integer  
Dim EnPasStr As String = "" 
Dim NewCode As String  
CodeSpace = CodeLen - CodeStr.Length  
If Not CodeSpace < 1 Then  
For cecr As Integer = 1 To CodeSpace  
CodeStrCodeStr = CodeStr & Chr(21)  
Next  
End If  
NewCodeInt = 1 
NewCode = 1 
For cecb As Integer = 1 To CodeLen  
Been = CodeLen + Asc(CodeStr.
Substring(cecb - 1, 1)) * cecb  
NewCodeNewCode = NewCode * Been  
Next  
CodeStr = NewCode 
NewCode = Nothing 
For cec As Integer = 1 To CodeStr.Length  
Try  
NewCodeNewCode = NewCode & 
CfsCode(CodeStr.Substring(cec - 1, 3))  
Catch ex As Exception  
Try  
NewCodeNewCode = NewCode & CfsCode
(CodeStr.Substring(cec - 1, 2))  
Catch exs As Exception  
NewCodeNewCode = NewCode & CfsCode
(CodeStr.Substring(cec - 1, 1))  
End Try  
End Try  
Next  
For cec As Integer = 20 To NewCode.
Length - 18 Step 2  
EnPasStrEnPasStr = EnPasStr & NewCode.
Substring(cec - 1, 1)  
Next  
Return EnPasStr  
End Function 

加密子函數

Function CfsCode(ByVal Word 
As String) As String  
Dim CfsCodeStr As String = "" 
For cc As Integer = 
1 To Word.Length  
CfsCodeStrCfsCodeStr = 
CfsCodeStr & Asc(Word.
Substring(cc - 1, 1))  
Next  
CfsCodeStr = Hex(CfsCodeStr)  
Return CfsCodeStr  
End Function 

打開某一個程序 程序的路徑

Public Function Openfile
(ByVal FilePath As String) 
As Boolean  
Try  
System.Diagnostics.Process.
Start(FilePath)  
Return True  
Catch ex As Exception  
MsgBox(ex.Message)  
Return False  
Exit Function  
End Try  
End Function  
#Region " XML文件操作部分（系統設置） "  
Public Sub RendXml(ByVal
 filename As String)  
Dim falg As Boolean = True 
Dim fi As System.IO.FileInfo  
fi = New System.IO.FileInfo(filename)  
If fi.Exists Then  
Dim doc As New XmlDocument  
doc.Load(filename)  
Dim nodeRoot = doc.DocumentElement 

連接數據庫的IP、數據庫名稱、用戶名、密碼

Sys_Data_Source = nodeRoot.
SelectSingleNode("Sys_Data_Source")
.InnerText  
Sys_Data_Catalog = nodeRoot.
SelectSingleNode("Sys_Data_Catalog")
.InnerText  
Sys_Data_User = nodeRoot.
SelectSingleNode("Sys_Data_User")
.InnerText  
Sys_Data_Password = nodeRoot.
SelectSingleNode("Sys_Data_Password")
.InnerText  
Else  
MessageBox.Show("系統初始化出錯，
請與系統管理員聯系！！", "嚴重警告", 
MessageBoxButtons.OK, MessageBoxIcon.Error)  
End  
End If  
End Sub  
#End Region 

VB.NET基本函數的相關概念就為大家介紹到這里。

【編輯推薦】

1. VB.NET中心旋轉圖像實現技巧分享
2. 快速掌握VB.NET獲取CPU使用率技巧
3. VB.NET刪除空白行具體實現方法詳解
4. VB.NET連接遠程數據庫技巧分享
5. VB.NET播放WAV實現方法介紹