Read Name of ENUM

Public Class Form1

    Private Enum VariableTypes
        [String] = 0
        [Date] = 1
        [Number] = 2
        [Boolean] = 3
        [Decimal] = 4
    End Enum

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim varTypes As Array = [Enum].GetValues(GetType(VariableTypes))

        For intloop As Int16 = 0 To varTypes.GetLength(0) - 1
            Me.ComboBox1.Items.Add(varTypes(intloop))
        Next


        'Dim varTypes As Array = [Enum].GetValues(GetType(ReportTypes))
        'Dim ReportKey As String = varTypes(Value.Report).ToString


    End Sub
End Class

Comments

Popular posts from this blog

Shared / Static Class in vb.net/C#

Xamarin Forms : PopUp Page with RG.Plugins.Popup

Text was truncated or one or more characters had no match in the target code page.". (SQL Server Import and Export Wizard)