มีข้อมูล2ช่อง 1 a 2 b 3 c . . . เช่นเราพิมพ์ในช่องแรก 1 แล้วชื่องที่สองจะขึ้น a อัตโนมัติ
จากคุณ
:
Prince / solarxxx.prince@gmail.com [2012-01-04 10:55:57]
ความคิดเห็น #28549 (จาก IP: 14.207.132.92)
Public Class Form1
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles TextBox1.LostFocus TextBox2.Text = "xxx" End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles TextBox1.TextChanged TextBox2.Text = "xxx" End Sub End Class
คงได้มั้ง ( VB 2008 พอดีไม่ได้ลง 2010 )
จากคุณ
:
Uncle - O / opas.pulampai@gmail.com [2012-01-08 23:20:04]
ความคิดเห็น #28598 (จาก IP: 171.99.24.252)
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Select Case e.KeyChar Case "1" : TextBox2.Text = "a" Case "2" : TextBox2.Text = "b" Case "3" : TextBox2.Text = "c" End Select End Sub