setwindowposで常に最前面にするには? (ID:91972)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >最初は最前面なんですが4-5回他の窓を開くと最全面にならなくなります。 他の窓とは？ 何を開いたら最全面にならなくなるんでしょう？ >最前面になるのがならなくなります。そしてクリックして >フォームを最前面に持ってきてIEなどを開くと最前面に >ならなくなります。 コードの記述はForm_Loadのこれのみですか？ Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Sub Form_Load() Dim modoriti As Long '常に手前表示にする modoriti = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, &H40 Or &H2 Or &H1) End Sub これだけでは、いっている現象が再現しませんが。