ab.com コミュニティ

教えていただき、ありがとうございます。
ActiveBasicは少し前に始めたばかりなのでよく分かりません。
今後も、わからない事があったら、質問させていただきます。

Dim ex_style As DWord
ex_style = GetWindowLong(hwnd,GWL_EXSTYLE)

If ex_style And WS_EX_TOPMOST Then
'最前面ウィンドウであった場合の処理

Else
'最前面ウィンドウでなかった場合の処理

End If

Dim ex_style As DWord
ex_style = GetWindowLong(hwnd,GWL_EXSTYLE)
ex_style = ex_style And (Not(WS_EX_TOPMOST))
SetWindowLong(hwnd,GWL_EXSTYLE,ex_style)

[quote]> ウインドウが最前面化されているか取得するには
> どうすればいいのですか？
> 最前面化は簡単に出来るのですが。
> どなたか教えてください。[/quote]

確実に行くなら、
最前面ウィンドウかどうかを調べたいウィンドウの拡張スタイルを調べます。
もし、調べたいウィンドウのハンドル値がhwndだとすると

[code]Dim ex_style As DWord
ex_style = GetWindowLong(hwnd,GWL_EXSTYLE)
[/code]

あとは取得した拡張スタイルに[b]WS_EX_TOPMOST[/b]が含まれているかを調べます。

[code]If ex_style And WS_EX_TOPMOST Then
'最前面ウィンドウであった場合の処理

Else
'最前面ウィンドウでなかった場合の処理

End If
[/code]


ちなみに最前面ウィンドウの解除も上の手順の反対を行えばできます。

[code]Dim ex_style As DWord
ex_style = GetWindowLong(hwnd,GWL_EXSTYLE)
ex_style = ex_style And (Not(WS_EX_TOPMOST))
SetWindowLong(hwnd,GWL_EXSTYLE,ex_style)
[/code]

ウインドウが最前面化されているか取得するには
どうすればいいのですか？
最前面化は簡単に出来るのですが。
どなたか教えてください。