Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustiť Visual Studio a vytvoriť nový Visual Basic projektu model Windows Forms . Nový formulár s názvom " Form1 " sa otvorí v editačnom okne . 
 2 
 kliknite na tlačidlo " Zobraziť " , potom kliknite na " Nástroje " otvoriť aplikáciu Visual Studio v paneli nástrojov . 
 3 
 Dvakrát kliknite na ovládací prvok zoznamu " " . Visual Studio miesta na formulári a mien je " ListBox1 . " 
 4 
 Kliknite na " ListBox1 " ovládanie a stlačte tlačidlo " F4 " pre zobrazenie okna Vlastnosti . Toto okno umožňuje nastaviť vlastnosti ovládacieho prvku , ako je napríklad farby a veľkosti . 
 5 
 Kliknite na " Farba popredia " vlastnosť . Rozbaľovací šípka sa objaví pri objekte . Kliknite na túto šípku zobrazíte farebnú ponuku obsahujúce karty . Záložka " System " zobrazuje farby systému Windows , záložka " Web " sa zobrazí zoznam webových farieb , . , A karta " Custom " vám umožní vybrať si vlastnú farbu z farebnej mriežky 
 6 
 Kliknite na jednu z týchto kariet , kliknite na farbu , ktorú chcete použiť pre text všetkých položiek listbox . 
 7 
 Kliknite na " Barvapozadí " položku v okne Vlastnosti sa zobrazí jej šípku nadol . Kliknutím že šípku farbu , ako je popísané v predchádzajúcom kroku . Visual Basic potom používa farbu , ktorú ste vybrali ako farbu pozadia pre všetky listbox položky . Prejdite k ďalšej časti , ak chcete zmeniť farbu iba vybrané položky listbox . 
 Zmena farby textu vybranej položky 
 8 
 Dvakrát kliknite forma je hlavičky. Kód pre metódu formulára " Load " sa otvorí a zobrazí prázdnu metódu " Load " 
 9 
 pred Táto metóda je " End Sub " vyhlásenie vložte nasledujúci kód : . 
 
 ListBox1 . Items.AddRange ( New Object ( ) { " bod 1 " , " Item " , " Item " , " bod 4 " } ) 
 
 ListBox1.DrawMode = DrawMode.OwnerDrawFixed 
 
 Prvé vyhlásenie pridáva položky listbox . Ďalší príkaz nastaví režim kreslenia ovládacieho prvku na " OwnerDrawFixed . " Tento režim použite , ak chcete prepísať režim Visual Basic je východiskový výkres pre kontrolu 
 10 
 Vložte nasledujúci kód po metóde " Load " v " End Sub " vyhlásenie : . 
 
 Private sub ListBox1_DrawItem ( byVal sender As Object , _ byval e 
 
 Ako System.Windows.Forms.DrawItemEventArgs ) _ 
 
 Kľučky ListBox1.DrawItem 
 
 e.DrawBackground ( ) 
 
 Dim kefa ako kefa = Brushes.Black 
 
 ( e.State A DrawItemState.Selected = DrawItemState.Selected ) Potom 
 
 kefa = Brushes.Green 
 
 end If 
 
 e.Graphics.DrawString ( ListBox1.Items ( e.Index ) . toString ( ) , 
 
 e.Font , kefa , _ 
 
 e.Bounds , StringFormat.GenericDefault ) 
 
 End Sub 
 
 Tento kód prepíše metódu listbox je " DrawItem " . Metóda " DrawItem " spustí zakaždým , Visual Basic kreslí položky listbox o kontrole . 
 11. 
Vyhľadajte vyhlásenie , že číta , " Dim kefa ako kefa = Brushes.Black . " Tento riadok kódu vytvára " kefa " premennú , ktorá drží farbu predvolené kreslenie štetcom . V tomto prípade , že farba je " Black " . Zmeňte " čierny " na farbu , ktorú chcete použiť na nakreslenie nonselected listbox položky . Napríklad , ak chcete zmeniť predvolenú položku farbu na červenú , nahradiť predchádzajúce vyhlásenie sa toto :
 Dim kefa ako kefa = Brushes.Red 
 12 
 Vyhľadajte nasledovné vyhlásenie v kóde : 
 
 kefa = Brushes.Green 
 
 Nahradiť " Green " s ľubovoľnou farbou . Visual Basic potom používa túto farbu čerpať listbox je vybranú položku . Konečné vyúčtovanie volá metódu " sťahovacou šnúrkou " , ktorá čerpá listbox položky . 
 13 
 Stlačte " F5 " pre spustenie programu . Objaví sa formulár a zobrazuje listbox a jeho položky . Kliknutím na ľubovoľnú položku a vyberte ju . Jeho farba sa zmení na farbu , ktorú ste vybrali pre vybranú položku . Všetky ostatné položky sa zobrazí predvolenú farbu .