Select line på list-box

Private Sub List1_Click()

End Sub

Hvad skal jeg skrive hvis jeg ønsker at den skal reagere på select 3 ... og så gør den noget

f.eks.

if list1.text.linie(3).selected then
command1.visible = False

list1.text.linie(3).selected er self\' ikke rigtig - men hvad er det rigtige?

Hej.

  For z = 0 To list1.ListCount - 1
      list1.ListIndex = z
      If list1.Selected(z) = true Then \"din kode\"
  Next

M.v.h.  Jørn

Den kommer med følgende fejl-meddelelse:

\"Next without for\"

Private Sub List1_Click()
For z = 0 To List1.ListCount - 1
      List1.ListIndex = z
      If List1.Selected(z) = True Then
      Label2.Caption = \"Lol\"
  Next

End Sub



Har jeg skrevet - er det nogenlunde rigtigt?

Jeg har nu prøvet at skrive    end if  til sidst...

For z = 0 To List1.ListCount - 1
      List1.ListIndex = z
      If List1.Selected(z) = True Then
      Label2.Caption = \"Lol\"
    End If
Next

Men kommer med en fejl-meddelelse:

Out of stack space !?

flashback> Jeg vil kigge på det om lidt.

Har for nylig anvendt denne funktion, der gemmer poster fra en listbox, nemlig alle de der ikke er selected (multiselect = true).  De udvalgte bliver altså slettet.

Open netsti & \"husk\" & labper.Caption & \".dat\" For Output As #9
    For z = 0 To lsthusk.ListCount - 1
      lsthusk.ListIndex = z
      If lsthusk.Selected(z) = False Then Print #9, lsthusk.Text
    Next
  Close #9

Den giver ikke fejl.

M.v.h.  Jørn

flashback>

Jeg har kopieret din kode ind i et lille nyt projekt, den giver ikke fejl hos mig!

Måske trænger din PC til en genstart ? 

Hej
Jeg mener bare du kan skrive:
if List1.ListIndex=3 thne
noget kode....
end if

Jeg skylder måske lige at sige at første post har nr 0
således at tredje post får nr 2 (0 1 2 3 osv)
Det kan derfor godt være at du skal skrive
if List1.ListIndex=2 then

Kan ikke lige få det til at virke :/

If List1.ListIndex = 3 Then
Label2.Caption = \"loL\"
End If

Virker ikke :(

Efter genstart virker:

Private Sub List1_Click()

For z = 0 To List1.ListCount - 1
      List1.ListIndex = z
      If List1.Selected(z) = True Then
      Label1.Caption = \"Lol\"
    End If

Next

End Sub


.. stadig ikke.

Hvis du lægger følgende kode ind i listbox\'ens click event
burde det da virke:

If List1.ListIndex = 2 Then
Label2.Caption = \"loL\"
End If

Det virker naturligvis kun hvis du trykker på
den tredje line i listboxen
er det det du ønsker eller hvad???

Virker ikke her .. har checket

Fejl nr. 28

noget med stack space

Du skal kun have disse linier i listboxens click event:

Private Sub List1_Click()
If List1.ListIndex = 2 Then
Label2.Caption = \"loL\"
End If
end sub

Så kommer der med garanti ikke den fejlmeddelelse som du nævner
Den kommer kun hvis du indsætter for ... next løkken nedenfor:

For z = 0 To List1.ListCount - 1
      List1.ListIndex = z
      If List1.Selected(z) = True Then
      Label1.Caption = \"Lol\"
    End If

Next

Ahhhh ... nu virker det jo ... taxi

ea_data får pointene... sorry joern :)

Skidt med det.  Problemet er, at jeg ikke forstår dit spørgsmål.  M.v.h.  Jørn