tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。