【】Top

【】VB.NET
【】VB6.0

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






【】会社概要

【】お問い合わせ


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

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

アイネットマコト

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






マウスの左右ボタン判定をする

.NET でも、マウスの左右ボタン判定をすることが可能です。

この機能を使えば、左クリックの機能、右クリックの機能を
作成することができます。

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


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

1.フォームに、ラベルコントロールを配置します。
    (デフォルトのオブジェクトの名前 Label1)

2.フォームで右クリックして、「コードの表示」を
  選び、コード編集画面にします。

3.コード編集画面で、編集画面上部にある2種類のドロップダウン
    のうち、左側のドロップダウンである、
    Form1が選択されているドロップダウンをクリックして、
    一覧を表示し、(Base Class Events) を選びます

4.コード編集画面で、編集画面上部にある2種類のドロップダウン
    のうち、右側のドロップダウンである、
    Declarationsが選択されているドロップダウンをクリックして、
    一覧を表示し、MouseDown を選びます

5.コードデザイナによって、自動的に、
  イベントプロシージャが作成されます。
  次のコードを記述します。

    Private Sub Form1_MouseDown(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.MouseEventArgs _
        ) Handles MyBase.MouseDown
        Select Case e.Button
            Case MouseButtons.Right
                Label1.Text = "右クリック"
            Case MouseButtons.Left
                Label1.Text = "左クリック"
            Case MouseButtons.Middle
                Label1.Text = "中央ボタン"
            Case MouseButtons.XButton1
                'Windows2000から5ボタンサポート
                Label1.Text = "ブラウザ戻る"
            Case MouseButtons.XButton2
                'Windows2000から5ボタンサポート
                Label1.Text = "ブラウザ進む"
            Case MouseButtons.None
                Label1.Text = "なし"

        End Select
    End Sub



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

7.フォームを左クリックしてみます。

8.ラベルに「左クリック」と表示されます。

9.フォームを右クリックしてみます。

10.ラベルに「右クリック」と表示されます。



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

Windows2000よりサポートされたマウス5ボタンも
もちろん、認識できます。

MouseButtons.Right     '右
MouseButtons.Left      '左
MouseButtons.Middle    'スクロールや決定
MouseButtons.XButton1  'ブラウザ戻る
MouseButtons.XButton2  'ブラウザ進む

アプリケーションを操作するユーザーが初心者の場合は、
左クリックが中心にオペレーションするかと思いますが、
慣れてきたユーザーは、その効率性への欲求不満が生じてきますねっ。

そこで、右クリックが重宝してくるかと思います。
右クリックで利便性を高めておく事で、
そのアプリケーションの使い勝手がいい方向に変わっていくと思います。




 

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

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

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