VB2008コントロール使用例：リンクラベルでWebサイトを開く（LinkLabel）

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

コントロールの使用例へ


リンクに表示する文字は、Textプロパティに設定します。

リンク先は、Links.Addメソッドに設定します。
　■構文
　Links.Add（何文字目からリンクに設定するか、何文字目までリンクに設定するか、リンク先）

リンクラベルがクリックされた時、LinkClickedイベントが発生します。
LinkDataプロパティで取得し、System.Diagnostics.Process.Startでリンク先を開きます。

■ 実行画面
リンクラベル使用サンプルソフト

■ 実行コード

Public Class Form1

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

'リンク先を取得する
target = Me.LinkLabel1.Links(0).LinkData.ToString()
'リンク先を開く
System.Diagnostics.Process.Start(target)

End Sub

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

'表示するテキスト
Me.LinkLabel1.Text = "リンク先はここをクリックしてください"
'リンク先を追加
Me.LinkLabel1.Links.Add(5, 3, "www.feedsoft.net/vb/")
'リンク先に移動したことがあることを示すようにリンクを表示する
Me.LinkLabel1.LinkVisited = True

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'閉じる
Me.Close()

End Sub
End Class

Visual Basic 2008 Express Edition実践入門