请教下判断Listview 5.0 的CheckBox是否有标记的问题

Question

'问题是在Listview中所有复选框被标记了才正常...如果标一个"Form3.show"能打开,但是打开后还是会提示"未发现有选择对象"....                                                                    '还有就是标记一个了还是提示"未发现有选择对象"....
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'请各位帮下如何才能解决判断Listview中没有标记复选框就提示呢...有标记任何复选框就"Form3.show"..Private Sub Command3_Click()
Dim i As Long
With ListView1 For i = 0 To .ListItems.Count - 1
        If ItemCheck(.hWnd, i) = True Then
        Form3.show
        
        End If
        Next
    End With
    
With ListView1
 For i = 0 To .ListItems.Count - 1
        If ItemCheck(.hWnd, i) = False Then
        MsgBox "未发现有选择对象", 48, "提示"
        Exit Sub
        
        End If
        Next
    End With
End Sub

Answer 1

    Dim i As Long
    Dim blnCheck As Boolean
    
    With ListView1
    
        For i = 0 To .ListItems.Count - 1
            If ItemCheck(.hWnd, i) = True Then
                
                blnCheck = True
                Exit For
                
            End If
        Next
        
        If blnCheck = True Then
            Form3.Show
        Else
            MsgBox "未发现有选择对象", 48, "提示"
        End If
                
    End With提高你的结贴率~

Answer 2

Private Sub Command3_Click()
Dim i As Long
With ListView1    For i = 0 To .ListItems.Count - 1
        If ItemCheck(.hWnd, i) = True Then
            exit for
        End If
    Next
    
    If i >=.ListItems.Count - 1 Then
        MsgBox "未发现有选择对象", 48, "提示"
    else
        form3.show
    End If
End With
End Sub

Answer 3

抄袭yangao的
错了一点
If i >=.ListItems.Count - 1 Then
应该是
If i >.ListItems.Count - 1 Then