Hello everyone
I'am copying data from a listview to a multiline textbox.
Code:
Private Sub lvw_Click()
clicknum = clicknum + 1
Select Case clicknum
Case 1
Text3.Text = " " & "1-" & " " & lvw.SelectedItem.Text & " " & _
lvw.SelectedItem.ListSubItems(1).Text & vbNewLine & _
" " & lvw.SelectedItem.ListSubItems(2).Text
Case 2
Text3.Text = Text3.Text & vbNewLine & vbNewLine & " " & "2-" & " " & lvw.SelectedItem.Text & " " & _
lvw.SelectedItem.ListSubItems(1).Text & vbNewLine & _
" " & lvw.SelectedItem.ListSubItems(2).Text
Case 3
Text3.Text = Text3.Text & vbNewLine & vbNewLine & " " & "3-" & " " & lvw.SelectedItem.Text & " " & _
lvw.SelectedItem.ListSubItems(1).Text & vbNewLine & _
" " & lvw.SelectedItem.ListSubItems(2).Text
Case 4
Text3.Text = Text3.Text & vbNewLine & vbNewLine & " " & "4-" & " " & lvw.SelectedItem.Text & " " & _
lvw.SelectedItem.ListSubItems(1).Text & vbNewLine & _
" " & lvw.SelectedItem.ListSubItems(2).Text
End select
End Sub
Now, what I'am looking for is to be able to replace any line when I put the curser on that line.
I mean if I put the curser on the third line, and click on the listview item, I get the clicknum back to that line.
Thank you.