VB.Net Tutorial/Windows/IE

Get Favorites bookmark

<source lang="vbnet">"Visual Basic 2005 Cookbook Solutions for VB 2005 Programmers "by Tim Patrick (Author), John Craig (Author) "# Publisher: O"Reilly Media, Inc. (September 21, 2006) "# Language: English "# ISBN-10: 0596101775 "# ISBN-13: 978-0596101770

Imports MVB = Microsoft.VisualBasic Imports System.Windows.Forms public class BuildYourOwnMenu

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class

Public Class Form1

   Private Declare Auto Function GetPrivateProfileString Lib "kernel32" _
       (ByVal AppName As String, _
       ByVal KeyName As String, _
       ByVal DefaultValue As String, _
       ByVal ReturnedString As System.Text.StringBuilder, _
       ByVal BufferSize As Integer, _
       ByVal FileName As String) As Integer
   Private Sub MenuExitProgram_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExitProgram.Click
       Me.Close()
   End Sub
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       Dim favoritesPath As String
       favoritesPath = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
       If (favoritesPath = "") Then Return
       If (My.ruputer.FileSystem.DirectoryExists(favoritesPath) = False) Then Return
       BuildFavorites(MenuFavorites, favoritesPath)
       If (MenuFavorites.DropDownItems.Count > 1) Then _
           MenuNoFavorites.Visible = False
   End Sub
   Private Sub BuildFavorites(ByVal whichMenu As ToolStripMenuItem, ByVal fromPath As String)
       Dim oneEntry As String
       Dim menuEntry As ToolStripMenuItem
       Dim linkPath As String
       Dim displayName As String
       For Each oneEntry In My.ruputer.FileSystem.GetDirectories(fromPath)
           menuEntry = New ToolStripMenuItem( _
               My.ruputer.FileSystem.GetName(oneEntry))
           BuildFavorites(menuEntry, oneEntry)
           If (menuEntry.DropDownItems.Count > 0) Then _
               whichMenu.DropDownItems.Add(menuEntry)
       Next oneEntry
       For Each oneEntry In My.ruputer.FileSystem.GetFiles(fromPath, _
               FileIO.SearchOption.SearchTopLevelOnly, "*.url")
           linkPath = GetINIEntry("InternetShortcut", "URL", oneEntry)
           If (linkPath <> "") Then
               displayName = My.ruputer.FileSystem.GetName(oneEntry)
               displayName = MVB.Left(displayName, displayName.Length - 4)
               menuEntry = New ToolStripMenuItem(displayName)
               menuEntry.Tag = linkPath
               whichMenu.DropDownItems.Add(menuEntry)
               AddHandler menuEntry.Click, AddressOf RunFavoritesLink
           End If
       Next oneEntry
   End Sub
   Private Sub RunFavoritesLink(ByVal sender As System.Object, ByVal e As System.EventArgs)
       " ----- Run the link.
       Dim whichMenu As ToolStripMenuItem
       whichMenu = CType(sender, ToolStripMenuItem)
       Console.WriteLine(whichMenu.Tag)
       "Process.Start(whichMenu.Tag)
   End Sub
   Private Function GetINIEntry(ByVal sectionName As String, _
           ByVal keyName As String, ByVal whichFile As String) As String
       " ----- Extract a value from an INI-style file.
       Dim resultLength As Integer
       Dim targetBuffer As New System.Text.StringBuilder(500)
       resultLength = GetPrivateProfileString(sectionName, keyName, "", _
           targetBuffer, targetBuffer.Capacity, whichFile)
       Return targetBuffer.ToString()
   End Function

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.MainMenu = New System.Windows.Forms.MenuStrip
       Me.MenuFile = New System.Windows.Forms.ToolStripMenuItem
       Me.MenuExitProgram = New System.Windows.Forms.ToolStripMenuItem
       Me.MenuFavorites = New System.Windows.Forms.ToolStripMenuItem
       Me.MenuNoFavorites = New System.Windows.Forms.ToolStripMenuItem
       Me.MainMenu.SuspendLayout()
       Me.SuspendLayout()
       "
       "MainMenu
       "
       Me.MainMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuFile, Me.MenuFavorites})
       Me.MainMenu.Location = New System.Drawing.Point(0, 0)
       Me.MainMenu.Name = "MainMenu"
       Me.MainMenu.Size = New System.Drawing.Size(292, 24)
       Me.MainMenu.TabIndex = 0
       Me.MainMenu.Text = "MenuStrip1"
       "
       "MenuFile
       "
       Me.MenuFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuExitProgram})
       Me.MenuFile.Name = "MenuFile"
       Me.MenuFile.Size = New System.Drawing.Size(35, 20)
       Me.MenuFile.Text = "&File"
       "
       "MenuExitProgram
       "
       Me.MenuExitProgram.Name = "MenuExitProgram"
       Me.MenuExitProgram.ShortcutKeys = CType((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.F4), System.Windows.Forms.Keys)
       Me.MenuExitProgram.Size = New System.Drawing.Size(132, 22)
       Me.MenuExitProgram.Text = "E&xit"
       "
       "MenuFavorites
       "
       Me.MenuFavorites.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuNoFavorites})
       Me.MenuFavorites.Name = "MenuFavorites"
       Me.MenuFavorites.Size = New System.Drawing.Size(64, 20)
       Me.MenuFavorites.Text = "Fa&vorites"
       "
       "MenuNoFavorites
       "
       Me.MenuNoFavorites.Enabled = False
       Me.MenuNoFavorites.Name = "MenuNoFavorites"
       Me.MenuNoFavorites.Size = New System.Drawing.Size(112, 22)
       Me.MenuNoFavorites.Text = "(empty)"
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(292, 121)
       Me.Controls.Add(Me.MainMenu)
       Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
       Me.MainMenuStrip = Me.MainMenu
       Me.MaximizeBox = False
       Me.Name = "Form1"
       Me.Text = "Runtime Menus"
       Me.MainMenu.ResumeLayout(False)
       Me.MainMenu.PerformLayout()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents MainMenu As System.Windows.Forms.MenuStrip
   Friend WithEvents MenuFile As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents MenuExitProgram As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents MenuFavorites As System.Windows.Forms.ToolStripMenuItem
   Friend WithEvents MenuNoFavorites As System.Windows.Forms.ToolStripMenuItem

End Class</source>