マウスをあわせたときだけ下線表示させる 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、マウスをあわせたときだけ下線表示させることが可能です。この機能を使えば、簡単に、ブラウザのようなリンク動作の振る舞いを持たせたアプリケーションを作成することが可能です。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、ボタンコントロール、 リンクラベルコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━┓ ┃LinkLabel1 ┃ ┗━━━━━━━━┛ ┏━━━━━━━━┓ ┃Button1 ┃ ┗━━━━━━━━┛２．ボタンコントロールの Button1 text プロパティに「終了」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━┓ ┃LinkLabel1 ┃ ┗━━━━━━━━┛ ┏━━━━━━━━┓ ┃終了 ┃ ┗━━━━━━━━┛３．フォームをダブルクリックして、 フォームロードイベントのコード編集を開始して、 次のコードを記述します。 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'マウスを重ねたときだけ下線をつける LinkLabel1.LinkBehavior = LinkBehavior.HoverUnderline 'リンクさせる文字列をセット LinkLabel1.Text = "バーチャルコネクション" LinkLabel1.AutoSize = True 'リンクをクリックしたときの色 LinkLabel1.VisitedLinkColor = System.Drawing.Color.DarkRed '初期フォーカス Button1.TabIndex = 0 End Sub Private Sub LinkLabel1_LinkClicked(_ ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _ Handles LinkLabel1.LinkClicked 'このリンクをクリックしたときの動作 Try System.Diagnostics.Process.Start("http://anetm.com/m/") Catch ex As Exception MsgBox("表示させることが出来ません") End Try End Sub４．ビルドして実行します。５．フォームに青字で「バーチャルコネクション」と表示された リンクにマウスを移動させます。６．下線が表示されることを確認できます。-----------VB.NETコーディングここまで-------------------本サンプルでは、URL を指定することによって、サイトを表示させようとしています。LinkClicked イベントには、URL を表示させる記述だけではなく、通常のボタン等と同じような機能として動作させることで、ブラウザのリンクをクリックして画面遷移をしているような振る舞いが簡単に実現できます。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
