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

名前

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

本文

うちの環境では NavigateComplete2 イベント後で上手く行きました。
[VB6.0]
Option Explicit

Private mNavi As Boolean

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 = 10
    End If
End Sub

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

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    mNavi = True
    'ノードによりブラウザで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 WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    PopupMenu Menu(0), vbPopupMenuRightButton, , , menuSub(1)
    mNavi = False
End Sub

Private Sub Timer1_Timer()
    Me.Timer1.Interval = 0
    If mNavi Then
        Me.Timer1.Interval = 10
    Else
        PopupMenu Menu(0), vbPopupMenuRightButton, , , menuSub(1)
    End If
End Sub

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

戻る