Microsoft.NET Framework supporta una varietà di tipi di dati che è possibile visualizzare i controlli di Windows Form. Il tipo di enumerazione dei dati consente agli utenti di rappresentare i dati di colonne della tabella. È possibile utilizzare esso per input un insieme di oggetti da un'origine dati a un controllo DataGridView o per selezionare i valori da un elenco di scelte. Associando un'enumerazione a una colonna di visualizzazione è possibile visualizzare ogni set di oggetti in una riga separata.

Istruzioni

1

Fare clic su "Start" in Windows e quindi fare clic su "Miccrosoft Visual Studio".

2

Fare clic su "File" e quindi fare clic su "Nuovo".

3

Immettere il codice seguente nella finestra aperta per associare l'enumerazione "infermieri" al controllo DataGridView.

Imports System.Windows.Forms

Imports System.Collections.Generic

Public Enum Title

RN

CN

End Enum

Public Class EnumsAndComboBox

Inherits Form

Private flow As New FlowLayoutPanel()

Private WithEvents checkForChange As Button = New Button()

Private nurses As List(Of Nurse)

Private dataGridView1 As New DataGridView()

Public Sub New()

MyBase.New()

SetupForm()

SetupGrid()

End Sub

Private Sub SetupForm()

AutoSize = True

End Sub

Private Sub SetupGrid()

nurses = 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))

' Initialize the DataGridView.

dataGridView1.AutoGenerateColumns = False

dataGridView1.AutoSize = True

dataGridView1.DataSource = nurses

dataGridView1.Columns.Add(CreateComboBoxWithEnums())

' Initialize and add a text box column.

Dim column As DataGridViewColumn = _

New DataGridViewTextBoxColumn()

column.DataPropertyName = "Name"

column.Name = "RN"

dataGridView1.Columns.Add(column)

Private Function CreateComboBoxWithEnums() As

DataGridViewComboBoxColumn

Dim combo As New DataGridViewComboBoxColumn()

combo.DataSource = [Enum].GetValues(GetType(Title))

combo.DataPropertyName = "Title"

combo.Name = "Title"

Return combo

End Function

Public Property Name() As String

Get

Return hisName

End Get

Set(ByVal Value As String)

hisName = Value

End Set

End Property

Public Property GoodGuy() As Boolean

Get

Return good

End Get

Set(ByVal Value As Boolean)

good = Value

End Set

End Property

Public Property Title() As Title

Get

Return hisTitle

End Get

Set(ByVal Value As Title)

hisTitle = Value

End Set

End Property

End Class

Public Shared Sub Main()

Application.Run(New EnumsAndComboBox())

End Sub

End Class

4

Fare clic su "File" e quindi fare clic su "Salva". Immettere un nome di file nella finestra Apri e fare clic su "OK" per salvare il controllo DataGridView con l'enumerazione binded nell'applicazione.