If Asc(e.KeyChar) = 13 Then 'สำหรับเมื่อกด Enter แล้วเคอร์เซอร์ไปปรากฏในช่อง txt 2
e.Handled = True
If Me.txt1.Text = "" Then
MessageBox.Show("กรุณาป้อนข้อมูลในช่อง txt1 ก่อนค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
txt2.Focus()
End If
End If
Key Codes
Constant Value Description
vbKeyLButton 1 Left mouse button
vbKeyRButton 2 Right mouse button
vbKeyCancel 3 CANCEL key
vbKeyMButton 4 Middle mouse button
vbKeyBack 8 BACKSPACE key
vbKeyTab 9 TAB key
vbKeyClear 12 CLEAR key
vbKeyReturn 13 ENTER key
vbKeyShift 16 SHIFT key
vbKeyControl 17 CTRL key
vbKeyMenu 18 MENU key
vbKeyPause 19 PAUSE key
vbKeyCapital 20 CAPS LOCK key
vbKeyEscape 27 ESC key
vbKeySpace 32 SPACEBAR key
vbKeyPageUp 33 PAGE UP key
vbKeyPageDown 34 PAGE DOWN key
vbKeyEnd 35 END key
vbKeyHome 36 HOME key
vbKeyLeft 37 LEFT ARROW key
vbKeyUp 38 UP ARROW key
vbKeyRight 39 RIGHT ARROW key
vbKeyDown 40 DOWN ARROW key
vbKeySelect 41 SELECT key
vbKeyPrint 42 PRINT SCREEN key
vbKeyExecute 43 EXECUTE key
vbKeySnapshot 44 SNAPSHOT key
vbKeyInsert 45 INS key
vbKeyDelete 46 DEL key
vbKeyHelp 47 HELP key
vbKeyNumlock 144 NUM LOCK key
Key A-Z (จำง่าย ๆ เพราะค่า constant จะเปลี่ยนตาม key ที่เราใช้ครับ)
Constant Value Description
vbKeyA 65 A key
vbKeyB 66 B key
vbKeyC 67 C key
vbKeyD 68 D key
vbKeyE 69 E key
vbKeyF 70 F key
vbKeyG 71 G key
vbKeyH 72 H key
vbKeyI 73 I key
vbKeyJ 74 J key
vbKeyK 75 K key
vbKeyL 76 L key
vbKeyM 77 M key
vbKeyN 78 N key
vbKeyO 79 O key
vbKeyP 80 P key
vbKeyQ 81 Q key
vbKeyR 82 R key
vbKeyS 83 S key
vbKeyT 84 T key
vbKeyU 85 U key
vbKeyV 86 V key
vbKeyW 87 W key
vbKeyX 88 X key
vbKeyY 89 Y key
vbKeyZ 90 Z key
Key 0 - Key 9 (เป็นคีย์ตัวเลขของแป้นพิมพ์ใต้ปุ่มฟังก์ชันนะครับ ไม่ใช่คีย์ตัวเลขทางด้าน Key pad)
Constant Value Description
vbKey0 48 0 key
vbKey1 49 1 key
vbKey2 50 2 key
vbKey3 51 3 key
vbKey4 52 4 key
vbKey5 53 5 key
vbKey6 54 6 key
vbKey7 55 7 key
vbKey8 56 8 key
vbKey9 57 9 key
Key on the Numeric Keypad (เป็นคีย์ตัวเลขทางด้าน Num Lock หรือ Key pad นะครับ)
Constant Value Description
vbKeyNumpad0 96 0 key
vbKeyNumpad1 97 1 key
vbKeyNumpad2 98 2 key
vbKeyNumpad3 99 3 key
vbKeyNumpad4 100 4 key
vbKeyNumpad5 101 5 key
vbKeyNumpad6 102 6 key
vbKeyNumpad7 103 7 key
vbKeyNumpad8 104 8 key
vbKeyNumpad9 105 9 key
vbKeyMultiply 106 MULTIPLICATION SIGN key ( * ) ปุ่มเครื่องหมายคูณ
vbKeyAdd 107 PLUS SIGN key ( + ) ปุ่มเครื่องหมายบวก
vbKeySeparator 108 ENTER (keypad) key ปุ่ม Enter ทาง Keypad
vbKeySubtract 109 MINUS SIGN key ( - ) ปุ่มเครื่องหมายลบ
vbKeyDecimal 110 DECIMAL POINT key ( . ) ปุ่มเครื่องหมายจุด
vbKeyDivide 111 DIVISION SIGN key ( / ) ปุ่มเครื่องหมายหาร
Function Keys (ปุ่มฟังก์ชัน)
Constant Value Description
vbKeyF1 112 F1 key
vbKeyF2 113 F2 key
vbKeyF3 114 F3 key
vbKeyF4 115 F4 key
vbKeyF5 116 F5 key
vbKeyF6 117 F6 key
vbKeyF7 118 F7 key
vbKeyF8 119 F8 key
vbKeyF9 120 F9 key
vbKeyF10 121 F10 key
vbKeyF11 122 F11 key
vbKeyF12 123 F12 key
vbKeyF13 124 F13 key
vbKeyF14 125 F14 key
vbKeyF15 126 F15 key
vbKeyF16 127 F16 key
create : www.thaidev.com
Date :
2009-09-28 16:41:15
By :
Sek-Artdrinker
No. 3
Guest
เอามาบอก
Private Sub txt1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txt1.KeyDown
If e.KeyCode = Keys.Enter Then
txt2.Focus()
End If
End Sub
อย่าลืมเปลี่ยนmethodจากTextChanged เป็นKeyDown ก่อนนะแล้วค่อยใส่ code
Date :
2010-02-08 11:44:34
By :
ninja465
No. 4
Guest
ทำมัยต้องใช้ key down ด้วยครับ
Date :
2010-09-07 15:39:11
By :
Tee
No. 5
Guest
ก็เพราะจะเกิดอีเว่นเมื่อ กดปุ่ม enter จะใช่ keyup ก็ได้
Load balance : Server 05
