Jak svázat pole objektů formuláře systému Windows pomocí programu Visual Basic .NET nebo Visual Basic 2005

Překlady článku Překlady článku
ID článku: 313639 - 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 popisuje svázat pole objektů formuláře systému Windows. Příklad v tomto článku zahrnuje formuláře systému Windows s tři textová pole zobrazte vlastnosti objektu. V příkladu také zahrnuje čtyři příkazová tlačítka Procházet třídy Array.

Požadavky

Následující seznam obsahuje doporučený hardware, software, infrastruktury sítě, dovednosti, znalosti a aktualizace service Pack, které potřebujete:
  • Microsoft Visual Basic .NET nebo Microsoft Visual Basic 2005
  • Pokročilý Principy jazyka programovacích konceptů

Popis kódu

Tento oddíl upozorňuje kódování koncepty, které jsou nezbytné k provedení tohoto úkolu.

Návrh třídy

Třídy, který bude vázán formuláře musí mít přístupové objekty vlastnosti. Vlastnost, který bude vázán musí mít Sadu vlastností a metod Načíst vlastnosti. Třída, která se používá například v tomto článku má tři vlastnosti (v této části je uvedeno pouze jedno). Příklad v tomto článku zahrnuje také parametrizované konstruktor, ačkoli to není nutné.
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
				

Přidat třídy instance Array

Dalším krokem je vytvoření objektů a přidat je do pole třída:
Dim al(2) As guitar

al(0)  = new guitar("Gibson", "Les Paul", 1958)
al(1)  = new guitar("Fender", "Jazz Bass", 1964)
al(2)  = new guitar("Guild", "Bluesbird", 1971)
				

Svázat vlastnosti objektu Form Controls

Po naplnění Array můžete svázat jednotlivé vlastnosti objektu model Windows Forms ovládací prvky. To provedete volání metody Add vlastnost vlastnosti DataBinding ovládací prvek TextBox. Vlastnost ovládacího prvku, který bude vázán, název pole a vlastnosti objektu navíc musí projít.
textBox1.DataBindings.Add("Text", al, "make")
textBox2.DataBindings.Add("Text", al, "model")
textBox3.DataBindings.Add("Text", al, "year")
				

Poskytují hodnotu procházet přes pole

V posledním kroku tohoto procesu pomocí třídy CurrencyManager procházet Array. To provedete přidružit CurrencyManagerBindingContext formulář (v tomto případě Array).
Private cMan As CurrencyManager

cMan = CType(Me.BindingContext(al), CurrencyManager)
				
CurrencyManager třída má vlastnost Pozice, které lze manipulovat s iterovat přes členy Array. Přidáním nebo odečtením z aktuální hodnota Pozice můžete zobrazit různé členy pole ve formuláři. Například:
'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.Length - 1
				

Podrobný příklad

  1. Otevřít nový projekt aplikace Windows v Visual Basic .NET nebo Visual Basic 2005. Ve výchozím nastavení je Form1 přidán do projektu.

    Poznámka: Kód by měl být změněn Visual Basic 2005. Pokud vytvoříte nový formulář s názvem Form1 Visual Basic 2005 máte souboru Form1.vb pro váš kód a Form1.Designer.vb soubor, který obsahuje automaticky generovaná oddílu. Model Windows Forms Designer používá klíčové slovo částečné implementace Form1 rozdělit do dvou samostatných souborů. To zabrání kód generovány Návrhář právě spolu s kódu direktivami.

    Další informace o vylepšení nový jazyk Visual Basic 2005 naleznete na následujícím webu:
    http://msdn2.microsoft.com/en-us/library/ms379584(vs.80).aspx
    Další informace o částečné třídy a Návrhář model Windows Forms naleznete na následujícím webu:
    http://msdn2.microsoft.com/en-us/library/ms171843.aspx
  2. Přidání třídy do projektu.
  3. Nahradit kód v Class1.vb následující kód:
    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
    					
  4. Přidat tři ovládací prvky TextBox Form1 a potom uspořádat ovládací prvky vodorovně.
  5. Přidat ovládací prvky čtyři tlačítka Form1 a potom uspořádat ovládací prvky vodorovně.
  6. Změňte vlastnost text tlačítka následujícím způsobem:
    Zmenšit tuto tabulkuRozšířit tuto tabulku
    TlačítkoText
    Button1Next
    Button2Předchozí
    Button3První
    Button4Poslední

  7. Do oddílu deklarace Form1 přidejte následující kód:
    Private al(2) As guitar
    Private cMan As CurrencyManager
    					
  8. Přidejte následující kód události Form_Load:
    al(0)  = new guitar("Gibson", "Les Paul", 1958)
    al(1)  = new guitar("Fender", "Jazz Bass", 1964)
    al(2)  = 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")
    					

  9. 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.Length - 1
    End Sub
    					
  10. Sestavit a spustit projektu.
  11. Klepněte na tlačítka zobrazení prvků jiné pole. Poznámka: můžete upravovat hodnoty objekty.

Odkazy

Další informace naleznete v tématu "Consumers of Data on Windows Forms" v dokumentaci Microsoft Visual Studio .NET nebo Visual Studio 2005 online nápovědy.

Vlastnosti

ID článku: 313639 - Poslední aktualizace: 28. února 2014 - Revize: 2.7
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 KB313639 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:313639

Dejte nám zpětnou vazbu

 

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