ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

yazuya 2005/07/21(ｿｽｿｽ) 08:58:44

ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽJｿｽXｿｽﾚ難ｿｽｿｽﾉつゑｿｽｿｽﾄ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

 ｿｽQｿｽQｿｽQｿｽQｿｽQ   ｿｽQｿｽQｿｽQｿｽQｿｽQ
| Command1 | | Command2 |
 ｿｽPｿｽPｿｽPｿｽPｿｽP   ｿｽPｿｽPｿｽPｿｽPｿｽP
 ｿｽQｿｽQｿｽQｿｽQｿｽQ   ｿｽQｿｽQｿｽQｿｽQｿｽQ
| Command3 | | Command4 |
 ｿｽPｿｽPｿｽPｿｽPｿｽP   ｿｽPｿｽPｿｽPｿｽPｿｽP

ｿｽｿｽLｿｽﾌようｿｽﾉコｿｽ}ｿｽｿｽｿｽhｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽｿｽｿｽ鼾ｿｽA

ｿｽ^ｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾛのフｿｽHｿｽ[ｿｽJｿｽXｿｽﾌ移難ｿｽｿｽﾍ、
Command1 ｿｽｿｽ Command2 ｿｽｿｽ Command3 ｿｽｿｽ Command4 ｿｽﾌままで、

Command1ｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽLｿｽ[ｿｽ{ｿｽ[ｿｽhｿｽﾌｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾆゑｿｽｿｽA
Command3ｿｽﾉフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽﾚゑｿｽｿｽｿｽｿｽﾆはでゑｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ


ｿｽﾈ会ｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽLｿｽ[ｿｽｿｽEｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

Private Sub command1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyDown
            Command3.SetFocus
    End Select
End Sub

ｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/07/21(ｿｽｿｽ) 09:14:01

# ｿｽfｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽしてまゑｿｽｿｽﾋ。ｿｽﾜゑｿｽｿｽAｿｽeｿｽﾊ不ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽQｿｽｿｽｿｽNｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾈ…ｿｽcｿｽB


> ｿｽﾈ会ｿｽｿｽﾌようｿｽﾉゑｿｽｿｽｿｽｿｽ鼾ｿｽAｿｽLｿｽ[ｿｽｿｽEｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽ[ｿｽﾍ、ｿｽwｿｽuｿｽRｿｽｿｽｿｽeｿｽiｿｽｿｽvｿｽﾌ趣ｿｽｿｽｿｽ(ｿｽOｿｽｿｽ)ｿｽ{ｿｽ^ｿｽｿｽｿｽﾖの移難ｿｽｿｽxｿｽｿｽ
ｿｽｿｽｿｽﾄ茨ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB(ｿｽ^ｿｽuｿｽLｿｽ[ｿｽﾆは異なる動ｿｽｿｽﾅゑｿｽ)

ｿｽﾅ、ｿｽcｿｽOｿｽﾈゑｿｽｿｽﾆに、ｿｽ{ｿｽ^ｿｽｿｽｿｽnｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌ擾ｿｽﾅは、ｿｽｿｽｿｽLｿｽ[ｿｽｿｽ
ｿｽｿｽｿｽmｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽBVBｿｽﾌ標ｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾅは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽ{ｿｽ^ｿｽｿｽｿｽnｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽgｿｽずｿｽAPictureBoxｿｽｿｽｿｽﾅ托ｿｽpｿｽｿｽｿｽｿｽﾈどゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽASetWindowsHookEx API ｿｽﾈどゑｿｽ
ｿｽLｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽｿｽAｿｽｿｽｿｽ艪ｷｿｽ骼厄ｿｽﾉなゑｿｽﾅゑｿｽｿｽ蛯､ｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽ 2005/07/21(ｿｽｿｽ) 09:39:58

TabIndexｿｽﾆカｿｽ[ｿｽ¥ｿｽｿｽｿｽLｿｽ[ｿｽｿｽｿｽﾄ連ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽEｿｽEｿｽE

ｿｽｿｽｿｽｿｽｿｽｿｽ 2005/07/21(ｿｽｿｽ) 09:43:30

ｿｽﾈんか意厄ｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽ謔､ｿｽﾈので、ｿｽｿｽﾄゑｿｽ

Command1ｿｽｿｽCommand3ｿｽﾆゑｿｽRｿｽｿｽｿｽeｿｽiｿｽﾉ、Command2ｿｽｿｽCommand4ｿｽﾆゑｿｽRｿｽｿｽｿｽeｿｽiｿｽｿｽ
ｿｽﾓゑｿｽｿｽﾂゑｿｽｿｽﾂ包ｿｽｿｽｿｽｿｽﾄ格ｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
TabIndexｿｽｿｽ1ｿｽｿｽ2ｿｽｿｽ3ｿｽｿｽ4ｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2005/07/21(ｿｽｿｽ) 11:10:26

APIｿｽｿｽgｿｽｿｽｿｽﾄ厄ｿｽｿｽｿｽｿｽ理ｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽ鼾ｿｽB


'--- ｿｽWｿｽｿｽｿｽｿｽｿｽWｿｽｿｽｿｽ[ｿｽｿｽ
Option Explicit

Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Const WH_KEYBOARD As Long = 2
Private mlngHook As Long

Public Sub Hook()
    mlngHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, 0&, App.ThreadID)
End Sub
Public Sub Unhook()
    UnhookWindowsHookEx mlngHook
    mlngHook = 0
End Sub

Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Static blnReEnter As Boolean
    If wParam <> vbKeyRight And _
       wParam <> vbKeyLeft And _
       wParam <> vbKeyUp And _
       wParam <> vbKeyDown Then
        KeyboardProc = CallNextHookEx(mlngHook, nCode, wParam, lParam)
    ElseIf blnReEnter = False Then
        blnReEnter = True
        KeyboardProc = 1
    Else
        On Error Resume Next
        Form1.ArrowKeyClick wParam
        KeyboardProc = 1
        blnReEnter = False
    End If
End Function


'--- Form1
Option Explicit

Private Sub Form_Load()
    Hook
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Unhook
End Sub

Public Sub ArrowKeyClick(ByVal KeyCode As KeyCodeConstants)
    ' [Command1] ｿｽｿｽｿｽｿｽ [Command2]
    '  ｿｽｿｽ                     ｿｽｿｽ
    '  ｿｽｿｽ                     ｿｽｿｽ
    ' [Command3] ｿｽｿｽｿｽｿｽ [Command4]
    If KeyCode = vbKeyRight Then
        If ActiveControl Is Command1 Then
            Command2.SetFocus
        ElseIf ActiveControl Is Command3 Then
            Command4.SetFocus
        End If
    ElseIf KeyCode = vbKeyLeft Then
        If ActiveControl Is Command2 Then
            Command1.SetFocus
        ElseIf ActiveControl Is Command4 Then
            Command3.SetFocus
        End If
    ElseIf KeyCode = vbKeyDown Then
        If ActiveControl Is Command1 Then
            Command3.SetFocus
        ElseIf ActiveControl Is Command2 Then
            Command4.SetFocus
        End If
    ElseIf KeyCode = vbKeyUp Then
        If ActiveControl Is Command3 Then
            Command1.SetFocus
        ElseIf ActiveControl Is Command4 Then
            Command2.SetFocus
        End If
    End If
End Sub

yazuya 2005/07/22(ｿｽｿｽ) 14:18:54

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽCｿｽｿｽｿｽ[ｿｽWｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.