我想在datagrid上按【下】鍵,然後就自動跳到下一格
下面是我的程式碼:
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode >= 37 And KeyCode <= 40 Then
SendKeys ("{enter}")
SendKeys ("{down}")
MsgBox (KeyCode)
End If
End Sub
結果造成不斷網下一格跳,最後當機
下面是我的程式碼:
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode >= 37 And KeyCode <= 40 Then
SendKeys ("{enter}")
SendKeys ("{down}")
MsgBox (KeyCode)
End If
End Sub
結果造成不斷網下一格跳,最後當機
全站熱搜
留言列表