Private Sub Check1_Click()

If Check1.Value = 0 Then

Me.Caption =

"隐藏按钮

"

Command1.Visible = False

Check2.Visible = False

Else

Me.Caption =

"显示按钮

"

Command1.Visible = True

Check2.Visible = True

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 0 Then

Command1.Enabled = False

Else

Command1.Enabled = True

End If

End Sub

以上内容仅供参考,部分文章是来自自研大数据AI进行生成,内容摘自(百度百科,百度知道,头条百科,中国民法典,刑法,牛津词典,新华词典,汉语词典,国家院校,科普平台)等数据,内容仅供学习参考,不准确地方联系删除处理!

为你推荐