タイトル : Re^10: IE を最前面に表示 投稿日 : 2008/03/08(Sat) 11:18 投稿者 : 花ちゃん
COM オブジェクトを使っていいのなら下記で常に最前面に表示されます。 Windows Vista VB2005 IE7.0 で動作確認 'プロジェクト→参照の追加→COM→Microsoft Internet controls を参照設定して下さい。 Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click Dim IE As New SHDocVw.InternetExplorer Dim Url As String = "http://hanatyan.sakura.ne.jp/" SetWindowPos(IE.HWND, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) With IE .Navigate(Url) Application.DoEvents() Do While .Busy = True Application.DoEvents() Loop .Visible = True Do While IE.ReadyState <> SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE Application.DoEvents() Loop End With System.Runtime.InteropServices.Marshal.FinalReleaseComObject(IE) IE = Nothing End Sub |