ab.com コミュニティ

test完了！edit box を３個にしてみましたが完璧に動きました。
ありがとうございました。
これからも質問させていただきます。

ありがとうございます。早速実践してみます。

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Dim lpOldWndProc[1] As VoidPtr

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	lpOldWndProc[0]=SetWindowLong(GetDlgItem(hMainWnd,EditBox1),GWL_WNDPROC,AddressOf(MainWndProc) As LONG_PTR) As VoidPtr
	lpOldWndProc[1]=SetWindowLong(GetDlgItem(hMainWnd,EditBox2),GWL_WNDPROC,AddressOf(MainWndProc) As LONG_PTR) As VoidPtr
End Sub

Sub MainWnd_Destroy()
	SetWindowLong(GetDlgItem(hMainWnd,EditBox1),GWL_WNDPROC,lpOldWndProc[0] As LONG_PTR)
	SetWindowLong(GetDlgItem(hMainWnd,EditBox2),GWL_WNDPROC,lpOldWndProc[1] As LONG_PTR)
	xxx_DestroyObjects() 'xxxにはプロジェクト名が入る
	PostQuitMessage(0)
End Sub

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
	Select Case hWnd
		Case GetDlgItem(hMainWnd,EditBox1)
			If dwMsg=WM_KEYDOWN And wParam=VK_RETURN Then
				SetFocus(GetDlgItem(hMainWnd,EditBox2))
			End If
			MainWndProc=CallWindowProc(lpOldWndProc[0],hWnd,dwMsg,wParam,lParam)
		Case GetDlgItem(hMainWnd,EditBox2)
			If dwMsg=WM_KEYDOWN And (wParam=VK_LEFT Or wParam=VK_UP) Then
				SetFocus(GetDlgItem(hMainWnd,EditBox1))
			End If
			MainWndProc=CallWindowProc(lpOldWndProc[1],hWnd,dwMsg,wParam,lParam)
		Case Else
			' イベントプロシージャの呼び出しを行います。
			MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
	End Select
End Function

RADツールでウィンドウにエディットボックスを2個(EditBox1・EditBox2)配置し、
[code]' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。[/code]
の下に
[code]Dim lpOldWndProc[1] As VoidPtr[/code]
を記述。

MainWnd_Createイベントを下のように変更。
[code]Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
lpOldWndProc[0]=SetWindowLong(GetDlgItem(hMainWnd,EditBox1),GWL_WNDPROC,AddressOf(MainWndProc) As LONG_PTR) As VoidPtr
lpOldWndProc[1]=SetWindowLong(GetDlgItem(hMainWnd,EditBox2),GWL_WNDPROC,AddressOf(MainWndProc) As LONG_PTR) As VoidPtr
End Sub[/code]

MainWnd_Destroyイベントを下のように変更。
[code]Sub MainWnd_Destroy()
SetWindowLong(GetDlgItem(hMainWnd,EditBox1),GWL_WNDPROC,lpOldWndProc[0] As LONG_PTR)
SetWindowLong(GetDlgItem(hMainWnd,EditBox2),GWL_WNDPROC,lpOldWndProc[1] As LONG_PTR)
xxx_DestroyObjects() 'xxxにはプロジェクト名が入る
PostQuitMessage(0)
End Sub[/code]

そしてMainWndProcを下のように変更。
[code]Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
Select Case hWnd
Case GetDlgItem(hMainWnd,EditBox1)
If dwMsg=WM_KEYDOWN And wParam=VK_RETURN Then
SetFocus(GetDlgItem(hMainWnd,EditBox2))
End If
MainWndProc=CallWindowProc(lpOldWndProc[0],hWnd,dwMsg,wParam,lParam)
Case GetDlgItem(hMainWnd,EditBox2)
If dwMsg=WM_KEYDOWN And (wParam=VK_LEFT Or wParam=VK_UP) Then
SetFocus(GetDlgItem(hMainWnd,EditBox1))
End If
MainWndProc=CallWindowProc(lpOldWndProc[1],hWnd,dwMsg,wParam,lParam)
Case Else
' イベントプロシージャの呼び出しを行います。
MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Select
End Function[/code]
何でこれでうまく動くのかは考えてみて下さい(コールバック関数なので難しいかもしれませんが)。

どもども、初心者です。早速ですが矢印・enterキーにて画面上のｔｅｘｔ・ｅｄｉｔ等の欄を移動する方法を教えてください。
例えば、text欄①入力後enterキーにて次の入力欄②に移動し、上または左矢印キーにて①に戻る。