Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustiť Visual Basic a kliknite na odkaz " Nový projekt " na úvodnej stránke . Double - kliknite na " Windows Forms aplikácie " otvorte nový formulár v okne Visual Basic design .
2
Posúvaním kurzora nad kartu Nástroje na ľavej strane okna dizajnu otvorte ponuku Nástroje . To môže trvať niekoľko sekúnd načítanie panela nástrojov a zobrazí ho .
3
Double - kliknite na " listbox " položka menu v sekcii Spoločné prvky v paneli nástrojov pridať listbox do svojho forma . Dvakrát kliknite dvakrát na tlačidlo " " položku pridať dve tlačidlá do formulára . Double - kliknite na " TextBox " položka menu pridať textové pole do formulára . Pretiahnite ovládacie prvky v podobe zabezpečiť Button1 pod textové pole a zabezpečiť Button2 v listbox .
4
Dvakrát kliknite na tlačidlo " Pridať položku " otvorte okno kód jazyka Visual Basic . Kliknite na prázdny riadok pod " Public Class Form1 " vyhlásenie v hornej časti okna a kľúč nasledujúci riadok :
Dim ItemArray ( 9 ) As String Dim
ArrayCountInteger As Integer
Toto vyhlásenie deklaruje pole až desiatich reťazec typu položky a celočíselný čítač . Počítadlo vždy začína na nule , tak " Dim " príkaz nastaví počet na deväť , jeden menej , ako je počet položiek v poli .
5
Kliknite na prázdny riadok po " Private Sub Button1_Click " vyhlásenie a zadajte nasledujúci kód tak , aby celý postup sa začiatok a koniec riadky vyzerá tohle :
Private Sub Button1_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button1.Click
Ak TextBox1.Text > " " Tak
Ak ArrayCountInteger = 10 Potom
MessageBox.Show ( " Zadali ste maximálneho počtu položiek " )
Späť
End If
ItemArray ( ArrayCountInteger ) = TextBox1.Text
ArrayCountInteger + = 1
TextBox1.Clear ( )
TextBox1.Focus ( )
End If
End Sub
tento kód prečíta každú položku , ktorú zadáte do textového vstupného poľa a stavia ho do poľa .
Praha 6
Zobraziť poľa . Kliknite na karte Návrh sa vrátite do okna návrhu . Double - kliknite na tlačidlo " Zoznam položiek " sa vrátite do okna kódu . Zadajte kód medzi dvoma riadkami tak , že konečný výsledok vyzerá takto :
Private Sub Button2_Click ( byval sender Ako System.Object , Bývalá e As System.EventArgs ) Kľuky Button2.Click
Dim ListArrayCountInteger As Integer
robiť , keď ListArrayCountInteger < ( ArrayCountInteger + 1 )
Ak ItemArray ( ListArrayCountInteger ) > " " Tak
ListBox1.Items.Add ( ItemArray ( ListArrayCountInteger ) )
ListArrayCountInteger + = 1
Else
MessageBox.Show ( " Žiadne ďalšie položky " )
Späť
End If
Loop
Tento kód načíta pole pomocou slučky a umiestni položky do listbox na displeji .
7
Kliknite na " Debug " menu na v hornej časti obrazovky a kliknite na odkaz " Spustiť ladenie " na testovanie vášho programu . Zadajte položku do textového vstupného poľa a kliknite na tlačidlo " Pridať položku " . Pridať niekoľko položiek a kliknite na tlačidlo " Zoznam položiek " , aby videli vaše položky v listbox .