Visual Basic 6 Kurs

Label1.Caption = List1.Text
End Sub
List1.Text przechowuje treść zaznaczonego elementu. Kolejną rzeczą jest zmienna
przechowująca który element został zaznaczony.
Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
Jeżeli żaden element listy nie jest zaznaczony to List1.ListIndex przechowuje wartość -1.
Możemy także sami (bez zaznaczenia przez użytkownika) wywołać tekst wybranego
elementu.
List1.List(0)
Wyświetli nam tekst pierwszego elementu. Dla lepszego zrozumienia mały przykładzik :
Na formie umieszczamy List1, Label1, Label2, Command1, Command2, Command3 i
Text1. Poniższy kod zostanie wyjaśniony liniami :
01. Private Sub Form_Load()
02. Command1.Caption = "usuń"
03. Command2.Caption = "dodaj"
04. Command3.Caption = "odświerz"
05. List1.AddItem ("Visual")
06. List1.AddItem ("Basic")
07. List1.AddItem ("Test")
08. Label1.Caption = "Elementów : " & List1.ListCount
09. End Sub
10. Private Sub Command1_Click()
11. If (List1.ListIndex > -1) Then
12. List1.RemoveItem (List1.ListIndex)
13. End If
14. End Sub
15. Private Sub Command2_Click()
16. If Text1.Text "" Then
17. List1.AddItem Text1.Text
18. End If
19. End Sub
20. Private Sub Command3_Click()
21. Label1.Caption = "Elementów : " & List1.ListCount
22. End Sub
23. Private Sub List1_Click()
24. Label2.Caption = List1.Text
25. End Sub
Linia 5,6,7 - dodaj do listy 3 elementy ("Visual", "Basic", "Test")
Linia 8 - wyświetla na Label1 ilość elementów listy
Linia 10 - jeżeli klikłeś w przycisk 1
Linia 11 - i jest jakiś zaznaczony element na liście to
Linia 12 - usuń z listy zaznaczony element
Linia 15 - jeżeli klikłeś w drugi przycisk
Linia 16 - i pole tekstowe nie jest puste to
Linia 17 - dodaj do listy element o teksie z pola Text1
Linia 20 - jeżeli klikłeś w trzeci przycisk to
Linia 21 - odśwież Label1 i wpisz w nim aktualną liczbę elementów
35