Hej!
Letade här på sidan och hittade följande kod
<code> Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1.Text = Item.Text
End Sub
</code>som jag tänkte använda, men det kommer upp ett felmeddelande som lyder
Compile error:
User-defined type not defined.
Jag och mina lättare kunskaper i programering får inte ihop varför det blir så. I fall det underlättar för er att lösa gåtan så laddar jag listviewen från form_load med följande.
<code>
Private Sub Form_Load()
Dim Itmx As ListItem
Dim f As Integer
Dim strrad1 As String, strrad2 As String, strrad3 As String, strApp As String, strAmne As String
Open strApp & "input.txt" For Input As f
Do While Not EOF(f)
Input #f, strrad1, strrad2, strrad3

Set Itmx = ListView1.ListItems.Add()
Itmx.Text = strrad1
Itmx.SubItems(1) = strrad2
Itmx.SubItems(2) = strrad3
Loop
Close f
end sub
</code>
Som alltid när man frågar så är det ju självklart när man får svaret.
Tack på förhand
//Jocke