第1个回答 2006-07-26
两个按钮分别为CmdSetHide,Caption隐藏,另一个按钮为CmdSetShow,Caption显示
Private Sub CmdSetShow_Click()
Dim CmdButtom As CommandButton
For Each CmdButtom In Me.Controls
CmdButtom.Visible = True
Next
CmdSetHide.Visible = True
CmdSetShow.Visible = True
CmdSetHide.Enabled = True
CmdSetShow.Enabled = False
End Sub
Private Sub CmdSetHide_Click()
Dim CmdButtom As CommandButton
For Each CmdButtom In Me.Controls
CmdButtom.Visible = False
Next
CmdSetHide.Visible = True
CmdSetShow.Visible = True
CmdSetHide.Enabled = False
CmdSetShow.Enabled = True
End Sub