Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Label1.Text = Label1.Text + TextBox1.Text + vbCrLf
End Sub
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
If Asc(e.KeyChar) = 13 Then
Label2.Text = Label2.Text + TextBox2.Text + vbCrLf
End If
End Sub
End Class
运行结果:
=======textchanged与keypress的区别========
textchanged:当text的属性值发生改变时,就会触发textchanged事件。相当于说每当输入一个字符的时候就会触发textchanged事件;
keypress:在输入字符或字符串后需要判断按下的键,(主要时判断键盘按键对应的Asc码值),此时才会触发keypress事件。