查看: 27  |  回复: 0
  VB6 检查ListView1检查是否有选中的项目避免出错 Is Nothing
楼主
发表于 2025年3月27日 08:23

新建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


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2025 MaNongKu.com