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 .