個人記事

完整的寫法

Public Class about
  '一次增加多數link

  Private Sub about_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    LinkLabel1.Text = "http://dark99.pixnet.net/blog"
    LinkLabel2.Text = "http://www.i-part.com.tw/file/file_viewfile.php?u=661305"

    '括號內容用法為(顯示連結字串起始位元，結束位元，連結)
    LinkLabel1.Links.Add(0, 29, "http://dark99.pixnet.net/blog")
    LinkLabel2.Links.Add(0, 56, "http://www.i-part.com.tw/file/file_viewfile.php?u=661305")

    '新增所有LinkLabel的Handler
    'Dim Lblink As LinkLabel = New LinkLabel
    For Each Lblink As Control In Me.Controls
      '要多加下面這行
      If TypeOf Lblink Is LinkLabel Then
        AddHandler CType(Lblink, LinkLabel).LinkClicked, AddressOf AllLinks
      End If
    Next

  End Sub

  Sub AllLinks(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
    '增加所有連結

    '註解的方式也可以用
    'Dim target As String = CType(e.Link.LinkData, String)
    'System.Diagnostics.Process.Start(target)


    Dim lnk As LinkLabel = New LinkLabel()
    lnk = CType(sender, LinkLabel)
    lnk.Links(lnk.Links.IndexOf(e.Link)).Visited = True
    System.Diagnostics.Process.Start(e.Link.LinkData.ToString())

  End Sub


End Class