'Visual Basic 2010 Static Binding via MyClass Static Typing en Dynamic Binding
Namespace FieldInitialization
    Module ValuesStore
        Public Function GetValue(ByVal message As String) As String
            Console.WriteLine("GetValue : " & message)
            GetValue = "SomeValue"
        End Function
    End Module
    Class AClass
        Public Sub New()
            m_Value2 = ValuesStore.GetValue("m_Value2")
        End Sub
        Private m_Value1 As String = ValuesStore.GetValue("m_Value1")
        Private m_Value2 As String
        Private m_Value3 As String = ValuesStore.GetValue("m_Value3")
    End Class
    Class Example
        Public Shared Sub Main()
            Dim someObject As New AClass
            '
            Console.ReadLine()
        End Sub
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.