帮忙编下，刚学，单击窗体事件

来源：百度知道 编辑：UC知道 时间：2024/05/22 19:47:42
在窗体上添加一个标签框。标签框的边框风格属性值为1（Borderstyles属性值为fixed single).单击窗体时，在标签框中显示“NOW"
加个“清除”按钮怎么整，点“清除”文本框里的内容消失。再点文本框又出来

Private Sub Command1_Click()
Text1.Text = ""
End Sub

Private Sub Text1_Click()
Text1.Text = "Now"
End Sub

Private Sub Form_Click()
Label1.Caption = "Now"
End Sub

Private Sub Label1_Click()
Label1.Caption = "Now"
End Sub

command1是按钮，也就是“清除",第一次按清除的时候，Label1.Caption = "now"，所以IIF执行"".反之，执行"now",所以"清除"按一次清除，再按一次还原。不知道这样理解你的话对不对？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
点“清除”文本框里的内容消失。再点文本框又出来
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_load()
command1.Caption = "清除"
End Sub
Private Sub Command1_Click()
Label1.Caption = IIf(Label1.Caption = "now", "", "now")
command1.Caption = IIf(Label1.Caption = "清除", "还原", "清除")
End Sub

Private Sub Form_Click()
Label1.Caption = "now"
End Sub

Privat