Man gör på olika sätt om du tillåter att man markera en:Sv: ListView
<code>
Private Sub Command1_Click()
Dim SelectedItem As ListItem
Set SelectedItem = ListView1.SelectedItem
If SelectedItem Is Nothing Then
Beep
Else
MsgBox """" & SelectedItem.Text & """ är markerad!"
End If
End Sub
</code>
Eller flera:
<code>
Private Sub Command2_Click()
Dim Item As ListItem
Dim Msg As String
For Each Item In ListView1.ListItems
If Item.Selected Then
Msg = Msg & vbCrLf & Item.Text
End If
Next
If Len(Msg) Then
MsgBox "Du har markerat:" & Msg
End If
End Sub
</code>