Visual Basic 6 Kurs

y obliczamy przez podzielenie y przez 15 ( zamieniamy twipsy na pixele, następnie
odejmujemy reszte z dzielenia przez 17 i całość dzielimy przez 17. Otrzymamy dzięki
temu liczbe całkowitą która informuje nas o numerze elementu który został kliknięty.
Można także zrobić zaznaczanie elementów dodając MouseDown, będzie to wyglądało
efektywniej. Opisany powyżej kod musi zostać poprawiony, nie będzie on działał
prawidłowo jeżeli klikniemy w miejscu np. 6 elementu a w liście będzie ich tylko 4, pod
obliczeniem y dopisujemy:
If ListView1.ListItems.Count >= y Then
ListView1.ListItems(y).Selected = True
End If
Kod powinien działać poprawnie... jednak tak nie jest, nie zostało jeszcze uwzględnione
to, ile wierszy jest uwzględnione. Pozycja y nie zwróci nam indexu wiersza tylko jedno z
miejsc z listy na które klikneliśmy, a co jeżeli pewna część elementów będzie
niewodoczna (lista będzie przewinięta suwakiem w dół) ? W takim wypadku zaznaczony
element nie będzie prawidłowy, trzeba napisać do tego poprawke uwzględniającą
przewinięte kolumny:
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As
Single)
y = (y / 15 - (y / 15 Mod 17)) / 17
Nazwa = ListView1.GetFirstVisible
Dim A As Long
Do While A < ListView1.ListItems.Count
A = A + 1
If Nazwa = ListView1.ListItems(A).Text Then GoTo Koniec
Loop
Koniec:
y = y + A - 1
If ListView1.ListItems.Count >= y Then
ListView1.ListItems(y).Selected = True
End If
End Sub
Oczywiście to nie ma mniejszego sensu gdy wartości z ListItems nie są pozycjami
kluczami (powtarza się np. dwa razy ten sam tekst).
Na stronie kursu:
http://visual.basic.kaem.forall.pl/
Można znaleść przykłady do tej lekcji (3)
30. TreeView
http://visual.basic.kaem.forall.pl/
TreeView pozwala wyświetlać listę obiektów w postaci drzewa:
43