# Re: 请问有关物件text内容清除的问题

Posted by 小刘 on February 12, 1998 at 02:10:03:

In Reply to: 请问有关物件text内容清除的问题 posted by 阿东 on February 12, 1998 at 00:26:59:

Private Sub Form_Load()
Texta.Text = "" 'Form1
End Sub

Private Sub Form_Load()
Textb.Text = "" 'Form2
End Sub

Private Sub Texta_Change()
If Texta.Text = "0" Then
Texta.Text = ""
Form1.Visible = False
Form2.Visible = True
End If
End Sub

Private Sub Textb_Change()
If Textb.Text = "0" Then
Textb.Text = ""
Form2.Visible = False
Form1.Visible = True
End If
End Sub

Follow Ups: