VB.NET - 全局函数

Question

我希望创建一个全局函数，以便在整个应用程序中使用。假设它与数据库连接有关。

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

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

这样我就可以在应用程序中的每个表单中调用它。这使得我以后更容易编辑连接。

有人能帮助我展示如何定义这个全局函数以及如何在表单中调用这个函数吗？

最好的问候，

- Tepken Vannkorn

---

有关具有共享成员的模块与类的讨论，请参见：https://dev59.com/G3NA5IYBdhLWcg3wpfmu - Heinzi

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)

- Paulie Waulie

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

- Ales Ruzicka