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

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.

313638
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
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

back to the top

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 PropertyEnd Structure				

back to the top

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 guitarDim 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)				

back to the top

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")				

back to the top

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 CurrencyManagercMan = 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				

back to the top

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 PropertyEnd StructurePrivate myStruct As guitarPrivate 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 AsSystem.EventArgs) Handles Button1.Click        cMan.Position += 1End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click        cMan.Position -= 1End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click        cMan.Position = 0End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button4.Click        cMan.Position = al.Count - 1End 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.
back to the top

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()

back to the top

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
back to the top

Upozornění: Tento článek byl přeložen automaticky

Vlastnosti

ID článku: 313638 - Poslední kontrola: 02/28/2014 17:06:31 - Revize: 3.3

  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic 2005
  • kbnosurvey kbarchive kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB313638 KbMtcs
Váš názor