2011-07-07 93 views
3

我想创建一个全局函数来在我的应用程序中使用。假设它是关于到数据库的连接。vb.net - 全局函数

我的代码,我计划在我的全局函数使用的是:

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

所以,我可以把它在我的应用程序在任何形式的使用。这可以使我稍后轻松编辑连接。

任何人都可以帮助我展示如何定义这个全局函数以及如何在窗体中调用这个函数。

最佳方面,

+1

谷歌为“共享”; o) –

+1

有关使用共享成员的模块与类的讨论,请参阅:http://stackoverflow.com/questions/881570/classes-vs-modules-in-vb-net – Heinzi

回答

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级你有首选使用的展示

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)