Penggunaan Delegate Shared Pada Class VBNET

Bagi anda yang baru belajar Class di VBNET (Class Module in VB6), saya akan berbagi sedikit tentang fungsi Delegate "Shared". Contoh pengunaannya bisa dikombinasikan seperti :
Public Shared Function [FunctionName]
Public Shared Sub [SubName]
Public Shared [VariableName]
Public Shared Const [ConstantaName]
dan lain sebagainya, lalu apa sebenarnya fungsi dari "Shared" ini ? penjelasan singkatnya adalah jika sebuah variable/sub/function pada sebuah Class di-"Shared"-kan, maka akan dapat diakses secara langsung tanpa harus mendeklarasikan "New" terlebih dahulu. Contohnya saya membuat Class1 :

Public Class Class1

    Public var1 As Integer

    Public Shared var2 As Integer

    Public Sub show_message1(ByValpesan As String)

        MessageBox.Show(pesan, "djiesoft test1", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Public Shared Subshow_message2(ByVal pesan As String)

        MessageBox.Show(pesan, "djiesoft test2", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

End Class

Jika kita coba panggil di event Button1_Click, maka yang saya "Shared" akan muncul dan bisa langsung digunakan:

Tetapi yang tidak di "Shared" maka tidak akan muncul, sampai kita mendeklarasikan "New" dulu ke sebuah variable baru, contoh :

Jadi cara penggunaan sekaligus perbedaan nya adalah :

Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Dimtest_class As NewClass1

        test_class.show_message1("My Name Is Djie #1")

End Sub

Private Sub Button1_Click(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Class1.show_message2("My Name Is Djie #2")

End Sub

Tags:
Object reference not set to an instance of an object., contoh membuat class vbnet, contoh penggunaan class vbnet, perbedan class dan module vbnet,