VB2008コントロール使用例：ハイパーリンク用リンクラベルの使い方（LinkLabel）

ハイパーリンク用リンクラベル コントロールの使用例サンプルです

コントロールの使用例へ


■ 設置したリンクラベルをクリックすると、ブラウザが起動し設定したリンク先が開きます。
ハイパーリンクを設置したフォーム

■ 手順
1) フォームが開かれる、Form_Loadイベント
　　・Textでリンク先の名前を設定
　　・Links.AddでURLを割り当てています

2）リンクラベルがクリックされると
　　・Process.Startでブラウザを起動し、設定したURLを開きます
　　・訪問済みと分かるよう色を変えます

■ 実行コード

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'リンク先名
LinkLabel1.Text = "Visual Basic 2008 Express Edition実践入門"
'リンク先　1文字目から全部をリンクにする
LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://www.feedsoft.net/vb/")

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.
Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

'クリックされるとリンクを開く
Process.Start(LinkLabel1.Links(0).LinkData.ToString())

'訪問済みと分かるよう紫色に変える
LinkLabel1.VisitedLinkColor = Color.Purple

'訪問済みにセット
LinkLabel1.LinkVisited = True

End Sub
End Class

Visual Basic 2008 Express Edition実践入門