ผมกดปุ่ม Enter ที่คีย์บอร์ดแล้วให้เคอร์เซอร์เต้นลงมาที่เซลล์ดาต้ากริดวิวแล้วกด Enter ให้มันสิทธิ์ขัวไปเรื่อยเรื่อยจนสุดแล้วให้มันลงแถวทำอย่างไรครับ ขอบคุณครับ
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
AddKeyDownEvent(Me)
End Sub
End Class
Public Class UserControl1
Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.TabStop = True
AddKeyDownEvent(Me)
End Sub
End Class
Module Module1
Public Sub AddKeyDownEvent(ByVal obj As Control)
Dim ctl As Control = obj.GetNextControl(obj, True)
Do Until ctl Is Nothing
AddHandler ctl.KeyDown, AddressOf AllControls_KeyDown
ctl = obj.GetNextControl(ctl, True)
Loop
End Sub
Public Sub AllControls_KeyDown(sender As Object, e As KeyEventArgs)
If e.KeyCode = Keys.Enter Then
e.Handled = True
SendKeys.SendWait("{TAB}")
End If
End Sub
End Module