代码如下:
Private
Sub
Command1_Click()
If
Option1.Value
=
True
Then
MsgBox
"你选择了复选框"
‘如果Option1被选中,则弹出消息框
If
Check1.Value
=
1
Then
MsgBox
"你选择了复选框"
‘如果Check1被选中,则弹出消息框
else
if
Check1.Value
=
0
Then
MsgBox
"你选择了复选框"
‘如果Check1被选中,则弹出消息框
End
If
End
Sub
这个代码明白吗?
代码如下:
Private
Sub
Command1_Click()
If
Option1.Value
=
True
Then
MsgBox
"你选择了复选框"
‘如果Option1被选中,则弹出消息框
If
Check1.Value
=
1
Then
MsgBox
"你选择了复选框"
‘如果Check1被选中,则弹出消息框
else
if
Check1.Value
=
0
Then
MsgBox
"你选择了复选框"
‘如果Check1被选中,则弹出消息框
End
If
End
Sub
这个代码明白吗?