Fare clic su " Start" di Windows e quindi fare clic su " Miccrosoft Visual Studio . "
2
Fare clic su " File ' e fare clic su " Nuovo ".
3
Inserisci il seguente codice nella finestra aperta di impegnare l' enumerazione " infermieri " per il controllo DataGridView .
Imports System.Windows.Forms
Imports System . Collections.Generic
Public Enum Titolo
RN
CN
End Enum
Public Class EnumsAndComboBox
eredita forma
flusso privato As New FlowLayoutPanel ( ) per
WithEvents privato checkForChange Come button = new Button ( )
infermieri privati come List (Of Nurse ) per
privato dataGridView1 As New DataGridView ( ) per
Public Sub New ( ) per
MyBase.New ( ) per
SetupForm ( ) per
SetupGrid ( )
End Sub private Sub
SetupForm ( ) per
AutoSize = True
End Sub private Sub
SetupGrid ( ) per
infermieri = New List (Of Nurse ) per
nurses.Add ( New Nurse ( Title.RN , " Jane " , True) ) per
nurses.Add ( New Nurse ( Title.RN , " Cynthia " , True) ) per
nurses.Add ( New Nurse ( Title.CN , " Julie " , False) ) per
nurses.Add ( New Nurse ( Title.CN , "Maria " , True) ) per
nurses.Add ( New Nurse ( Title.CN , " Galahad " , True) ) per
'Inizializza il DataGridView .
dataGridView1.AutoGenerateColumns = False
dataGridView1.AutoSize = True
dataGridView1.DataSource = infermieri
dataGridView1.Columns.Add ( CreateComboBoxWithEnums ( ) ) per
'Inizializza e aggiungere un colonna casella di testo .
colonna Dim Come DataGridViewColumn = _
DataGridViewTextBoxColumn ( ) per
column.DataPropertyName = "Nome"
column.Name = " RN "
dataGridView1.Columns.Add ( colonna ) per
privati CreateComboBoxWithEnums function () As
DataGridViewComboBoxColumn
Dim combo come nuovo DataGridViewComboBoxColumn ( )
combo.DataSource = [ Enum ] . GetValues ( GetType ( Titolo ) ) per
combo.DataPropertyName = "Titolo"
combo.Name = "Titolo"
ritorno combo
End Function
Public Property Name ( ) As String
Ottieni
Torna hisName
Fine Come
Set ( ByVal Valore As String ) per
hisName = Valore
End Set
Programmazione © www.354353.com