新建From1(窗体),新建ListView1(ListView),代码:
Private Sub ListView1_Click()
If Not ListView1.selectedItem Is Nothing Then ' 检查是否有选中的项目
' 如果有选中的项目,获取其索引并进行相应操作
MsgBox "你点击的项目索引是: " & ListView1.selectedItem.Index, vbInformation, "项目索引"
Else
' 如果没有选中的项目,给出提示
MsgBox "没有选中任何项目,请选择一个项目后再点击。", vbExclamation, "提示"
End If
End Sub