2个回答
展开全部
Private Sub Check1_Click()
If Check1.Value = 1 Then
'这里放让另一个模块显现的代码
'不知你所谓的模块是什么,所以不敢乱说
Else
'这里放让另一个模块隐藏的代码
End If
End Sub
追问
随便一个 例如一个Label 另一个复选框等等怎么写
追答
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Visible = True
Else
Label1.Visible = False
End If
End Sub
或者
Private Sub Check1_Click()
Label1.Visible = Check1.Value = 1
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询