|
Jednoczesne przewijanie dwóch pól list ListBox. (przysłał Druid) |
|
|
|
Napisał Administrator
|
|
wtorek, 24 styczeń 2006 |
Jednoczesne przewijanie dwóch pól list ListBox
--------------------------------------------------------
Tłumaczenie na ludzki język: Druid
--------------------------------------------------------
1. Utwórz nowy projekt. Form1 jest tworzona domyślnie.
2. Do deklaracji formy dodaj następujące deklaracje:
Option Explicit 'jeśli nie ma jeszcze tej linii
DefInt A-Z
3. Utwórz na formie dwa obiekty ListBox i jeden obiekt Timer.
4. Dodaj do zdarzenia Form_Load następujący kod:
Dim X As Integer
'Wypełnia dwa ListBoxy literami alfabetu
For X = 1 To 26
List1.AddItem Chr$(X + 64)
Next X
For X = 1 To 26
List2.AddItem Chr$(X + 64)
Next X
Timer1.Interval = 1
Timer1.Enabled = True
5. Do zdarzenia Timer1_Timer wklej poniższe linie kodu:
Static PrevList1
Dim TopIndex_List1 As Integer
'Pobiera indeks pierwszej pozycji na liście
TopIndex_List1 = List1.TopIndex
'Sprawdza, czy indeks uległ zmianie
If TopIndex_List1 <> PrevList1 Then
'Ustawia indeks drugiej listy na indeks pierwszej, więc
'przewijają się one razem
List2.TopIndex = TopIndex_List1
PrevList1 = TopIndex_List1
End If
'Wybiera tą samą pozycję w obu listach
If List1.ListIndex <> List2.ListIndex Then
List2.ListIndex = List1.ListIndex
End If
6. Uruchom projekt i przesuń suwak pierwszej listy.
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
