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
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
Post a Comment