private sub text1_keypress(keyascii as integer) text2.text=text1.text end sub
第3个回答 2010-04-02
Text1键盘事件 Sub Private Sub Text1_KeyDown(keycode as Integer) If keycode = vbKeyReturn Then '当按回车时执行 If Text1.Text = "clear" Then Text2.Text = "" '如果发现文字是clear,则清楚text2内容 End If End Sub