Mega Code Archive

 
Categories / VB.Net Tutorial / GUI
 

Use LinkLabel to start a browser

Imports System.Windows.Forms public class LinkLableSample    public Shared Sub Main         Application.Run(New Form1)    End Sub End class Public Class Form1     Inherits System.Windows.Forms.Form     Public Sub New()         MyBase.New()         InitializeComponent()     End Sub     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     Private components As System.ComponentModel.IContainer     Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel         Me.SuspendLayout()         '         'LinkLabel1         '         Me.LinkLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))         Me.LinkLabel1.Location = New System.Drawing.Point(88, 32)         Me.LinkLabel1.Name = "LinkLabel1"         Me.LinkLabel1.Size = New System.Drawing.Size(112, 32)         Me.LinkLabel1.TabIndex = 0         Me.LinkLabel1.TabStop = True         Me.LinkLabel1.Text = "rntsoft.com"         '         'Form1         '         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)         Me.ClientSize = New System.Drawing.Size(292, 102)         Me.Controls.Add(Me.LinkLabel1)         Me.ResumeLayout(False)     End Sub     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked         sender.linkVisited = True         System.Diagnostics.Process.Start("http://www.rntsoft.com")     End Sub End Class