Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: ListBox / combobox - swobodne przesuwanie elementów
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002
ListBox / combobox - swobodne przesuwanie elementów

Pytanie osoby, która ma problemy z zalogowaniem się na forum:

Czy w standardowych kontrolka VB 6.0 jest jakas lista (combo?),ktora pozwala na dowolne przemieszczanie elementów ? Chodzi o to, zeby podczas wyswietlania listy moznabylo np myszka zlapac jakis element i przesunac o kilka pozycji w gore lub w dol.

Osobiście ja myślę, że zwykły ListBox ma taką możliwość, ale coś ze zdarzeniami trzeba pokombinować, niestety, nigdy czegoś takiego nie robiłem więc nie udziliłem odpowiedzi tylko liczę na pomoc kogoś, kto coś podobnego już robił. Jedyne co potrafię, to gdzieś mam kod Drag&Drop, jak się przeciągnie plik z pulpitu, to ListBox może przechwycić nazwę tego pliku, więc coś z zdarzeniami trzeba pokombinować, ale za bardzo nie wiem, jak.


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

08-06-2004 12:04
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Mam przykład jak to pokombinować w VBA - z tym, że nie zupełnie swobodnie - a przesunięcie/skopiowanie na koniec listy.


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

13-06-2004 02:28
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004

ja tez mialem taki problem...
ale na tyle nie chcialo mi sie myslec..ze
zrobilem to na dwoch przyciskach ,jeden sluzyl do przesuwania w dol a drugi w gore...
cos w tym stylu :
===============================
Private Sub gora_Click()
If List1.ListIndex >= 1 Then
a = List1.List(List1.ListIndex)
b = List1.List(List1.ListIndex - 1)
List1.List(List1.ListIndex - 1) = a
List1.List(List1.ListIndex) = b
List1.ListIndex = List1.ListIndex - 1
End If
End Sub

Private Sub dol_Click()
If List1.ListIndex <> "-1" And List1.ListIndex < List1.ListCount - 1 Then
a = List1.List(List1.ListIndex)
b = List1.List(List1.ListIndex + 1)
List1.List(List1.ListIndex + 1) = a
List1.List(List1.ListIndex) = b
List1.ListIndex = List1.ListIndex + 1
End If
End Sub
=================================
jak bedziecie wiedzieli jak to zrobic z myszka tez bym sie chetnie dowiedzial....
pozdrawiam

19-06-2004 17:36
Pokaż profil deywid  Wyślij email do deywid        5625009
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Przykład pozwalający na przesuwanie lewym klawiszem myszki elementów listy Listbox:

http://www.a1vbcode.com/app.asp?ID=2178


_____________________________________________
Karolina

19-06-2004 23:02
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1