Imports System.Windows.Forms
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Button2 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
Me.Button1.Location = New System.Drawing.Point(104, 24)
Me.Button1.Size = New System.Drawing.Size(184, 24)
Me.Button1.Text = "Bind to Enum"
'
Me.ListBox1.Location = New System.Drawing.Point(104, 112)
Me.ListBox1.Size = New System.Drawing.Size(184, 82)
'
Me.Button2.Location = New System.Drawing.Point(104, 64)
Me.Button2.Size = New System.Drawing.Size(184, 24)
Me.Button2.Text = "Display Value of Selected"
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(392, 246)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button2, Me.ListBox1, Me.Button1})
Me.ResumeLayout(False)
End Sub
Public Enum Test
A = 1
B = 2
C = 3
End Enum
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.DataSource = System.Enum.GetNames(GetType(Test))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strNames As Array = System.Enum.GetValues(GetType(Test))
Dim strValue As String = strNames(ListBox1.SelectedIndex)
MessageBox.Show(strValue)
End Sub
End Class
|
