直接双击Text1，在Text1_Change里加入一行Text2.Text = Text1.Text就行了
温馨提示：内容为网友见解，仅供参考
第1个回答 2011-09-14
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub本回答被提问者采纳
Text2.Text = Text1.Text
End Sub本回答被提问者采纳
第2个回答 2011-09-14
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
Text2.Text = Text1.Text
End Sub
第3个回答 2011-09-14
private sub text1_change()
static txtfrmr as string
text2=replace(text1,txtfrmr,"")
txtfrmr=text1
end sub
或者
private sub text1_keypress(keyascii as integer)
text2=chr(keyascii)
end sub
static txtfrmr as string
text2=replace(text1,txtfrmr,"")
txtfrmr=text1
end sub
或者
private sub text1_keypress(keyascii as integer)
text2=chr(keyascii)
end sub
相似回答
