为了简化代码,提高效率,最好把checkbox设为控件数组。下面以此为例,代码如下,运行即可。
Option Explicit
Dim IsBusy As Boolean
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 0 Or IsBusy Then Exit Sub
Dim i As Integer
IsBusy = True
For i = 0 To Check1.UBound
If i <> Index Then Check1(i).Value = 0
Next
IsBusy = False
End Sub
源码实例下载地址:
http://www.fileurls.com/download.ashx?id=dtevhi