Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

LinkLabel LinkArea

imports System imports System.Drawing imports System.Windows.Forms public class LinkLabelsLinkArea : inherits Form   dim lnkMsft as LinkLabel   dim lnkLA as LinkLabel   public sub New()     Size = new Size(300,250)     '  use Text property & LinkArea     lnkMsft = new LinkLabel()     lnkMsft.Parent = me     lnkMsft.Text = "www.microsoft.com"     lnkMsft.Location = new Point(0,0)     lnkMsft.AutoSize = true     lnkMsft.BorderStyle = BorderStyle.None     lnkMsft.LinkArea = new LinkArea(4,9)     AddHandler lnkMsft.LinkClicked, AddressOf lnkMsft_LinkClicked   end sub   public shared sub Main()      Application.Run(new LinkLabelsLinkArea())   end sub   private sub lnkMsft_LinkClicked(ByVal sender as object,  ByVal e as LinkLabelLinkClickedEventArgs)       lnkMsft.Links(lnkMsft.Links.IndexOf(e.Link)).Visited = true        System.Diagnostics.Process.Start(lnkMsft.Text)   end sub end class