Contoh Membuat Enum Statement dan Penggunaan di VBNET

Ada yang belum tahu Enum di visual basic? saya akan jelaskan, enum adalah seperti constanta yang dikelompokan dalam satu group. untuk membuat enum anda bisa mengetik sintak seperti ini :

    Public Enum MyEnum As Integer

        Pilih1 = 0

        Pilih2 = 1

        Pilih3 = 2

        Pilih4 = 3

    End Enum

Nah untuk mencoba enum yang sudah kita buat tadi, buatlah contoh sub/function sederhana seperti dibawah ini :

    Sub pilih(ByVal paramPilih AsMyEnum)

        Select Case paramPilih

            Case0 '=pilih1

                MsgBox("djie")

            Case1 '=pilih2

                MsgBox("soft")

            Case2 '=pilih3

                MsgBox("blogspot")

            Case3 '=pilih4

                MsgBox("com")

        End Select

    End Sub

Perhatikan "ByVal paramPilih As MyEnum", artinya kita mendeklarasikan parameter dengan enum,
sehingga pas kita panggil (call) sub/function itu akan muncul pilihan seperti gambar dibawah ini:

Tidak hanya digunakan dalam parameter, tetapi juga dalam variable biasa atau constanta, contoh :

    Dimvar_enum As MyEnum = MyEnum.Pilih1

    Constcont_enum As MyEnum = MyEnum.Pilih3

Tags:
pengertian enum di vb, contoh membuat enumeration, enum adalah, simple enum vbnet, declaration of enum vbnet, VB.NET Enum Examples, Enum Statement (Visual Basic), String Enums in VB .Net, Enum in VB.NET