我已经完成了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
答案 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)