投稿日 | : 2004/03/12(Fri) 11:23 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^2: MSFlexGrid上の→↑←↓について |
> 確認はしてませんが、SelChange で出来ませんか?
SelChange イベントで押した事は認識できますのでAPIを使って
どのキーを押したか取得すればいいようですね。
Option Explicit
Private Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Integer
Private Const VK_LEF = &H25 '←
Private Const VK_UP = &H26 '↑
Private Const VK_RIGHT = &H27 '→
Private Const VK_DOWN = &H28 '↓
Private Sub MSFlexGrid1_SelChange()
If GetKeyState(VK_LEF) < 0 Then
MsgBox "← キーが押されました"
ElseIf GetKeyState(VK_UP) < 0 Then
MsgBox "↑ キーが押されました"
ElseIf GetKeyState(VK_RIGHT) < 0 Then
MsgBox "→ キーが押されました"
ElseIf GetKeyState(VK_DOWN) < 0 Then
MsgBox "↓ キーが押されました"
End If
End Sub