Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Listbox - usuwanie i dodawanie
głowa




Typ: neutral
Postów: 7
Zarejestrowany: Apr 2004
Listbox - usuwanie i dodawanie

Mam dwa pytania:

1) Jak usunąć element z listboxa aby poprzednie przesunęły się do góry? Jak daję romove to uzuwa mi górny element a ja chcę, żeby usunęło zaznaczony!

2) Jak przesuwać elementy w listboxie? W górę w dół między innymi elementami.

02-04-2004 23:15
Pokaż profil głowa  Wyślij email do głowa   
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Ad1) Wystarczy wpisać (to jest najprostszy przypadek):
      List1.RemoveItem List1.ListIndex

Ad2) To jest już bardziej skomplikowany przypadek

Public Sub DoGory(List1 As Object )
    Dim tymczasowy As String
    Dim i As Integer
    i = List1.ListIndex
    If List1.ListCount < 1 Then Exit Sub

    If i > 0 And i < List1.ListCount Then
        tymczasowy = List1.List(i - 1)
        List1.List(i - 1) = List1.List(i)
        List1.List(i) = tymczasowy
        List1.ListIndex = i - 1
        List1.Selected(i - 1) = True
        List1.Selected(i) = False
    End If
End Sub
' Wstawia niżej element z listy
Public Sub DoDolu(List1 As Object)
    Dim tymczasowy As String
    Dim i As Integer
    i = List1.ListIndex
    If List1.ListCount < 1 Then Exit Sub

    If i > -1 And i < List1.ListCount - 1 Then
        tymczasowy = List1.List(i + 1)
        List1.List(i + 1) = List1.List(i)
        List1.List(i) = tymczasowy
        List1.ListIndex = i + 1
        List1.Selected(i + 1) = True
        List1.Selected(i) = False
    End If
End Sub
' Teraz wystarczy jak dodasz np.: 2 command Button-y i w każdym z nich wywołasz te suby
Private Sub Command1_Click()
  Call DoGory(List1)
End Sub
Private Sub Command2_Click()
  Call DoDolu(List1)
End Sub

Kod jest chyba wystarczająco zrozumiały Ale jak by co to pytaj Powodzenia


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

03-04-2004 01:37
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
głowa




Typ: neutral
Postów: 7
Zarejestrowany: Apr 2004

Dzięki!

03-04-2004 10:16
Pokaż profil głowa  Wyślij email do głowa   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Operacje na LisBox'ie

Andrey już Ci odpowiedział jak to robić:
W Ad1) pokazał Ci jak usuwać zaznaczony element
W Ad2) pokazał Ci jak przesuwać elementy w liście

A ja proponuję Ci, byś przesuwanie elementów w górę lub w dół zrobił za pomocą jednej procedury:

Sub PrzesunNaLiscie(Lista As Object, Optional kierunek As Integer = 1)

End Sub

Lista, to ListBox,
kierunek to kierunke w górę lub w dół
jeśli kierunek = 1 to w dół,
jeśli kierunek = -1 to w górę

Pomyśl też jak zrobić, by pierwszy element na liśći, jak dam przenieś do góry, żeby znalazł się na samym dole.

3mam kciuki.


_____________________________________________
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ś

03-04-2004 15:38
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Przepraszam losmac za to pytanie ale nie mogę się oprzeć czy użytkownik głowa to twój uczeń?


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

13-04-2004 09:24
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
losmac
"profesorek"




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

A nawet gdyby, to co?

Wiesz, takie zboczenie zawodowe...

Ponadto, wychodzę z założenia, że nie sztuka podać gotowe rozwiązanie na tacy, a sztuka zachęcić do myślenia podrzucając tylko kawałek rozwiązania.


_____________________________________________
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-04-2004 20:44
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 5 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1