1、文本框清空
text1.text=""
text2.text=""
2、单击窗体 文本框2得到焦点
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
TextBox2.focus()
End Sub
3、文本框1变动,文本框2跟动
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
text2.text=text1.text
End Sub
Private Sub Form_Load() '清空文本框
Text1.Text=""
Text2.Text=""
End Sub
Private Sub Form_Click() '点击窗体定位光标在文本框2
Text2.SetFocus
End Sub
Private Sub Text1_Change() '文本框1写什么,文本框2就显示什么
Text2.Text=Text1.Text
End Sub
在VB6中
清空文本框的内容:
private sub text1_click() '假设在文本框1的单击事件中清空文本框内容
text1.text=""
text2.text=""
end sub
private sub form_click() '窗体的单击事件,将光标定位在文本框2中
text2.setFocus
end sub
private text1_change() '文本框1的文本内容改变事件,实现文本框1写什么,文本框2就显什么功能
text2.text=text1.text
end sub
请试试吧
ad>