VB.NET中的函數(shù)應(yīng)用方式是一個(gè)比較基礎(chǔ)的知識(shí)點(diǎn)。我們可以通過(guò)實(shí)踐來(lái)積累經(jīng)驗(yàn)，充分掌握這些函數(shù)的應(yīng)用方法。在這里我們就先為大家詳細(xì)介紹幾個(gè)VB.NET基本函數(shù)的應(yīng)用方法，希望能給大家?guī)?lái)一些幫助。

判斷該窗體是否已經(jīng)打開

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 

系統(tǒng)退出時(shí)的代碼

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

判斷字符是否為數(shù)字型,當(dāng)為數(shù)字時(shí)返回True，不為時(shí)返回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 

加密函數(shù)

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 

加密子函數(shù)

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 

打開某一個(gè)程序 程序的路徑

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文件操作部分（系統(tǒng)設(shè)置） "  
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 

連接數(shù)據(jù)庫(kù)的IP、數(shù)據(jù)庫(kù)名稱、用戶名、密碼

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("系統(tǒng)初始化出錯(cuò)，
請(qǐng)與系統(tǒng)管理員聯(lián)系！！", "嚴(yán)重警告", 
MessageBoxButtons.OK, MessageBoxIcon.Error)  
End  
End If  
End Sub  
#End Region 

VB.NET基本函數(shù)的相關(guān)概念就為大家介紹到這里。

【編輯推薦】

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