在vb中单击确定按钮窗体原有的文本框不可见,出现新的按钮和对应新的作用如何实现

来源：百度知道 编辑：UC知道 时间：2024/05/27 03:05:15
单击确定按钮窗体原有的文本框不可见，出现新的按钮和对应新的作用。怎么做啊 急急

Private Sub Command1_Click()
Text1.Visible = False
Command1.Visible = False
Command2.Visible = True
End Sub

Private Sub Form_Load()
Command2.Visible = False
End Sub

然后在command2_click里面写入事件。

'设置两个命令按钮 一个文本框就可以了

Private Sub Command1_Click()
Text1.Visible = False
Command2.Visible = True
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Command1.Caption = "文本框消失"
Command2.Caption = "退出"
Text1.Text = ""
Command2.Visible = False
End Sub

Private Sub Command1_Click()
if command1.caption ="确定" then
Text1.Visible = False
Command1.caption="退出"
else
command1.caption ="确定"
Text1.Visible = true
end if
End Sub