Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na tlačidlo " Štart " , " Všetky programy " a vyberte Microsoft Visual Studio alebo Visual Basic Express aplikácie , v závislosti na tom, ktoré ste nainštalovali .
2
kliknite na odkaz " Nový projekt " na Visual Studio stránke Štart vyberte " Windows Forms aplikácie " a kliknite na " OK " . Tým sa otvorí nový prázdny formulár v okne návrhu .
3
Kliknite na záložku " Toolbox " na ľavej strane obrazovky a rozbaľte ju . Dvakrát kliknite na ovládací prvok " listbox " . Dvakrát kliknite na ovládací prvok " Button " a dvakrát kliknite na ovládací prvok " TextBox " . To dodáva jeden z každého do formulára . Kliknite v okne dizajn zbaliť panel nástrojov.
4
Kliknite na listbox vo forme . Prejdite nadol na " položky " majetku v oknách vlastností , ktoré v ľavom dolnom rohu obrazovky . Kliknite na elipsy pole sa otvorí okno pre zadanie položky . Zadajte niekoľko položiek v zozname , stlačením tlačidla " Enter " po každej položke je umiestnite na samostatné riadky .
5
Dvakrát kliknite na tlačidlo otvoríte okno VB kód . Zobrazí sa kurzor medzi riadkami , ktoré vyzerajú ako tohle :
Private Sub Button1_Click ( byval sender ako System.Object , ByVal e As System.EventArgs )
Kľučky Button1.Click
End Sub Umiestnite nasledujúci kód medzi riadkami vyššie vyhľadávať v zozname , o vystavenie duplikátu , čo používateľ zadá do textového poľa : ' " komentár - tento kód vyhľadá listbox za duplikát , čo užívateľ kľúčom ' do textového poľa " Dim ListItemCounter as Integer Ak TextBox1.Text > Nic Potom Do ListItemCounter = ListBox1.Items.Count ( ) Ak TextBox1.Text.ToUpper = ( ListBox1.Items ( ListItemCounter ) ) . toupper ( ) Potom MessageBox.Show ( " duplicitná položka nájdená " ) Späť Else ListItemCounter + = 1 End If Loop MessageBox.Show ( " položka , ktorú ste zadali , nie je v zozname" ) End If tento kód prehľadá položky v listbox na položku, ktorá bola zadaná do TextBox . Poznámka : priloženej metódu " toupper " , takže porovnanie eliminuje prípad ako potenciálny problém . Je-li položka nájdená , je vydané príslušné hlásenie , ak je položka nebola nájdená , " nebol nájdený " správa je vydaná Kliknite na " Debug " položky menu v hornej časti . obrazovke a kliknite na tlačidlo " Spustiť ladenie " odkaz . To otvorí aplikácie v testovacom režime . Zadajte položky , ktorá je v zozname na textové pole a potom kliknite na tlačidlo . Mali by ste vidieť správu " duplicitné položky " . Zadajte položku do TextBox , ktorý nie je v zozname , a kliknite na tlačidlo . Teraz by ste mali vidieť správu " položka nebola nájdená " .
6