Using LinkLabels to create hyperlinks: Open Notepad : LinkLabel « GUI « VB.Net






Using LinkLabels to create hyperlinks: Open Notepad

Using LinkLabels to create hyperlinks: Open Notepad
Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class MainClass

   Shared Sub Main()
        Dim myform As Form = New FrmLinkLabel()
        Application.Run(myform)

   End Sub ' Main

End Class

Public Class FrmLinkLabel
   Inherits Form

#Region " Windows Form Designer generated code "

   Public Sub New()
      MyBase.New()

      'This call is required by the Windows Form Designer.
      InitializeComponent()

      'Add any initialization after the InitializeComponent() call

   End Sub

   'Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
      If disposing Then
         If Not (components Is Nothing) Then
            components.Dispose()
         End If
      End If
      MyBase.Dispose(disposing)
   End Sub

   ' linklabels to C: drive, www.deitel.com and Notepad
   Friend WithEvents linkLabel As LinkLabel

   'Required by the Windows Form Designer
   Private components As System.ComponentModel.Container

   '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.linkLabel = New LinkLabel()
      Me.SuspendLayout()
      '
      'linkLabel
      '
      Me.linkLabel.Location = New System.Drawing.Point(72, 16)
      Me.linkLabel.Name = "linkLabel"
      Me.linkLabel.TabIndex = 0
      Me.linkLabel.TabStop = True
      Me.linkLabel.Text = "Open Notepad"
      '
      'FrmLinkLabel
      '
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.ClientSize = New System.Drawing.Size(364, 149)
      Me.Controls.AddRange(New Control() {Me.linkLabel})
      Me.Name = "FrmLinkLabel"
      Me.Text = "LinkLabelTest"
      Me.ResumeLayout(False)

   End Sub

#End Region

   ' browse C:\ drive
   Private Sub linkLabel_LinkClicked _
      (ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
      Handles linkLabel.LinkClicked

      linkLabel.LinkVisited = True

      System.Diagnostics.Process.Start("notepad")
  End Sub ' linkLabel

End Class 
           
       








Related examples in the same category

1.Click LinkLabel to Open website in your Default Web BrowserClick LinkLabel to Open website in your Default Web Browser
2.Use LinkLabel and load the link in your system default browserUse LinkLabel and load the link in your system default browser
3.Set different URL for one LinkLabelSet different URL for one LinkLabel
4.Using LinkLabels to create hyperlinks: browse C:\ driveUsing LinkLabels to create hyperlinks: browse C:\ drive
5.Using LinkLabels to create hyperlinks: Open BrowserUsing LinkLabels to create hyperlinks: Open Browser