VB.NET常用的一些基本函数
来源:互联网 发布:java触屏通用版 编辑:程序博客网 时间:2024/04/29 18:55
'判断该窗体是否已经打开
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 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
CodeStr = 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
NewCode = NewCode * Been
Next
CodeStr = NewCode
NewCode = Nothing
For cec As Integer = 1 To CodeStr.Length
Try
NewCode = NewCode & CfsCode(CodeStr.Substring(cec - 1, 3))
Catch ex As Exception
Try
NewCode = NewCode & CfsCode(CodeStr.Substring(cec - 1, 2))
Catch exs As Exception
NewCode = NewCode & CfsCode(CodeStr.Substring(cec - 1, 1))
End Try
End Try
Next
For cec As Integer = 20 To NewCode.Length - 18 Step 2
EnPasStr = 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
CfsCodeStr = CfsCodeStr & Asc(Word.Substring(cc - 1, 1))
Next
CfsCodeStr = Hex(CfsCodeStr)
Return CfsCodeStr
End Function
Function CfsCode(ByVal Word As String) As String
Dim CfsCodeStr As String = ""
For cc As Integer = 1 To Word.Length
CfsCodeStr = 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
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常用的一些基本函数
- 一些常用的基本函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- vb.net常用函数
- Vb.net常用函数
- vb.net常用函数
- vb.net--常用函数
- import表时,表空间不足导致产生ORA-00604错误
- vb.net2005里 webclient实现文件下载
- hibernate和spring的整合
- J2ME开发之配置-Eclipse篇
- Preprocessor Directives
- VB.NET常用的一些基本函数
- spring事务,我的理解
- 如何在oracle存储过程中返回游标
- loadrunner监视linux服务器的安装与操作
- SAP天天学-教程(三)R3销售与分销概述
- 聊天 一对一 Socket
- 项目管理发展史 --转
- 经典正则表达式
- YL电厂WAS系统错误诊断日志分析