我想在整个应用程序中创建一个全局函数。让我们说它是关于数据库的连接。
我打算在我的全局函数中使用的代码是:
myConnection = New SqlConnection("...........")
myConnection.Open()
因此,我可以在整个应用程序中将其调用为各种形式。这可以让我以后轻松编辑连接。
有没有人可以帮我展示如何定义这个全局函数以及如何在表单中调用这个函数。
最好的考虑,
答案 0 :(得分:4)
Public NotInheritable Class Utilities
Private Sub New()
End Sub
Public Shared Function MyMethod(myParam As Object) As MyObject
'Do stuff in here
Return New MyObject()
End Function
End Class
然后消费
Dim instance As MyObject = Utilities.MyMethod(parameterObject)
答案 1 :(得分:2)
使用Module而不是class
Module ConnectionHelper
Public Function OpenConnection() As SqlConnection
Dim conn As New SqlConnection("")
conn.Open()
Return conn
End Function
End Module
Class P
Public Sub New()
Using conn = OpenConnection()
'here you can work with connection
End Using
End Sub
End Class
在P级中,您展示了首选用途