Microsoft . NET Framework ondersteunt een verscheidenheid van soorten gegevens die u kunt weergeven op de Windows Forms controls . De opsomming type gegevens kunnen gebruikers de tabel kolommen gegevens vertegenwoordigen . U kunt het gebruiken voor het invoeren van een set objecten uit een gegevensbron naar een DataGridView controle of om waarden in een lijst met keuzemogelijkheden te selecteren . Bij opsomming binden aan een beeldscherm kolom kan elke set van objecten in een aparte rij weergegeven . Instructies
1 Klik op "Start " in Windows en klik vervolgens op " Miccrosoft Visual Studio . " Kopen van 2 Klik op ' Bestand ' en vervolgens op ' Nieuw '.
3 Voer de volgende code in het open raam naar de " verpleegsters " opsomming binden aan de DataGridView controle . Imports
System.Windows.Forms Imports System
. Collections.Generic Public Enum Titel RN CN End Enum Public Class EnumsAndComboBox
erft Formulier Prive stroom
als Nieuwe FlowLayoutPanel ( ) Prive WithEvents checkForChange
Zoals Button = Nieuw knop ( ) Prive verpleegkundigen
Zoals List ( Of Verpleegkundige ) op Private dataGridView1 als nieuw DataGridView ( ) op Public Sub New ( ) MyBase.New ( ) op SetupForm ( ) op SetupGrid ( ) op < br > End Sub
Private Sub SetupForm ( ) AutoSize
= True
End Sub
Private Sub SetupGrid ( ) op verpleegkundigen = 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 , " Mary " , True ) ) nurses.Add
( New Nurse ( Title.CN , " Galahad " , True ) ) op Twitter ' de DataGridView initialiseren . dataGridView1.AutoGenerateColumns
= valse dataGridView1.AutoSize
= True
dataGridView1.DataSource = verpleegkundigen dataGridView1.Columns.Add
( CreateComboBoxWithEnums ( ) ) op ' initialiseren en voeg een tekstvak kolom . Dim kolom
Zoals DataGridViewColumn _
Nieuw DataGridViewTextBoxColumn ( ) column.DataPropertyName =
= " Naam " column.Name
= " RN " dataGridView1.Columns.Add
( column ) Private Function CreateComboBoxWithEnums
( ) Zoals
Dim combo DataGridViewComboBoxColumn
als Nieuwe DataGridViewComboBoxColumn ( ) < br > combo.DataSource = [ Enum ] . GetValues ( GetType ( titel ) ) combo.DataPropertyName
= " Titel " combo.Name
= " Titel "
Terug combo End Function openbaar Domein Naam
( ) As String
Ontvang Terug hisName Einde
Get
Set ( ByVal Value As String ) hisName
= Waarde End of Set End Property Public Property GoodGuy ( ) Zoals
Boole < br > Get Return goede Einde
Krijg Set
( ByVal Value zoals Van Boole ) goed = Waarde End
Stel End Property openbaar Domein Titel
( ) Zoals Titel | Ontvang Terug hisTitle Einde
Krijg
Set ( ByVal Value Zoals titel ) op Twitter hisTitle = Waarde End of Set End Property End Class Public
Shared Sub main ( ) Application.Run
( Nieuw EnumsAndComboBox ( ) ) End Sub End Class
4
Klik op " File " , en klik op ' Opslaan '. Voer een bestandsnaam in het open venster en klik op "OK " om de DataGridView controle te slaan met de binded opsomming in uw toepassing .
|
