List

Hej.

Hvad er det der udløser at en post i listen bliver markeret?  Det som gør det må jo identificere netop DEN post, og den har et listindex.  Når listindex i en liste sættes, udløses et 'click' i listen, dette må kunne anvendes til at udløse det du ønsker.

Til inspiration

  for a = 0 to list1.listcount-1
    list1.listindex = a
    if instr(list1.text, "sog")>0 then  '  "sog" er det der genkender posten
    exit for
  next a

Er det helt i skoven må du forklare nærmere, evt. med kodestump.

M.v.h.  Jørn

Jeg tror det han leder efter er noget der henter Data fra eks. en DB hvor den så skal vide hvad data den skal hente ved at kende det i listboxen?

Smidder lige et eksempel :O)

Private Sub lstMovies_Click()
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\CDDatabase.mdb")
Set rs = db.OpenRecordset("SELECT * FROM movies")

'Moves to the firts recordset

If Not rs.EOF Then
    rs.MoveFirst
   
'Loop that makes the program go throug the database
   
    Do While Not rs.EOF

        'When the record is found the textfelts is filled
       
        If lstMovies.Text = rs!Title Then
            txtMovieTitle.Text = rs!Title
            txtMovieGenre.Text = rs!genre
            txtMovieCDName.Text = rs!cdname
            txtMovieCDNumber.Text = rs!cdnr
            txtMovieOwner.Text = rs!Owner
            txtMovieBorowed.Text = rs!borowed
            txtMovieFileType.Text = rs!filetype
            txtMovieInfo.Text = rs!info
        Exit Sub
        Else: rs.MoveNext
        End If
    Loop
End If
End Sub

Mit eksempel søger ved tekst i en listbox, det kan laves mere advanceret med index eller endnu bedre med et tag.....

/Tubber

Det jeg i bund og grund skal bruge er en OnChange Event til en liste. Denne Event skal opstå når når list1.listindex skifter!

og hvad skal den event gøre ?

zareba>>

Prøv at indsætte din kode under 'Private sub list1_click'

Angivelse af list1.listindex = a udløser et 'klik' i listen - prøv selv!

M.v.h.  Jørn

list1.listindex giver et tal værdi for hvilket element der er highlighttet i listen. hvis jeg trykker et andet sted på listen skifter denne værdi, hvis jeg trykker op eller ned skifter denne værdi. jeg skal buge en Event der bliver kalt hvis denne værdi skifter, ikke lave en Event ud af 3-4 andre Events.

du kan lave en function der bliver kaldt ved de forskellige events...

Function ListChange()
Debug.Print List1.ListIndex
End Function

Private Sub List1_Click()
Call ListChange
End Sub

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
Call ListChange
End Sub

Det var også min ide.
Og det ender det nok også med at jeg laver det på den måde.
Det ku bare have været lidt cool hvis jeg ku lave det andet.

Hmm... Det er vist nogle år siden jeg har være her inde, må heller få lukket spørgsmålet.