. Microsoft NET Framework støtter en rekke datatyper som du kan vise på Windows Forms kontroller. Opptellingen type data tillater brukere å representere tabellkolonnene data . Du kan bruke den til å legge inn et sett med objekter fra en datakilde til en DataGridView kontroll eller for å velge verdier fra en liste med valg . Ved å binde en oppregning til en skjerm kolonnen kan du vise hvert sett av objekter i en egen rad . Instruksjoner
en
Klikk "Start" i Windows , og klikk deretter på " Miccrosoft Visual Studio. "
2
Klikk på "File " og deretter " Ny".
3
Skriv inn følgende kode i det åpne vinduet for å binde " sykepleiere " opptellingen til DataGridView kontroll.
Importen system.windows.forms
Import System . Collections.Generic
Public Enum Tittel
RN
CN
End Enum
Public Class EnumsAndComboBox
arver Form
Private flyt som ny FlowLayoutPanel ( )
Private WithEvents checkForChange Som Button = Ny Button ( )
Private sykepleiere Som liste ( Av Nurse )
< p > Privat dataGridView1 som ny DataGridView ( )
Public Sub New ( )
MyBase.New ( )
SetupForm ( )
SetupGrid ( )
End Sub
Private Sub SetupForm ( )
AutoSize = sant
End Sub
Private Sub SetupGrid ( )
< p > sykepleiere = Ny liste ( Av Nurse )
nurses.Add (New Nurse ( Title.RN , "Jane" , sann) )
nurses.Add (New Nurse ( Title.RN , " Cynthia " , sann) )
nurses.Add (New Nurse ( Title.CN , " Julie " , False ) )
nurses.Add (New Nurse ( Title.CN , " Mary " sann) )
nurses.Add (New Nurse ( Title.CN , " Galahad " , sann) )
' Initialiser DataGridView .
dataGridView1.AutoGenerateColumns = False
dataGridView1.AutoSize = sant
dataGridView1.DataSource = sykepleiere
dataGridView1.Columns.Add ( CreateComboBoxWithEnums ( ) )
' Initialiser og legge til en tekstboksen kolonnen.
Dim kolonne Som DataGridViewColumn = _
New DataGridViewTextBoxColumn ( )
column.DataPropertyName = "Navn"
column.Name = " RN "
dataGridView1.Columns.Add (kolonne )
privat funksjon CreateComboBoxWithEnums ( ) Som
DataGridViewComboBoxColumn
Dim combo som ny DataGridViewComboBoxColumn ( )
combo.DataSource = [ Enum ] . GetValues ( getType (tittel ) )
combo.DataPropertyName = "Tittel"
combo.Name = "Tittel"
< p > Tilbake combo
End Function
offentlig eiendom Name ( ) As String
Få
Return hisName
End Få
Set ( ByVal Verdi As String )
hisName = Verdi
End Set
End Property
offentlig eiendom GoodGuy ( ) As Boolean
Få
Return god
End Få
Set ( ByVal verdi som boolske)
god = Verdi
End Sett
End Property
offentlig eiendom Tittel ( ) Som tittel
Få
Return hisTitle
End Få
< p > Set ( ByVal verdi som tittel)
hisTitle = Verdi
End Set
End Property
End Class
Public Delt Sub main ( )
Application.Run (New EnumsAndComboBox ( ) )
End Sub
End Class
4
Klikk på " File" , og klikk deretter på "Lagre". Angi et filnavn i det åpne vinduet og klikk " OK " for å lagre DataGridView kontroll med binded oppregning i programmet.
