VB.NET基本函数内容概述-vb自定义函数

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基本函数的相关概念就为大家介绍到这里。

【编辑推荐】