Private Sub Command1_Click()
Text1 = "vb中如何单击按钮开始在文本框显示文字,单击清除按钮清除文本框中的文字"
End Sub
Private Sub Command2_Click() '清除
Text1 = ""
End Sub
Option Explicit
Private Sub Command1_Click()
Text1.Text = "显示文字"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub