1
clic en "Inicio " de Windows y haga clic en " Miccrosoft Visual Studio. "
2
clic en "Archivo " y luego haga clic en "Nuevo".
3
Escriba el siguiente código en la ventana abierta para obligar a la enumeración de " enfermeras " con el control DataGridView.
Imports System.Windows.Forms
Imports System . Collections.Generic
Public Enum TITLE
RN
CN
End Enum
Public Class EnumsAndComboBox
Inherits Formulario
flujo privado como nuevo FlowLayoutPanel ()
Private WithEvents checkForChange Como button = new Button ()
enfermeras privadas como List (Of Nurse )
< p > dataGridView1 Private As New DataGridView ()
Public Sub New ()
MyBase.New ()
SetupForm ()
SetupGrid ()
End Sub Private Sub
SetupForm ()
AutoSize = True End Sub
Private Sub SetupGrid ()
< p > enfermeras = New List (Of Nurse )
nurses.Add (New Nurse ( Title.RN , "Jane" , True) )
nurses.Add (New Nurse ( Title.RN , " Cynthia " , True) )
nurses.Add (New Nurse ( Title.CN , " Julie " , False ))
nurses.Add (New Nurse ( Title.CN , "María " , True) )
nurses.Add (New Nurse ( Title.CN , " Galahad " , True) )
'Iniciar el DataGridView.
dataGridView1.AutoGenerateColumns = Falso
dataGridView1.AutoSize = True
dataGridView1.DataSource = enfermeras
dataGridView1.Columns.Add ( CreateComboBoxWithEnums ( ))
" Dar formato y añadir un columna de cuadro de texto.
columna As DataGridViewColumn = _
Nueva DataGridViewTextBoxColumn ()
column.DataPropertyName = "Nombre"
column.Name = " RN "
dataGridView1.Columns.Add (columna )
CreateComboBoxWithEnums función privada () As
DataGridViewComboBoxColumn
combo Dim As New DataGridViewComboBoxColumn ()
combo.DataSource = [ Enum ] . GetValues ( GetType (Título) ) guía
combo.DataPropertyName = "Title"
combo.Name = "Title"
< p > Volver combo
End Function
Nombre de la propiedad pública () As String Get
Volver hisName
final Cómo
Set ( ByVal Value As String )
hisName = Valor
End Set End
propiedad en
GoodGuy público de la Propiedad () As Boolean
Obtener
retorno buena
final Cómo
Set ( ByVal Value As Boolean )
buena = Valor
End Establecer
End propiedad en
Public Título de Propiedad () Como TITLE
Obtener
Volver hisTitle
final Cómo
< p > Set ( Valor de ByVal como título)
hisTitle = Valor
End Set End
propiedad en
End Class
Public Shared Sub principal ()
Application.Run (New EnumsAndComboBox ( ))
End Sub End Class
4 Haga clic en " archivo" y a continuación, haga clic en " Guardar". Introduzca el nombre del archivo en la ventana abierta y haga clic en "OK " para guardar el control DataGridView con la enumeración binded en su aplicación.