Jak vytvořit vazbu ArrayList nebo kolekce struktur formulář pro systém Windows pomocí programu Visual Basic .NET nebo Visual Basic 2005

Překlady článku Překlady článku
ID článku: 313638 - Produkty, které se vztahují k tomuto článku.
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento podrobný článek demonstruje svázat ArrayList struktur formulář pro systém Windows. V příkladu obsahuje formulář pro systém Windows s tři textová pole zobrazit členy strukturu a čtyři příkazová tlačítka Přesunout prostřednictvím ArrayList.

Požadavky

Microsoft Visual Basic .NET nebo Microsoft Visual Basic 2005

Diskusní kód

Tato část popisuje důležité koncepty kódování, které jsou nutné k dokončení tohoto úkolu.

Navrhování Structure

Struktura je vázán k formuláře musí mít přístupové objekty členů. Přístupové objekty členů struktury jsou prakticky stejné jako Sadu vlastností / načíst strukturu, která je nalezena v třídě. Struktura, která se používá například v tomto článku obsahuje tři členy (je zobrazen pouze jeden). Parametrizované konstruktor také je k dispozici, ale není vyžadován.
Private Structure guitar
    Friend mmake As String
    Friend mmodel As String
    Friend myear As Short

    Public Sub New(ByVal make, ByVal model, ByVal year)
        Me.mmake = make
        Me.mmodel = model
        Me.myear = year
    End Sub

    Public Property make() As String
        Get
            make = mmake
        End Get
        Set(ByVal Value As String)
            mmake = Value
        End Set
    End Property
End Structure
				

Přidání struktura instancí ArrayList

T vytvořit instance a přidat do ArrayList, postupujte takto:
  1. Proměnná typu strukturu deklarovat.
  2. Deklarujte ArrayList.
  3. Vytvořit instance strukturu a přidat je do ArrayList.
Private myStruct As guitar
Dim al As New ArrayList()

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

Vazba členy struktura ovládací prvky formuláře

Po naplnění ArrayList můžete svázat jednotlivé členy struktury ovládacích prvků model Windows Forms. To provedete volání metody Add vlastnost Vlastnosti DataBinding textové pole a předat vlastnost vázat, název ArrayList a člen strukturu.
TextBox1.DataBindings.Add("Text", al, "make")
TextBox2.DataBindings.Add("Text", al, "model")
TextBox3.DataBindings.Add("Text", al, "year")
				

Poskytování Way k přesunutí dni ArrayList

Posledním krokem v procesu je poskytnout způsob přesunutí prostřednictvím ArrayList. Chcete-li to provést, musíte použít CurrencyManager. Ve formuláři BindingContext, v tomto případě ArrayList struktur přidružit CurrencyManager.
Private cMan As CurrencyManager

cMan = CType(Me.BindingContext(al), CurrencyManager)
				
Objekt CurrencyManager má vlastnost Pozice, se kterým může k iterovat přes členy ArrayList. Přidáním nebo odečtením z aktuální hodnota Pozice, můžete zobrazit různé členy ArrayList ve formuláři.
'Move forward one element.
 cMan.Position += 1
'Move back one element.
cMan.Position -= 1
'Move to the beginning.
cMan.Position = 0
'Move to the end.
cMan.Position = al.Count - 1
				

Podrobný příklad

  1. Otevřít nový projekt aplikace Windows Visual Basic .NET nebo Visual Basic 2005.
  2. Přidat tři textová pole Form1 a potom uspořádat ovládací prvky vodorovně.
  3. Přidat čtyři příkazová tlačítka Form1 a potom uspořádat ovládací prvky vodorovně.
  4. Změnit Vlastnost Text Button1 Další.
  5. Změnit Vlastnost Text Button2 předchozí.
  6. Změnit Vlastnost Text Button3 první.
  7. Změnit Vlastnost Text Button4 poslední.
  8. Oddíl Form1 deklarace přidejte následující kód:
    Private Structure guitar
        Friend mmake As String
        Friend mmodel As String
        Friend myear As Short
    
        Public Sub New(ByVal make, ByVal model, ByVal year)
            Me.mmake = make
            Me.mmodel = model
            Me.myear = year
        End Sub
    
        Public Property make() As String
            Get
                make = mmake
            End Get
            Set(ByVal Value As String)
                mmake = Value
            End Set
        End Property
        Public Property model() As String
            Get
                model = mmodel
            End Get
            Set(ByVal Value As String)
                mmodel = Value
            End Set
        End Property
        Public Property year() As Short
            Get
                year = myear
            End Get
            Set(ByVal Value As Short)
    
    
            myear = Value
            End Set
        End Property
    End Structure
    
    Private myStruct As guitar
    Private al As New ArrayList()
    Private cMan As CurrencyManager
    					
  9. Přidejte následující kód události Form_Load:
    myStruct = New guitar("Gibson", "Les Paul", 1958)
    al.Add(myStruct)
    myStruct = New guitar("Fender", "Jazz Bass", 1964)
    al.Add(myStruct)
    myStruct = New guitar("Guild", "Bluesbird", 1971)
    al.Add(myStruct)
    
    cMan = CType(Me.BindingContext(al), CurrencyManager)
    
    TextBox1.DataBindings.Add("Text", al, "make")
    TextBox2.DataBindings.Add("Text", al, "model")
    TextBox3.DataBindings.Add("Text", al, "year")
    					
  10. Přidejte následující kód po události 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
    					
  11. Sestavit a spustit projektu.
  12. Klepněte na tlačítka zobrazení různých prvků ArrayList. Poznámka: můžete upravovat hodnoty objekty.

Pomocí do kolekce

Objekt kolekce slouží k ukládání struktury. Testovat použití kolekce, vyhledejte následující řádek kódu v proceduře události Form_Load:
Private al As New ArrayList()
předchozího řádku kódu nahraďte následující kód a potom znovu spusťte příkladu:
Private al As New Collection()

Odkazy

Naleznete v dokumentaci Visual Studio .NET nebo Visual Studio 2005 online nápovědy následujícím tématu:
Spotřebitelé dat model Windows Forms

Vlastnosti

ID článku: 313638 - Poslední aktualizace: 28. února 2014 - Revize: 3.3
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic 2005
Klíčová slova: 
kbnosurvey kbarchive kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB313638 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:313638

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com