JAK: Wi�zanie tablicy ArrayList lub kolekcji obiekt�w z formularzem systemu Windows za pomoc� programu Visual Basic .NET

Numer ID artyku�u: 313640 - Zobacz jakich produkt�w dotycz� zawarte w tym artykule porady.

Ten artyku� zosta� opublikowany wcze�niej pod numerem PL313640

W tym artykule opisano �krok po kroku�, jak zwi�za� tablic� ArrayList obiekt�w z formularzem systemu Windows. Przyk�ad przedstawiony w tym artykule dotyczy formularza systemu Windows z trzema polami tekstowymi s�u��cymi do wy�wietlania w�a�ciwo�ci obiektu. Formularz ten zawiera r�wnie� cztery przyciski polecenia s�u��ce do nawigowania po tablicy ArrayList.

Wymagania

Oto lista wymaganych element�w, takich jak sprz�t, oprogramowanie, infrastruktura sieci, umiej�tno�ci, wiedza i dodatki Service Pack:

Program Visual Studio .NET
�redni poziom wiedzy na temat poj�� dotycz�cych programowania w j�zyku Visual Basic

Opis kodu

W tej sekcji przedstawiono poj�cia zwi�zane z pisaniem kodu, kt�re s� niezb�dne do wykonania tego zadania.

Projektowanie klasy

Klasa, kt�ra b�dzie zwi�zana z formularzem, musi mie� obiekty udost�pniaj�ce w�a�ciwo�ci. Ka�da w�a�ciwo��, kt�ra b�dzie zwi�zana, musi mie� metody Property Set i Property Get. Klasa u�ywana w przyk�adzie pokazanym w tym artykule ma trzy w�a�ciwo�ci (w tej sekcji pokazano tylko jedn�). Przyk�ad obejmuje r�wnie� sparametryzowanego konstruktora, chocia� nie jest on wymagany.

Public Class guitar
    Private m_make As String
    Private m_model As String
    Private m_year As Short

    Public Sub New(ByVal make, ByRef model, ByVal year)
        Me.make = make
        Me.model = model
        Me.year = year
    End Sub
    Public Property make() As String
        Get
            Return m_make
        End Get
        Set(ByVal Value As String)
            m_make = Value
        End Set
    End Property
End Class

Dodawanie wyst�pie� klasy do tablicy ArrayList

Nast�pnym krokiem jest utworzenie obiekt�w i dodanie ich do tablicy ArrayList:

Private al As New ArrayList()

al.Add(New guitar("Gibson", "Les Paul", 1958))
al.Add(New guitar("Fender", "Jazz Bass", 1964))
al.Add(New Guitar("Guild", "Bluesbird", 1971))

Wi�zanie w�a�ciwo�ci obiektu z formantami formularza

Po wype�nieniu tablicy ArrayList pojedyncze w�a�ciwo�ci obiektu mo�na zwi�za� z formantami formularza systemu Windows. Aby to zrobi�, nale�y wywo�a� metod� Add w�a�ciwo�ci DataBindings formantu TextBox. Ponadto nale�y przekaza� w�a�ciwo�� formantu, kt�ra b�dzie zwi�zana, nazw� obiektu typu ArrayList oraz w�a�ciwo�� tego obiektu.

TextBox1.DataBindings.Add("Text", al, "Make")
TextBox2.DataBindings.Add("Text", al, "Model")
TextBox3.DataBindings.Add("Text", al, "Year")

Umo�liwienie nawigowania po tablicy ArrayList

Ostatnim krokiem w tym procesie jest u�ycie klasy CurrencyManager w celu umo�liwienia nawigowania po tablicy ArrayList. Aby to zrobi�, nale�y skojarzy� klas� CurrencyManager z w�a�ciwo�ci� BindingContext formularza (w tym wypadku ArrayList).

Private cMan As CurrencyManager

cMan = CType(Me.BindingContext(al), CurrencyManager)

Klasa CurrencyManager ma w�a�ciwo�� Position, kt�r� mo�na manipulowa� w celu iterowania przez elementy tablicy ArrayList. Dodaj�c lub odejmuj�c warto�ci od bie��cej warto�ci w�a�ciwo�ci Position, mo�na wy�wietla� r�ne elementy tablicy ArrayList na formularzu. Na przyk�ad:

'Przejd� o jeden element w prz�d.
 cMan.Position += 1
'Przejd� o jeden element w ty�.
cMan.Position -= 1
'Przejd� na pocz�tek.
cMan.Position = 0
'Przejd� na koniec.
cMan.Position = al.Count - 1

Przyk�ad �krok po kroku�

Utw�rz nowy projekt aplikacji programu Visual Basic .NET dla systemu Windows. Domy�lnie do projektu zostaje dodany formularz Form1.
Dodaj klas� do projektu.

Zast�p kod w pliku Class1.vb nast�puj�cym kodem:

Public Class guitar
    Private m_make As String
    Private m_model As String
    Private m_year As Short

    Public Sub New(ByVal make, ByRef model, ByVal year)
        Me.make = make
        Me.model = model
        Me.year = year
    End Sub
    Public Property make() As String
        Get
            Return m_make
        End Get
        Set(ByVal Value As String)
            m_make = Value
        End Set
    End Property
    Public Property model() As String
        Get
            Return m_model
        End Get
        Set(ByVal Value As String)
            m_model = Value
        End Set
    End Property
    Public Property year() As Short
        Get
            Return m_year
        End Get
        Set(ByVal Value As Short)
            m_year = Value
        End Set
    End Property
End Class

Dodaj do formularza Form1 trzy formanty TextBox, a nast�pnie rozmie�� je poziomo.
Dodaj do formularza Form1 cztery formanty Button, a nast�pnie rozmie�� je poziomo.
Zmie� w�a�ciwo�� Text przycisk�w, jak nast�puje:
Zwi� t� tabel�Rozwi� t� tabel�
Przycisk Text
Button1 Nast�pny
Button2 Poprzedni
Button3 Pierwszy
Button4 Ostatni
Dodaj nast�puj�cy kod do sekcji deklaracji formularza Form1:
Private al As New ArrayList() Private cMan As CurrencyManager

Dodaj nast�puj�cy kod do procedury zdarzenia Form_Load:

al.Add(New guitar("Gibson", "Les Paul", 1958))
al.Add(New guitar("Fender", "Jazz Bass", 1964))
al.Add(New Guitar("Guild", "Bluesbird", 1971))

cMan = CType(Me.BindingContext(al), CurrencyManager)

TextBox1.DataBindings.Add("Text", al, "make")
TextBox2.DataBindings.Add("Text", al, "model")
TextBox3.DataBindings.Add("Text", al, "year")

Dodaj nast�puj�cy kod po procedurze zdarzenia Form_Load:

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
        cMan.Position += 1
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
        cMan.Position -= 1
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click
        cMan.Position = 0
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button4.Click
        cMan.Position = al.Count - 1
End Sub

Skompiluj i uruchom projekt.
Kliknij poszczeg�lne przyciski, aby wy�wietli� r�ne elementy tablicy. Zauwa�, �e mo�na edytowa� warto�ci obiekt�w.

Korzystanie z obiektu Collection

Mo�na r�wnie� u�ywa� obiektu Collection do przechowywania struktur. Aby przetestowa� u�ycie obiektu Collection, wykonaj nast�puj�ce kroki:

Zlokalizuj nast�puj�cy kod w procedurze zdarzenia Form_Load:
Dim al As New ArrayList()
Zast�p powy�szy kod nast�puj�cym kodem:
Dim al As New Collection()
Zapisz zmiany projektu, a nast�pnie ponownie uruchom projekt.