LinkLabel.LinkVisited プロパティ
リンク先に移動したことがあることを示すようにリンクを表示するかどうかを示す値を取得または設定します。
Public Property LinkVisited As Boolean
[C#]
public bool LinkVisited {get; set;}
[C++]
public: __property bool get_LinkVisited();public: __property void set_LinkVisited(bool);
[JScript]
public function get LinkVisited() : Boolean;public function set LinkVisited(Boolean);
プロパティ値
リンク先に移動したことがあることを示すようにリンクを表示する場合は true 。それ以外の場合は false 。既定値は false です。
解説
LinkLabel コントロールは、リンク先に移動したことがあるかどうかを自動的には示しません。リンク先に移動したことがあるリンクとして表示するには、 LinkLabel の LinkClicked イベントのイベント ハンドラで、このプロパティの値を true に設定します。リンク先に移動したことがあるリンクは、 LinkLabel コントロールの VisitedLinkColor プロパティで指定された色を使用して表示されます。 LinkLabel コントロールを格納しているフォームが閉じると、リンクに関連付けられているすべての表示状態は削除されます。リンクの表示状態を維持するためには、アプリケーションに関連付けられているレジストリ設定にリンクの表示状態を格納しておく必要があります。
メモ このプロパティは、 LinkLabel コントロールで定義した最初のリンクにだけ影響します。コントロールで複数のリンクを指定している場合は、 LinkLabel.Link クラスの Visited プロパティを使用します。 Links プロパティを使用すると、 LinkLabel で定義されているすべてのリンクにアクセスできます。
使用例
LinkBehavior 列挙体を使用して LinkBehavior プロパティを設定する例を次に示します。 LinkColor プロパティ、 Text プロパティおよび LinkVisited プロパティの設定例も示します。この例を実行するには、空のフォームにこのコードを配置して、フォームのコンストラクタまたは Load メソッドから InitializeLinkLabel を呼び出します。
[SampleID='System.Windows.Forms.LinkLabelExample' SnippetID='1']
--------- Languages displayed= cs, vb ---------
--------- cs ---------
--------- Snippet 1 ---------
// Declare the LinkLabel object.
internal System.Windows.Forms.LinkLabel LinkLabel1;
// Declare keywords array to identify links
string[] keywords;
private void InitializeLinkLabel()
{
this.LinkLabel1 = new System.Windows.Forms.LinkLabel();
// Set the location, name and size.
this.LinkLabel1.Location = new System.Drawing.Point(10, 20);
this.LinkLabel1.Name = "CompanyLinks";
this.LinkLabel1.Size = new System.Drawing.Size(104, 150);
// Set the LinkBehavior property to show underline when mouse
// hovers over the links.
this.LinkLabel1.LinkBehavior = System.Windows.Forms.LinkBehavior.HoverUnderline;
string textString = "For more information see our" +
" company website or the research page at Contoso Ltd. ";
// Set the text property.
this.LinkLabel1.Text = textString;
// Set the color of the links to black, unless the mouse
// is hovering over a link.
this.LinkLabel1.LinkColor = System.Drawing.Color.Black;
this.LinkLabel1.ActiveLinkColor = System.Drawing.Color.Blue;
// Associate the event-handling method with the LinkClicked
// event.
this.LinkLabel1.LinkClicked +=
new LinkLabelLinkClickedEventHandler(LinkLabel1_LinkClicked);
// Add links to the LinkCollection using starting index and
// length of keywords.
keywords = new string[]{"company", "research"};
foreach ( string keyword in keywords )
{
this.LinkLabel1.Links.Add(textString.IndexOf(keyword), keyword.Length);
}
// Add the label to the form.
this.Controls.Add(this.LinkLabel1);
}
private void LinkLabel1_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
string url = "";
// Determine which link was clicked and set the appropriate url.
switch(LinkLabel1.Links.IndexOf(e.Link))
{
case 0:
url = "www.microsoft.com";
break;
case 1:
url = "www.contoso.com/research";
break;
}
// Set the visited property to True. This will change
// the color of the link.
e.Link.Visited = true;
// Open Internet Explorer to the correct url.
System.Diagnostics.Process.Start("IExplore.exe", url);
}
--------- vb ---------
--------- Snippet 1 ---------
' Declare the LinkLabel object.
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
' Declare keywords array to identify links
Dim keywords() As String
Private Sub InitializeLinkLabel()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
' Set the location, name and size.
Me.LinkLabel1.Location = New System.Drawing.Point(10, 20)
Me.LinkLabel1.Name = "CompanyLinks"
Me.LinkLabel1.Size = New System.Drawing.Size(104, 150)
' Set the LinkBehavior property to show underline when mouse
' hovers over the links.
Me.LinkLabel1.LinkBehavior = _
System.Windows.Forms.LinkBehavior.HoverUnderline
Dim textString As String = "For more information see our" & _
" company website or the research page at Contoso Ltd. "
' Set the text property.
Me.LinkLabel1.Text = textString
' Set the color of the links to black, unless the mouse
' is hovering over a link.
Me.LinkLabel1.LinkColor = System.Drawing.Color.Black
Me.LinkLabel1.ActiveLinkColor = System.Drawing.Color.Blue
' Add links to the LinkCollection using starting index and
' length of keywords.
keywords = New String() {"company", "research"}
Dim keyword As String
For Each keyword In keywords
Me.LinkLabel1.Links.Add(textString.IndexOf(keyword), keyword.Length)
Next
' Add the label to the form.
Me.Controls.Add(Me.LinkLabel1)
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As Object,
ByVal e As LinkLabelLinkClickedEventArgs)
Handles LinkLabel1.LinkClicked
Dim url As String
' Determine which link was clicked and set the appropriate url.
Select Case LinkLabel1.Links.IndexOf(e.Link)
Case 0
url = "www.microsoft.com"
Case 1
url = "www.contoso.com/research"
End Select
' Set the visited property to True. This will change
' the color of the link.
e.Link.Visited = True
' Open Internet Explorer to the correct url.
System.Diagnostics.Process.Start("IExplore.exe", url)
End Sub
必要条件
プラットフォーム: Windows 98, Windows NT 4.0, Windows Millennium Edition, Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 ファミリ