如何从下拉菜单导航到链接" vb.net"

时间:2015-08-20 17:14:12

标签: vb.net drop-down-menu

我已经完成了WebBrowser和下拉菜单,为我的链接添加了书签,并且它可以正常工作。

但如果我点击该链接,则无法导航到该链接 我使用了这段代码。而且我真的不知道在使用之后我必须使用什么.Navigate()我尝试了一切并且它不适合我

  Private Sub ListToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate()

    End Sub

以下代码用于书签任何链接"添加"如果有人需要它确切知道它是如何工作的。

 Private Sub AddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AddToolStripMenuItem.Click
        My.Settings.bookmarks.Add(WebBrowser1.Url.ToString)
        ListToolStripMenuItem.DropDownItems.Clear()
        For Each item As String In My.Settings.bookmarks
            ListToolStripMenuItem.DropDownItems.Add(item)
        Next

    End Sub

1 个答案:

答案 0 :(得分:1)

由于您的ToolStrip项是URL,请尝试强制转发发件人以获取值并将其传递给Navigate参数:

Private Sub ListToolStripMenuItem_Click(sender As Object, e As EventArgs)
  Dim web As WebBrowser = TryCast(TabControl1.SelectedTab.Controls.Item(0), WebBrowser)
  If web IsNot Nothing Then
    web.Navigate(DirectCast(sender, ToolStripMenuItem).Text)
  End If
End Sub

您的菜单项看起来也没有附加点击事件处理程序:

ListToolStripMenuItem.DropDownItems.Add(item, Nothing, _
                                        AddressOf ListToolStripMenuItem_Click)