使复选框实现单选框功能

Dim  lastIndex%, bCheck  As   Boolean

Private   Sub  chkHonbu_Click(Index  As   Integer )
     If  bCheck3  Then   Exit Sub   Else  bCheck3  =   True
     If  lastIndex3  <>  Index  Then
        chkHonbu(lastIndex3).Value  =   0
        lastIndex3  =  Index
     Else
        chkHonbu(Index).Value  =   1
     End   If
    bCheck3  =   False
End Sub

方法2

Private   Sub  Check1_Click()
     If  Check1.Value  Then  Check2.Value  =   0
     If  Check1.Value  =   0   And  Check2.Value  =   0   Then  Check1.Value  =   1
End Sub

Private   Sub  Check2_Click()
     If  Check2.Value  Then  Check1.Value  =   0
     If  Check1.Value  =   0   And  Check2.Value  =   0   Then  Check2.Value  =   1
End Sub

方法3(最强的方法)

Private  i  As   Integer
Private   Sub  Check1_Click()
    i  =  i  +   1
     If  i  =   1   Then
        Check2.Value  =  ( Not  Check2.Value)  And   1
        i  =   0
     End   If
    
End Sub

Private   Sub  Check2_Click()
    i  =  i  +   1
     If  i  =   1   Then
        Check1.Value  =  ( Not  Check1.Value)  And   1
        i  =   0
     End   If
End Sub