Question

这个VB代码怎么写？运行后，在text1中输入的字能立即在text2中显示出来。

就是不要按任何按键，输进一个出来一个的。

Answer 1

直接双击Text1，在Text1_Change里加入一行Text2.Text = Text1.Text就行了

Answer 2

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

Answer 3

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

Answer 4

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