ab.com コミュニティ

　ノッチさん、Tomorrowさん、レスありがとうございます。
[quote]
Enterキーが押された時にイベントが実行されるボタンはBS_DEFPUSHBUTTON
スタイルが含まれているかどうかなので無理やりそのスタイルを追加しました。
ちなみに、別のウィンドウをアクティブにしてからダイアログをアクティブにすると
フォーカスが消えてEnterが利かなくなってしまうのでダイアログのActivateイベントに
[/quote]
「BS_DEFPUSHBUTTON 」なんですね。
それに、Activateイベント、改めて聞かなきゃいけないなと思っていた
所でした。先回りして教えて頂いて感謝です。
stateでウインドウがアクティブか非アクティブかを調べて、非アクティブなら
hControlに「今フォーカスが当たっていたボタンのハンドル」を格納し、
アクティブになったときに改めてそれにフォーカスを当て直す。
なるほどなーと思いながら見ています。

それからTomorrowさんの言っておられた、「標準のボタン」のチェックでも
確かに同じ動作で、ENTER一回で押せるようになりました。

　レス、ありがとうございました。またよろしくお願いします。

　

　

> Enterキーが押された時にイベントが実行されるボタンはBS_DEFPUSHBUTTON
> スタイルが含まれているかどうかなので無理やりそのスタイルを追加しました。

BS_DEFPUSHBUTTONスタイルでしたら

RADでボタンをクリック→[- Button プロパティ -]→[スタイル]→[標準のボタン]をチェック

で、出来ませんか？

Sub Dialog1_Create(ByRef CreateStruct As CREATESTRUCT)
    'Hookのインストール
    hHook = SetWindowsHookEx(WH_GETMESSAGE, AddressOf(GetMsgProc), _
                        0, GetWindowThreadProcessId(hDialog1, NULL))
    If hHook=0 Then
        MessageBox(hDialog1,"Install Failed", "", MB_OK)
    End If
	Dim hWnd As HWND
	hWnd=GetDlgItem(hDialog1,CommandButton2)
	SetFocus(hWnd)
	SetWindowLong(hWnd,GWL_STYLE,GetWindowLong(hWnd,GWL_STYLE) or BS_DEFPUSHBUTTON)
End Sub

'グローバル領域に
Dim hControl As HWND


Sub Dialog1_Activate(state As Integer, minimized As Integer)
	If state Then
		SetFocus(hControl)
	Else
		hControl=GetFocus()
	End If
End Sub

>
> 　最初からあるボタンにフォーカスを当てておき、リターンキーで
> そのボタンを押せるようにするには、どうすれば良いでしょうか？
>

ストレートなやり方が見つからなかったので力技で攻めてみました。
Createイベントを
[code]Sub Dialog1_Create(ByRef CreateStruct As CREATESTRUCT)
'Hookのインストール
hHook = SetWindowsHookEx(WH_GETMESSAGE, AddressOf(GetMsgProc), _
0, GetWindowThreadProcessId(hDialog1, NULL))
If hHook=0 Then
MessageBox(hDialog1,"Install Failed", "", MB_OK)
End If
Dim hWnd As HWND
hWnd=GetDlgItem(hDialog1,CommandButton2)
SetFocus(hWnd)
SetWindowLong(hWnd,GWL_STYLE,GetWindowLong(hWnd,GWL_STYLE) or BS_DEFPUSHBUTTON)
End Sub
[/code]
のようにしてみて下さい。

Enterキーが押された時にイベントが実行されるボタンはBS_DEFPUSHBUTTON
スタイルが含まれているかどうかなので無理やりそのスタイルを追加しました。

ちなみに、別のウィンドウをアクティブにしてからダイアログをアクティブにすると
フォーカスが消えてEnterが利かなくなってしまうのでダイアログのActivateイベントに
[code]
'グローバル領域に
Dim hControl As HWND


Sub Dialog1_Activate(state As Integer, minimized As Integer)
If state Then
SetFocus(hControl)
Else
hControl=GetFocus()
End If
End Sub[/code]
を入れておくとフォーカスが無くならなくなります。
[/code]

レスありがとうございます。

今使っているABのバージョンは4.04です。

それで、「ver.4.24」でも実験してみました。
フックを使わずとも確かにTAB、ENTER有効になっていました。

ただ、「モーダルダイアログ表示時に初めからあるボタンにフォーカスを
当てておいて、ENTER一回でそのボタンを押す」ことの実行の為に、
同様に「SetFocus」を書いただけでは出来ませんでした。
　(SetFocusを書かなければ、どのボタンにもフォーカスが当たって
いない状態で、そこからTABかカーソルキーを押して、そこから改めて
Enterを押さないとボタンを押せません)
　SetFocusでボタンに点線は付いてくれるのですが、
MessageBoxでのOKボタンのような動作をまだしてくれません。

出来れば、引き続きver.4.04を使いたいと思っています。(もちろん
4.24での実行でも構いません。)

　最初からあるボタンにフォーカスを当てておき、リターンキーで
そのボタンを押せるようにするには、どうすれば良いでしょうか？

　

> 　モーダルダイアログボックス表示したとき、最初からあるボタンにフォーカスを
> 当てておき、リターンキーでそのボタンを押せるようにしたいのですが
> うまく実行させることが出来ていません。
>
～～～ 中略 ～～～
>
> 　最初からあるボタンにフォーカスを
> 当てておき、リターンキーでそのボタンを押すようにさせるには
> どのようにすればよいのでしょうか？

使用しているABのバージョンはいくつですか？
こちらではモーダルダイアログを作成すると自動的にIsDialogMessageがついているので
TabもEnterも使える状態になっています。
AB 4.24.00

Sub Dialog1_Create(ByRef CreateStruct As CREATESTRUCT)

'Hookのインストール
    hHook = SetWindowsHookEx(WH_GETMESSAGE, AddressOf(GetMsgProc), _
        0, GetWindowThreadProcessId(hDialog1, NULL))
    If hHook=0 Then
       MessageBox(hDialog1,"Install Failed", "",MB_OK)
    End If

'----- ボタン2にフォーカスをあらかじめ当てたい --------
    SetFocus(GetDlgItem(hDialog1,CommandButton2))    

End Sub

　モーダルダイアログボックス表示したとき、最初からあるボタンにフォーカスを
当てておき、リターンキーでそのボタンを押せるようにしたいのですが
うまく実行させることが出来ていません。

--------------------------------------

　ActiveBasicFanさんのHP、
「モーダルダイアログで、TABキー、ENTERキーを有効にする」
http://abfan.mxm-wk.com/021.html
を読ませてもらいながら、フックというやり方でタブキーでコントロールに
フォーカスを当てて、リターンキーで押すプログラムを何とか作ることが
(コピペですが)できました。

それで次に、ダイアログを表示したときにあらかじめ
あるボタンにフォーカスを当てようと、そのダイアログのクリエイト
イベント内で
[code]
Sub Dialog1_Create(ByRef CreateStruct As CREATESTRUCT)

'Hookのインストール
hHook = SetWindowsHookEx(WH_GETMESSAGE, AddressOf(GetMsgProc), _
0, GetWindowThreadProcessId(hDialog1, NULL))
If hHook=0 Then
MessageBox(hDialog1,"Install Failed", "",MB_OK)
End If

'----- ボタン2にフォーカスをあらかじめ当てたい --------
SetFocus(GetDlgItem(hDialog1,CommandButton2))

End Sub
[/code]
というように"SetFocus(GetDlgItem(hDialog1,CommandButton2))"と
書いたのですが、これではリターンキーを受け付けてもらえません。

　過去ログを調べて、いくつか同様の質問を見つけることはできたのですが、
(No.2011 「SetFocus について」等)、中々解決が分からず。

　コードは、
　ActiveBasicFanさんのHP、
「モーダルダイアログで、TABキー、ENTERキーを有効にする」
http://abfan.mxm-wk.com/021.html
で解説されているものと同じものです。

　最初からあるボタンにフォーカスを
当てておき、リターンキーでそのボタンを押すようにさせるには
どのようにすればよいのでしょうか？