VB.NET基本函数内容概述

VB.NET中的函数应用方式是一个比较基础的知识点。我们可以通过实践来积累经验,充分掌握这些函数的应用方法。在这里我们就先为大家详细介绍几个VB.NET基本函数的应用方法,希望能给大家带来一些帮助。

成都创新互联2013年至今,是专业互联网技术服务公司,拥有项目网站设计制作、成都网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元天台做网站,已为上家服务,为天台各地企业和个人服务,联系电话:13518219792

判断该窗体是否已经打开

 
 
 
  1. Public Function OpenForm
    (ByVal myform As Form, ByVal 
    MdiForm As Form) As Boolean
  2. Dim form As Form
  3. For Each form In MdiForm.
    MdiChildren
  4. If form.Text = myform.
    Text Then
  5. form.Activate()
  6. Return True
  7. End If
  8. Next
  9. Return False
  10. End Function

系统退出时的代码

 
 
 
  1. Public Sub ExitSystem
    (ByVal Form_Name As String)
  2. If Form_Name = "Exit" Then
  3. ' If MsgBox("您真的要退出文件管理系统吗?",
     MsgBoxStyle.YesNo + MsgBoxStyle.
    Question, "退出系统") = 
    MsgBoxResult.Yes Then
  4. Application.Exit()
  5. End
  6. 'End If
  7. End If
  8. End Sub

判断字符是否为数字型,当为数字时返回True,不为时返回False

 
 
 
  1. Public Function IsNumeric
    (ByVal strText As String) 
    As Boolean
  2. Dim charstr As Char
  3. For Each charstr In strText
  4. If Not Char.IsNumber
    (charstr) Then
  5. Return False
  6. End If
  7. Next
  8. Return True
  9. End Function

加密函数

 
 
 
  1. Function EnPas(ByVal CodeStr 
    As String) As String
  2. Dim CodeLen As Integer = 30
  3. Dim CodeSpace, Been, NewCodeInt
     As Integer
  4. Dim EnPasStr As String = ""
  5. Dim NewCode As String
  6. CodeSpace = CodeLen - CodeStr.Length
  7. If Not CodeSpace < 1 Then
  8. For cecr As Integer = 1 To CodeSpace
  9. CodeStrCodeStr = CodeStr & Chr(21)
  10. Next
  11. End If
  12. NewCodeInt = 1
  13. NewCode = 1
  14. For cecb As Integer = 1 To CodeLen
  15. Been = CodeLen + Asc(CodeStr.
    Substring(cecb - 1, 1)) * cecb
  16. NewCodeNewCode = NewCode * Been
  17. Next
  18. CodeStr = NewCode
  19. NewCode = Nothing
  20. For cec As Integer = 1 To CodeStr.Length
  21. Try
  22. NewCodeNewCode = NewCode & 
    CfsCode(CodeStr.Substring(cec - 1, 3))
  23. Catch ex As Exception
  24. Try
  25. NewCodeNewCode = NewCode & CfsCode
    (CodeStr.Substring(cec - 1, 2))
  26. Catch exs As Exception
  27. NewCodeNewCode = NewCode & CfsCode
    (CodeStr.Substring(cec - 1, 1))
  28. End Try
  29. End Try
  30. Next
  31. For cec As Integer = 20 To NewCode.
    Length - 18 Step 2
  32. EnPasStrEnPasStr = EnPasStr & NewCode.
    Substring(cec - 1, 1)
  33. Next
  34. Return EnPasStr
  35. End Function

加密子函数

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

打开某一个程序 程序的路径

 
 
 
  1. Public Function Openfile
    (ByVal FilePath As String) 
    As Boolean
  2. Try
  3. System.Diagnostics.Process.
    Start(FilePath)
  4. Return True
  5. Catch ex As Exception
  6. MsgBox(ex.Message)
  7. Return False
  8. Exit Function
  9. End Try
  10. End Function
  11. #Region " XML文件操作部分(系统设置) "
  12. Public Sub RendXml(ByVal
     filename As String)
  13. Dim falg As Boolean = True
  14. Dim fi As System.IO.FileInfo
  15. fi = New System.IO.FileInfo(filename)
  16. If fi.Exists Then
  17. Dim doc As New XmlDocument
  18. doc.Load(filename)
  19. Dim nodeRoot = doc.DocumentElement

连接数据库的IP、数据库名称、用户名、密码

 
 
 
  1. Sys_Data_Source = nodeRoot.
    SelectSingleNode("Sys_Data_Source")
    .InnerText
  2. Sys_Data_Catalog = nodeRoot.
    SelectSingleNode("Sys_Data_Catalog")
    .InnerText
  3. Sys_Data_User = nodeRoot.
    SelectSingleNode("Sys_Data_User")
    .InnerText
  4. Sys_Data_Password = nodeRoot.
    SelectSingleNode("Sys_Data_Password")
    .InnerText
  5. Else
  6. MessageBox.Show("系统初始化出错,
    请与系统管理员联系!!", "严重警告", 
    MessageBoxButtons.OK, MessageBoxIcon.Error)
  7. End
  8. End If
  9. End Sub
  10. #End Region

VB.NET基本函数的相关概念就为大家介绍到这里。

分享名称:VB.NET基本函数内容概述
网页URL:http://www.shufengxianlan.com/qtweb/news48/198298.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联