hente oplysninger fra ListView1 til nogle tekst felter

jeg har altså desværre kun disse points...

er der ikke nok en der vil hjælpe ??

Altså, hvis man klikker på et punkt i Listview skal det punkt overføres til et tekstbox?

Med Listview, mener du ikke ListBox ?

Du laver bare en textbox og en Listbox... så putter du denne kode ind for ListBox:

Private Sub List1_Click()
Text1.Text = List1.Text
End Sub

nej ListView !!

ListView med VIEW = Report

og ja så skal rækkens data overføres til textboxe
og der er 3 kollonner...

Ok sorry, melder pas :(

det gør ikke noget men tak for din hjælp alligevel :)

Private Sub ListView1_Click()
Text1.Text = ListView1.SelectedItem
End Sub

Sådan der. Det du vælger i ListView1 bliver skrevet i Text1

hehe... det skal laves med 3 textboxe og 3 kolonner !!

altså under VIEW sættes ListView1 til Report !!

'--------------------------------- Form1 ---------------------------------
'  Tilføj "Microsoft Windows Common Controls" 5.0 eller 6.0 (CTRL+T)
'  tag så en ListView1 og en Text1 set dem på Form1
'  (Text1 MultiLine skal være True)
'-------------------------------------------------------------------------
Option Explicit

'Til at marker alle ColumnHeaders
Private Declare Function SendMessage Lib "user32" _
                          Alias "SendMessageA" ( _
                          ByVal hWnd As Long, _
                          ByVal wMsg As Long, _
                          ByVal wParam As Long, _
                          lParam As Any) As Long

Private Sub Form_Load()
Dim i As Integer
Dim Litem As ListItem

  With ListView1
      .View = 3
        For i = 1 To 5
          .ColumnHeaders.Add , , "Header " & i, 1000
        Next i
      '(SendMessage) Til at marker alle ColumnHeaders
      SendMessage .hWnd, &H1000 + 54, ByVal &H20, ByVal &H20
  End With

  For i = 1 To 50
    Set Litem = ListView1.ListItems.Add(, , "Navn " & i)
    With Litem
        .SubItems(1) = "Sub 1," & i
        .SubItems(2) = "Sub 2," & i
        .SubItems(3) = "Sub 3," & i
        .SubItems(4) = "Sub 4," & i
    End With
  Next i
End Sub

Private Sub ListView1_Click()
Dim intIndex As Integer
  With ListView1
    If Not .ListItems.Count = 0 Then
      intIndex = .SelectedItem.Index
      Text1.Text = .ListItems(intIndex).Text & vbCrLf & _
                  .ListItems(intIndex).SubItems(1) & vbCrLf & _
                  .ListItems(intIndex).SubItems(2) & vbCrLf & _
                  .ListItems(intIndex).SubItems(3) & vbCrLf & _
                  .ListItems(intIndex).SubItems(4) & vbCrLf
    End If
  End With
End Sub
'--------------------------------- Form1 ---------------------------------

tusind tak SJH :D - virker perfekt

selv tak :-)