【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






マウスをあわせたときだけ下線表示させる

【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、マウスをあわせたときだけ下線表示させることが可能です。

この機能を使えば、簡単に、
ブラウザのようなリンク動作の振る舞いを持たせたアプリケーション
を作成することが可能です。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、ボタンコントロール、
    リンクラベルコントロール
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━━┓
   ┃LinkLabel1     ┃
   ┗━━━━━━━━┛

   ┏━━━━━━━━┓
   ┃Button1      ┃
   ┗━━━━━━━━┛


2.ボタンコントロールの
    Button1 text プロパティに「終了」と記述します。

  ※説明用のためです。必須ではありません。

   ┏━━━━━━━━┓
   ┃LinkLabel1     ┃
   ┗━━━━━━━━┛

   ┏━━━━━━━━┓
   ┃終了         ┃
   ┗━━━━━━━━┛



3.フォームをダブルクリックして、
    フォームロードイベントのコード編集を開始して、
    次のコードを記述します。


    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



4.ビルドして実行します。

5.フォームに青字で「バーチャルコネクション」と表示された
    リンクにマウスを移動させます。

6.下線が表示されることを確認できます。





-----------VB.NETコーディングここまで-------------------

本サンプルでは、URL を指定することによって、
サイトを表示させようとしています。

LinkClicked イベントには、URL を表示させる
記述だけではなく、通常のボタン等と同じような機能として
動作させることで、ブラウザのリンクをクリックして
画面遷移をしているような振る舞いが簡単に実現できます。




 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=Ou7

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/08/22(水)00:05 更新