Listview Linie markering

Følgende skulle jeg mene kunne gøre tricket :P

Dim IxNr As Integer

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    ListSag.ListItems.Item(IxNr).Selected = True
    IxNr = Item.Index
End Sub

-Sion

Ups, det er selvfølgelig: Private Sub ListSag_ItemClick

Fårk jeg koger, det er jo ikke just det du spurgte om... "ListSag.ListItems.Item(IxNr).Selected = True" skal fjerne fra ListSag_ItemClick og i stedet placeres sidst i din listopdateringsprocedure... SÅ burde det virke

selv Ups.
Det var ved dobbeltklik

k, nu må det være slut med ups'ene, så det her BURDE være koden du har brug for:

Dim IxNr As Integer

Private Sub ListSag_DblClick()
    IxNr = ListSag.SelectedItem.Index
    MsgBox IxNr
End Sub

Private Sub OpdatérListe()
    ListSag.ListItems.Item(IxNr).Selected = True
End Sub

For S**** i H******!!! UPS! Du skal lige fjerne "MsgBox IxNr"

Så kører den ellers :D

Hej alle Upser
Sion du var tættest. Fandt ellers ud af det lige inden du mailede.
Du får point

Private Sub ListSag_DblClick()
    LastKlik = ListSag.SelectedItem.Index
End Sub

Private Sub OpdatérListe()
'slette sidste markeringer
For i = 1 To ListSag.ListItems.Count
ListSag.ListItems.Item(i).Selected = False
Next
'tænd markering for sidste valg
ListSag.ListItems.Item(LastKlik).Selected = True
end sub

Men Tak