如何从下拉菜单 "vb.net" 导航到 link
How to navigate to a link from dropdown menu "vb.net"
我已经完成了 WebBrowser 和下拉菜单来为我的 link 添加书签,并且可以正常工作。
但是如果我点击那个 link 它不会导航到那个 link
我使用了这段代码。 我真的不知道在 .Navigate() 之后我必须使用什么我尝试了一切但它对我不起作用
Private Sub ListToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListToolStripMenuItem.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate()
End Sub
如果有人需要它以确切了解它的工作原理,请将下面的代码添加为任何 links "add" 的书签。
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
由于您的 ToolStrip 项是 URL,请尝试转换发送器以获取值并将其传递到导航参数中:
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)
我已经完成了 WebBrowser 和下拉菜单来为我的 link 添加书签,并且可以正常工作。
但是如果我点击那个 link 它不会导航到那个 link 我使用了这段代码。 我真的不知道在 .Navigate() 之后我必须使用什么我尝试了一切但它对我不起作用
Private Sub ListToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListToolStripMenuItem.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate()
End Sub
如果有人需要它以确切了解它的工作原理,请将下面的代码添加为任何 links "add" 的书签。
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
由于您的 ToolStrip 项是 URL,请尝试转换发送器以获取值并将其传递到导航参数中:
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)