dim a as integer if check.value<>2 then '2是指check变灰 a=check.value end if
if checkbox1.value=true then a=1 else if checkbox1.value=false then a=0 end if
dim a as integer select case check.value case 0 a=0 case else a=1 end select
dim A as integer A=check.value
'完整代码示例: '在窗体上加一个 Check 和 一个 Command '------------------------------------Private Sub Command1_Click() If Check1.Value Then Check1.Value = 0 Else Check1.Value = 1 End If End Sub
0 表示未选中
1 表示选中
2 表示不能进行选择
if check.value<>2 then '2是指check变灰
a=check.value
end if
a=1
else if checkbox1.value=false then
a=0
end if
select case check.value
case 0
a=0
case else
a=1
end select
A=check.value
'在窗体上加一个 Check 和 一个 Command
'------------------------------------Private Sub Command1_Click()
If Check1.Value Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub