[VB.NET] การกดคีย์ Enter เพื่อเลื่อนตำแหน่งโฟกัสของ Control

thongkorn

ใน Visual Basic ทุกรุ่น มันไม่มีคำสั่งโดยตรง เวลาที่ผู้ใช้กด Enter แล้วให้โฟกัสไปยัง Control ตัวถัดไป เพราะ VB มันใช้การกดปุ่ม Tab แทน แต่คนทั่วๆไปจะถนัดการกด Enter มากกว่า ดังนั้นเราต้องเขียนโค้ดขึ้นมาใหม่เอง สำหรับ TextBox มันจะอยู่ที่เหตุการณ์ KeyPress ส่วน Control ตัวอื่นๆจะใช้เหตุการณ์ KeyDown แล้วส่งรหัสการกด Tab ไปแทน ... สรุปผู้ใช้งานนึกว่าตัวเองกด Enter แต่แท้ที่จริงเราส่งคีย์ Tab ไปแทนนั่นเอง

e.Handled = True คือ การปิดเสียงลำโพงครับ
ตัวอย่าง ... สำหรับ TextBox Control จะใช้เหตุการณ์ KeyPress

1.     Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
   
2.         If Asc(e.KeyChar) = 13 Then
   
3.             e.Handled = True
   
4.             SendKeys.Send("{TAB}")
   
5.         End If
   
6.     End Sub

คัดลอกไปที่คลิปบอร์ด

ตัวอย่าง ... สำหรับ ComboBox Control จะใช้เหตุการณ์ KeyDown

1.     Private Sub ComboBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
   
2.         If e.KeyCode = Keys.Enter Then
   
3.             e.Handled = True
   
4.             SendKeys.Send("{TAB}")
   
5.         End If
   
6.     End Sub

คัดลอกไปที่คลิปบอร์ด

ตัวอย่าง ... สำหรับ TextBox Control โดยแก้ไขให้ใช้โปรแกรมย่อยแทน

1.     Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
   
2.         'If Asc(e.KeyChar) = 13 Then
   
3.         'e.Handled = True
   
4.         'SendKeys.Send("{TAB}")
   
5.         'End If
   
6.         '/ เรียกใช้ผ่านโปรแกรมย่อยแทน
   
7.         Call KeyPressed(TextBox1, e)
   
8.     End Sub
   
9. 
   
10.     ' / งานซ้ำๆก็ควรเขียนเป็นโปรแกรมย่อย (Sub Program)
    
11.     Public Sub KeyPressed(o As Object, e As KeyPressEventArgs)
    
12.         If Asc(e.KeyChar) = 13 Then
    
13.             e.Handled = True
    
14.             SendKeys.Send("{TAB}")
    
15.         End If
    
16.     End Sub

คัดลอกไปที่คลิปบอร์ด

ตัวอย่าง ... สำหรับ ComboBox Control โดยแก้ไขให้ใช้โปรแกรมย่อยแทน

1.     Private Sub ComboBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
   
2.         'If e.KeyCode = Keys.Enter Then
   
3.         'e.Handled = True
   
4.         'SendKeys.Send("{TAB}")
   
5.         'End If
   
6.         '/ เรียกใช้ผ่านโปรแกรมย่อยแทน
   
7.         Call KeyDowned(ComboBox1, e)
   
8.     End Sub
   
9. 
   
10.     Public Sub KeyDowned(o As Object, e As KeyEventArgs)
    
11.         If e.KeyCode = Keys.Enter Then
    
12.             e.Handled = True
    
13.             SendKeys.Send("{TAB}")
    
14.         End If
    
15.     End Sub

คัดลอกไปที่คลิปบอร์ด

jaricha5

ขอบคุณครับ

puklit

ผมมีอีก 1 ตัวอย่างคือการเรียกใช้ Function SelectNextControl
เขียนโค้ดได้ดังนี้ครับ (ตัวอย่างผมมี 10 TextBox ใช้ Event Keydown)

1. Private Sub TextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox9.KeyDown, TextBox8.KeyDown, TextBox7.KeyDown, TextBox6.KeyDown, TextBox5.KeyDown, TextBox4.KeyDown, TextBox3.KeyDown, TextBox2.KeyDown, TextBox10.KeyDown, TextBox1.KeyDown
   
2. 
   
3.         If e.KeyCode = Keys.Enter Then
   
4.             Me.SelectNextControl(sender, True, True, True, True)
   
5.         End If
   
6. 
   
7.     End Sub

คัดลอกไปที่คลิปบอร์ด