ブラウザを更新しつつポップアップメニューを出すには？ (ID:117701)

名前

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

本文

>推測ですが、IEなどのブラウザで右クリックでメニュー出したまま
>リロードすることはできないので、Navigate2実行時に
>ポップアップメニューが消される現象が起きているのではと思っています
…だとしたら Navigate2 実行後にタイマーで表示…で一見上手く行くんだけど
重いページだと解決せず。どうも表示が完全に終了しないとダメ？

過去ログに『WebBrowserで読み込み完了まで待つには？』とかあるんで
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200312/03120063.txt
試したけど…全然ループに引っ掛からなくて断念。

[VB6.0]
Option Explicit

Private Sub Form_Load()
    Dim nodex As Object
    'ツリーノード構築
    Set nodex = TreeView1.Nodes.Add(, , "Root", "Root")
    Set nodex = TreeView1.Nodes.Add("Root", 1, "child", "child")
    'ブラウザ初期化
    WebBrowser1.Navigate2 "about:blank"
End Sub

Private Sub TreeView1_MouseUp(Button As Integer, _
    Shift As Integer, x As Single, y As Single)
    '右クリックでポップアップメニュー
    If Button = vbRightButton Then
        Me.Timer1.Interval = 1000 ' 十分な時間を取ってみて下さい。
    End If
End Sub

Private Sub menuSub_Click(Index As Integer)
    MsgBox "menu実行"
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    'ノードによりブラウザでURL分岐
    If TreeView1.SelectedItem.Key = "Root" Then
        WebBrowser1.Navigate2 "http://google.co.jp"
    Else
        WebBrowser1.Navigate2 "http://yahoo.co.jp"
    End If
End Sub

Private Sub Timer1_Timer()
    Me.Timer1.Interval = 0
    PopupMenu Menu(0), vbPopupMenuRightButton, , , menuSub(1)
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る