vb.net - 全局函数

Question

我想创建一个全局函数以在整个应用程序中使用。假设是关于与数据库的连接。

我计划在全局函数中使用的代码是：

myConnection = New SqlConnection("...........")
 myConnection.Open()

这样我就可以在整个应用程序中调用它以在每种形式中使用它。这可以让我稍后轻松编辑连接。

谁能帮我展示如何定义这个全局函数以及如何在表单中调用这个函数。

最好的尊重，

Answer 1

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)

Answer 2

使用模块代替类

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 类中，您展示了首选用法