IEのようなお気に入り

(削除されました)

すいませんさっきの間違えです。
またまた申し訳ありません。
IEのようなお気に入りを作りたくていろいろ調べてみたのですが
分かりません（泣

現在こんな感じです。
お気に入りを押すとIEの用に出て選択したサイトを選択しているタブに出したいです。

それならば、リストビューとスプリットコンテナを準備して、追加されたURLをList(Of T)コレクションに
記録すればいい話では？リストビューにList(Of T)の内容を反映させればいいですね
それかDictionaryもいいかもしれませんね。タイトルとURLをペアにして。

ダブルクリックした時にList(Of T)からURLを取り出してWebBrowserに反映すればいいのではないかと思います。
頑張ってください。

Public Class FavoritePage

'ページのURL 

Public Property URL As String

'ページのタイトル 

Public Property Name As String

End Class

この内容を、List(Of FavoritePage)に入れればいいのではないかと。
記録するにはバイナリシリアライズもしくはSoapシリアライズが楽ですね
http://dobon.net/vb/dotnet/file/binaryformatter.html

ただし、 XmlSerializerはプロパティなどPublicに設定されたフィールドが記録されますが
このSoapおよびBinaryはPrivateも記録されグローバル変数だけが記録されるところに注意してください
ただしListのままでは記録できなかったはずなので、ToArrayにより配列に変換してから記録してください

LictViewがダブルクリックされたとき対象となるFavoritePageクラスからURLを取り出し
選択されているタブのWebBrowserに表示させればいいとおもいます

できればMenuItem3でしたいです。
ToolBar?のやり方なら見つけたのですがMenuItemでのやり方が分かりません（泣

情報があんまり足りないので３つ仮定を置きました。

仮定１．MenuStrip上にMenuItem3というメニューが配置されている。
仮定２．フォーム上にTabControl1が配置されている。
仮定３．そのTabControl1の選択されているTabPage上にWebBrowserコントロールが配置されている。

 

Private Sub MenuItem3_Click(sender As System.Object, e As System.EventArgs) Handles MenuItem3.Click



    If MenuItem3.HasDropDownItems Then

        Return

    End If



    Dim childMenu As ToolStripMenuItem



    childMenu = New ToolStripMenuItem("Yahoo!")

    AddHandler childMenu.Click, Sub() Navigate("http://www.yahoo.co.jp")

    MenuItem3.DropDownItems.Add(childMenu)



    childMenu = New ToolStripMenuItem("Visual Basic 中学校")

    AddHandler childMenu.Click, Sub() Navigate("http://homepage1.nifty.com/rucio/main/main.htm")

    MenuItem3.DropDownItems.Add(childMenu)



    childMenu = New ToolStripMenuItem("Google")

    AddHandler childMenu.Click, Sub() Navigate("http://www.google.com")

    MenuItem3.DropDownItems.Add(childMenu)



    childMenu = New ToolStripMenuItem("@nifty")

    AddHandler childMenu.Click, Sub() Navigate("http://www.nifty.ne.jp")

    MenuItem3.DropDownItems.Add(childMenu)



    MenuItem3.ShowDropDown()

End Sub



Private Sub Navigate(url As String)



    Dim Browser As WebBrowser = Aggregate c In TabControl1.SelectedTab.Controls Where TypeOf c Is WebBrowser Into First()

    Browser.Navigate(url)



End Sub

ありがとうございました。
出来ました！！

こんな方法があったんですね！
勉強になりました。