一つ前のウィンドウをTopMost=Trueに設定したい

質問

ＶＢ．ＮＥＴ２００３でフォームを表示していて
そこにあるボタンを押すとその下のウィンドウを
常に最前面に表示するようにしたいのでＡＰＩを使って下のように
書いてみたのですががうまく動いてくれません。
恐れ入りますが訂正箇所などを教えていただければ幸いです。

Dim win1 As Integer
Dim win2 As Integer
Dim win3 As Integer

win1 = GetTopWindow(Me.Handle.ToInt32)
win2 = GetParent(win1)
win3 = GetNextWindow(win2, 2)
SetWindowPos(win3, -1, 100, 100, 100, 100, &H40)

宜しくお願い致します

回答No.2

kikujack · ベストアンサー

gomachans1さんのコードを実行すると何かエラーがないのに、うまく動きませんでした。
いちいち行デバッグしたら、正しいHandleを取得できないことに気づきました。
コードを修正するつもりですが、うまくできませんでした。

>>一つ前ウィンドウをTopMost=True
そのウィドウはVB.2003のMDIサブウィドウですか？

補足

わざわざ試して頂いてありがとうございます。
設定したいウィンドウはMDIウィンドウではなく
インターネットエクスプローラーや開いたフォルダや市販のソフトなど
なんでも設定したいです。
IntegerをIntPtrに変えたり色々試しているのですが、
最前面に真っ白な■が表示されて消えなくなってしまったりと
全く違うハンドルやID？でAPIを実行してしまっているようです。
お助けいただきたいです。

回答No.3

kikujack

それなら、力にならないとおもいます。
すみませんでした。

回答No.1

kikujack

GetTopWindow GetParent GetNextWindow SetWindowPos
この四つのAPI関数をちゃんと宣言しますか？

補足

ご回答をありがとうございます。
ＡＰＩの宣言ですが、下のように行っております。
間違いなどありましたらご指摘頂けると幸いです。

Declare Function SetWindowPos Lib "user32.dll" _
(ByVal hWnd As Integer, ByVal hWndInertAfter As Integer, _
ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, _
ByVal cy As Integer, ByVal uFlags As Integer) As Integer

Declare Function GetTopWindow Lib "user32.dll" _
(ByVal hWnd As Integer) As Integer

Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" _
(ByVal hwnd As Integer, ByVal wFlag As Integer) As Integer

Declare Function GetParent Lib "user32.dll" _
(ByVal hWnd As Integer) As Integer