Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na tlačidlo " Štart " vo Windows a potom kliknite na tlačidlo " Miccrosoft Visual Studio . "
2
Kliknite na " Súbor " a potom kliknite na tlačidlo " Nový . "
3
Zadajte nasledujúci kód v otvorenom okne zviazať " pestúnky " zoznamu riadenia DataGridView .
dovoz System.Windows.Forms
systému dovoz . Collections.Generic
Public Enuma Názov
RN
KN
End enum klipart
public class EnumsAndComboBox
dedí formulár klipart
Súkromná tok As New FlowLayoutPanel ( )
Súkromná WithEvents checkForChange ako Button = New Button ( )
súkromné zdravotné sestry ako zoznam ( sestry )
Privátne dataGridView1 ako nový DataGridView ( )
Public Sub New ( )
MyBase.New ( )
SetupForm ( )
SetupGrid ( )
End Sub
Private Sub SetupForm ( )
AutoSize = true
End Sub
Private Sub SetupGrid ( )
sestry = New List ( Of sestra )
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 , " Mary " , true ) )
nurses.Add ( New Nurse ( Title.CN , " Galahad " , true ) )
" Inicializácia DataGridView .
dataGridView1.AutoGenerateColumns = false
dataGridView1.AutoSize = TRUE
dataGridView1.DataSource = sestry
dataGridView1.Columns.Add ( CreateComboBoxWithEnums ( ) )
" Inicializácia a pridať textové pole stĺpca .
Dim stĺpec ako DataGridViewColumn = _
Nové DataGridViewTextBoxColumn ( )
column.DataPropertyName = " Meno "
column.Name = " RN "
dataGridView1.Columns.Add ( stĺpec ) Spojené
súkromné večierky CreateComboBoxWithEnums ( ) As
DataGridViewComboBoxColumn
Dim combo As New DataGridViewComboBoxColumn ( )
combo.DataSource = [ enum ] . GetValues ( gettype ( hlava ) )
combo.DataPropertyName = " Title "
combo.Name = " Title "
RETURN Combo
End Function
Verejná vlastnosť Name ( ) As String
si
Späť hisName
End Get
Set ( byVal Value As String )
hisName = Hodnota
End Set End Property
Public Property GoodGuy ( ) As Boolean
si
Späť dobrý
End Get
Set ( byVal Value As Boolean )
dobrú = Hodnota
Koniec nastaviť
End Property
Verejná vlastnosť Title ( Názov ) Ako
Získajte
Späť hisTitle
End Get
Set ( byval hodnota ako hlavy )
hisTitle = hodnota
End Set End Property
End Class
Public Shared Sub main ( )
Application.Run ( New EnumsAndComboBox ( ) )
End Sub End Class
4
Kliknite na " Súbor " , a kliknite na tlačidlo " Uložiť " . Zadajte názov súboru v otvorenom okne a kliknite na tlačidlo " OK " pre uloženie kontrolu DataGridView s viazanej zoznamu vo vašej aplikácii .