tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルAxWebBrowserの再線画
記事No954
投稿日: 2004/06/29(Tue) 23:34
投稿者age
[OSのVer]:WindowsXP    [VBのVer]:VB.NET2003

簡易WebBrowserを下記条件で作成しようと思っております。

1.フォームを最小化したときに,システムトレイにアイコンを配置し,タスクバーには,非表示にする。
2.システムトレイのアイコンをダブルクリックし,フォームを表示し,システムトレイのアイコンを
  非表示にする。

    Private Sub Form1_Load(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles MyBase.Load
        AxWebBrowser1.Navigate("hhttp://www.yahoo.co.jp/")
    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As Object, _
     ByVal e As System.EventArgs) Handles MyBase.SizeChanged
        If Me.WindowState = FormWindowState.Minimized Then
            NotifyIcon1.Visible = True
            Me.ShowInTaskbar = False
        End If
    End Sub

    Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, _
     ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        Me.ShowInTaskbar = True
        NotifyIcon1.Visible = False
        Me.WindowState = FormWindowState.Normal
    End Sub

しかし,最小化してもタスクバーにはAxWebBrowserコントロールの影響と思われる表示が残りますし,
システムトレイをダブルクリックして,フォームを再表示してもAxWebBrowserコントロールが
再線画されません。

ご存知の方,ご教授いただけないでしょうか?

[ツリー表示へ]
タイトルRe: AxWebBrowserの再線画
記事No955
投稿日: 2004/06/30(Wed) 17:25
投稿者花ちゃん
詳しくは知りませんが、どのたからもレスがないようなのでチョット試したみたら
Me.ShowInTaskbar = False をコードから実行しないでプロパティで設定すると
大丈夫のようですが。

Me.ShowInTaskbar = False
Me.ShowInTaskbar = True
をコードで実行すると AxWebBrowser の表示が消えてしまいますね。
下記のコードでもエラーとなってしまいます。

    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
        AxWebBrowser1.Visible = False
        Me.ShowInTaskbar = True
        AxWebBrowser1.Visible = True
    End Sub

従って、両方に表示されるように切り替える事は無理のようですね
(何か方法があるのかは解りませんが)
タスクトレイの方に常時表示しておくようにされたらいかがですか

[ツリー表示へ]
タイトルRe^2: AxWebBrowserの再線画
記事No956
投稿日: 2004/06/30(Wed) 21:29
投稿者age
花ちゃんさま、レスありがとうございます。

未だ、問題は解決してはおりませんが、これは今後の課題とし、
とりあえずは、タスクバーのみの表示にしたいと思います。

[ツリー表示へ]