次の方法で共有


方法 : クリックとダブルクリックを識別する

通常、単一のクリックによってユーザー インターフェイス (UI) のアクションが開始され、ダブルクリックによってそのアクションが拡張されます。 たとえば、通常、1 回のクリックで項目が選択され、ダブルクリックでその項目が編集されます。 ただし、Windows フォームのクリック イベントでは、クリックとダブルクリックによって矛盾するアクションが実行されるようなシナリオには簡単に対応できません。それは、Click イベントや MouseClick イベントに結び付けられたアクションが、DoubleClick イベントや MouseDoubleClick イベントに結び付けられたアクションの前に実行されるためです。 ここでは、この問題の 2 つの解決方法について説明します。 1 つの解決方法は、ダブルクリック イベントを処理し、クリック イベントの処理でアクションをロールバックすることです。 まれに、クリック動作およびダブルクリック動作のシミュレートが必要になることがあります。その場合は、MouseDown イベントを処理し、SystemInformation クラスの DoubleClickTime プロパティと DoubleClickSize プロパティを使用します。 クリック間の時間を測定し、DoubleClickTime の値に到達する前に 2 回目のクリックが発生しており、かつ DoubleClickSize によって定義された四角形内でクリックが行われている場合は、ダブルクリック アクションが実行されます。それ以外の場合は、クリック アクションが実行されます。

クリック アクションをロールバックするには

  • 使用中のコントロールに標準のダブルクリック動作が含まれることを確認します。 含まれない場合は、SetStyle メソッドを使用してコントロールを有効にします。 ダブルクリック イベントを処理して、クリック アクションとダブルクリック アクションをロールバックします。 ダブルクリックが有効になっているカスタム ボタンを作成する方法と、ダブルクリック イベント処理コード内でクリック アクションをロールバックする方法を次のコード例に示します。

    Imports System
    Imports System.ComponentModel
    Imports System.Drawing
    Imports System.Text
    Imports System.Windows.Forms
    
    
    
    Public Class Form1
        Inherits Form
        Private WithEvents button1 As DoubleClickButton
        Private initialStyle As FormBorderStyle
    
        Public Sub New() 
            Me.SuspendLayout()
            initialStyle = Me.FormBorderStyle
            Me.ClientSize = New System.Drawing.Size(292, 266)
            button1 = New DoubleClickButton()
            button1.Location = New Point(40, 40)
            button1.AutoSize = True
            button1.Text = "Click or Double Click"
            Me.Controls.Add(button1)
            Me.Name = "Form1"
            Me.ResumeLayout(False)
            Me.PerformLayout()
    
        End Sub 'New
    
    
        ' Handle the double click event.
        Private Sub button1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) _
            Handles button1.DoubleClick
    
            ' Change the border style back to the initial style.
            Me.FormBorderStyle = initialStyle
            MessageBox.Show("Rolled back single click change.")
    
        End Sub
    
    
        ' Handle the click event.
        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
             Handles button1.Click
    
            Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
    
        End Sub
    
    
        <STAThread()> _
        Shared Sub Main()
            Application.EnableVisualStyles()
            Application.Run(New Form1())
    
        End Sub
    End Class
    
    Public Class DoubleClickButton
        Inherits Button
    
        Public Sub New() 
            ' Set the style so a double click event occurs.
            SetStyle(ControlStyles.StandardClick Or ControlStyles.StandardDoubleClick, True)
    
        End Sub 'New
    End Class 'DoubleClickButton
    
    using System;
    using System.ComponentModel;
    using System.Drawing;
    using System.Text;
    using System.Windows.Forms;
    
    namespace MouseRollBackSingleClick
    {
        public class Form1 : Form
        {
            private DoubleClickButton button1;
            private FormBorderStyle initialStyle;
    
            public Form1()
            {
                initialStyle = this.FormBorderStyle;
                this.ClientSize = new System.Drawing.Size(292, 266);
                button1 = new DoubleClickButton();
                button1.Location = new Point (40,40);
                button1.Click += new EventHandler(button1_Click);
                button1.AutoSize = true;
                this.AllowDrop = true;
                button1.Text = "Click or Double Click";
                button1.DoubleClick += new EventHandler(button1_DoubleClick);
                this.Controls.Add(button1);
    
            }
    
    
            // Handle the double click event.
            void button1_DoubleClick(object sender, EventArgs e)
            {
                // Change the border style back to the initial style.
                this.FormBorderStyle = initialStyle;
                MessageBox.Show("Rolled back single click change.");
            }
    
            // Handle the click event.
            void button1_Click(object sender, EventArgs e)
            {
                this.FormBorderStyle = FormBorderStyle.FixedToolWindow;
            }
    
            [STAThread]
            static void Main()
            {
                Application.EnableVisualStyles();
                Application.Run(new Form1());
            }
    
    
        }
        public class DoubleClickButton : Button
        {
            public DoubleClickButton() : base()
            {
                // Set the style so a double click event occurs.
                SetStyle(ControlStyles.StandardClick | 
                    ControlStyles.StandardDoubleClick, true);
            }
        }
    }
    

MouseDown イベントでのクリックを識別するには

  • MouseDown イベントを処理し、適切な SystemInformation プロパティと Timer コンポーネントを使用して、クリックが発生した場所および間隔を確認します。 クリックとダブルクリックのどちらが発生したかに応じて、適切なアクションを実行します。 これを行う方法を次のコード例に示します。

    Imports System
    Imports System.Drawing
    Imports System.Windows.Forms
    
    Namespace SingleVersusDoubleClick
    
        Class Form1
            Inherits Form
            Private hitTestRectangle As New Rectangle()
            Private doubleClickRectangle As New Rectangle()
            Private textBox1 As New TextBox()
            Private WithEvents doubleClickTimer As New Timer()
            Private doubleClickBar As New ProgressBar()
            Private label1 As New Label()
            Private label2 As New Label()
            Private isFirstClick As Boolean = True
            Private isDoubleClick As Boolean = False
            Private milliseconds As Integer = 0
    
            <STAThread()> _
            Public Shared Sub Main()
                Application.EnableVisualStyles()
                Application.Run(New Form1())
            End Sub
    
            Public Sub New()
                label1.Location = New Point(30, 5)
                label1.Size = New Size(100, 15)
                label1.Text = "Hit test rectangle:"
    
                label2.Location = New Point(30, 70)
                label2.Size = New Size(100, 15)
                label2.Text = "Double click timer:"
    
                hitTestRectangle.Location = New Point(30, 20)
                hitTestRectangle.Size = New Size(100, 40)
                doubleClickTimer.Interval = 100
    
                doubleClickBar.Location = New Point(30, 85)
                doubleClickBar.Minimum = 0
                doubleClickBar.Maximum = SystemInformation.DoubleClickTime
    
                textBox1.Location = New Point(30, 120)
                textBox1.Size = New Size(200, 100)
                textBox1.AutoSize = False
                textBox1.Multiline = True
    
                Me.Controls.Add(doubleClickBar)
                Me.Controls.Add(textBox1)
                Me.Controls.Add(label1)
                Me.Controls.Add(label2)
            End Sub
    
            ' Detect a valid single click or double click.
            Sub Form1_MouseDown(ByVal sender As Object, _
                ByVal e As MouseEventArgs) Handles Me.MouseDown
    
                ' Verify that the mouse click is in the main hit
                ' test rectangle.
                If Not hitTestRectangle.Contains(e.Location) Then
                    Return
                End If
    
                ' This is the first mouse click.
                If isFirstClick = True Then
                    isFirstClick = False
    
                    ' Determine the location and size of the double click 
                    ' rectangle to draw around the cursor point.
                    doubleClickRectangle = New Rectangle( _
                        e.X - (SystemInformation.DoubleClickSize.Width / 2), _
                        e.Y - (SystemInformation.DoubleClickSize.Height / 2), _
                        SystemInformation.DoubleClickSize.Width, _
                        SystemInformation.DoubleClickSize.Height)
                    Invalidate()
    
                    ' Start the double click timer.
                    doubleClickTimer.Start()
    
                ' This is the second mouse click.
                Else
                    ' Verify that the mouse click is within the double click
                    ' rectangle and is within the system-defined double 
                    ' click period.
                    If doubleClickRectangle.Contains(e.Location) And _
                        milliseconds < SystemInformation.DoubleClickTime Then
                        isDoubleClick = True
                    End If
                End If
            End Sub
    
            Sub doubleClickTimer_Tick(ByVal sender As Object, _
                ByVal e As EventArgs) Handles doubleClickTimer.Tick
    
                milliseconds += 100
                doubleClickBar.Increment(100)
    
                ' The timer has reached the double click time limit.
                If milliseconds >= SystemInformation.DoubleClickTime Then
                    doubleClickTimer.Stop()
    
                    If isDoubleClick Then
                        textBox1.AppendText("Perform double click action")
                        textBox1.AppendText(Environment.NewLine)
                    Else
                        textBox1.AppendText("Perform single click action")
                        textBox1.AppendText(Environment.NewLine)
                    End If
    
                    ' Allow the MouseDown event handler to process clicks again.
                    isFirstClick = True
                    isDoubleClick = False
                    milliseconds = 0
                    doubleClickBar.Value = 0
                End If
            End Sub
    
            ' Paint the hit test and double click rectangles.
            Sub Form1_Paint(ByVal sender As Object, _
                ByVal e As PaintEventArgs) Handles Me.Paint
    
                ' Draw the border of the main hit test rectangle.
                e.Graphics.DrawRectangle(Pens.Black, hitTestRectangle)
    
                ' Fill in the double click rectangle.
                e.Graphics.FillRectangle(Brushes.Blue, doubleClickRectangle)
            End Sub
        End Class
    End Namespace
    
    using System;
    using System.Drawing;
    using System.Windows.Forms;
    
    namespace SingleVersusDoubleClick
    {
        class Form1 : Form
        {
            private Rectangle hitTestRectangle = new Rectangle();
            private Rectangle doubleClickRectangle = new Rectangle();
            private TextBox textBox1 = new TextBox();
            private Timer doubleClickTimer = new Timer();
            private ProgressBar doubleClickBar = new ProgressBar();
            private Label label1 = new Label();
            private Label label2 = new Label();
            private bool isFirstClick = true;
            private bool isDoubleClick = false;
            private int milliseconds = 0;
    
            [STAThread]
            public static void Main()
            {
                Application.EnableVisualStyles();
                Application.Run(new Form1());
            }
    
            public Form1()
            {
                label1.Location = new Point(30, 5);
                label1.Size = new Size(100, 15);
                label1.Text = "Hit test rectangle:";
    
                label2.Location = new Point(30, 70);
                label2.Size = new Size(100, 15);
                label2.Text = "Double click timer:";
    
                hitTestRectangle.Location = new Point(30, 20);
                hitTestRectangle.Size = new Size(100, 40);
    
                doubleClickTimer.Interval = 100;
                doubleClickTimer.Tick +=
                    new EventHandler(doubleClickTimer_Tick);
    
                doubleClickBar.Location = new Point(30, 85);
                doubleClickBar.Minimum = 0;
                doubleClickBar.Maximum = SystemInformation.DoubleClickTime;
    
                textBox1.Location = new Point(30, 120);
                textBox1.Size = new Size(200, 100);
                textBox1.AutoSize = false;
                textBox1.Multiline = true;
    
                this.Paint += new PaintEventHandler(Form1_Paint);
                this.MouseDown += new MouseEventHandler(Form1_MouseDown);
                this.Controls.AddRange(new Control[] { doubleClickBar, textBox1, 
                    label1, label2 });
            }
    
            // Detect a valid single click or double click.
            void Form1_MouseDown(object sender, MouseEventArgs e)
            {
                // Verify that the mouse click is in the main hit
                // test rectangle.
                if (!hitTestRectangle.Contains(e.Location))
                {
                    return;
                }
    
                // This is the first mouse click.
                if (isFirstClick)
                {
                    isFirstClick = false;
    
                    // Determine the location and size of the double click 
                    // rectangle area to draw around the cursor point.
                    doubleClickRectangle = new Rectangle(
                        e.X - (SystemInformation.DoubleClickSize.Width / 2),
                        e.Y - (SystemInformation.DoubleClickSize.Height / 2),
                        SystemInformation.DoubleClickSize.Width,
                        SystemInformation.DoubleClickSize.Height);
                    Invalidate();
    
                    // Start the double click timer.
                    doubleClickTimer.Start();
                }
    
                // This is the second mouse click.
                else
                {
                    // Verify that the mouse click is within the double click
                    // rectangle and is within the system-defined double 
                    // click period.
                    if (doubleClickRectangle.Contains(e.Location) &&
                        milliseconds < SystemInformation.DoubleClickTime)
                    {
                        isDoubleClick = true;
                    }
                }
            }
    
            void doubleClickTimer_Tick(object sender, EventArgs e)
            {
                milliseconds += 100;
                doubleClickBar.Increment(100);
    
                // The timer has reached the double click time limit.
                if (milliseconds >= SystemInformation.DoubleClickTime)
                {
                    doubleClickTimer.Stop();
    
                    if (isDoubleClick)
                    {
                        textBox1.AppendText("Perform double click action");
                        textBox1.AppendText(Environment.NewLine);
                    }
                    else
                    {
                        textBox1.AppendText("Perform single click action");
                        textBox1.AppendText(Environment.NewLine);
                    }
    
                    // Allow the MouseDown event handler to process clicks again.
                    isFirstClick = true;
                    isDoubleClick = false;
                    milliseconds = 0;
                    doubleClickBar.Value = 0;
                }
            }
    
            // Paint the hit test and double click rectangles.
            void Form1_Paint(object sender, PaintEventArgs e)
            {
                // Draw the border of the main hit test rectangle.
                e.Graphics.DrawRectangle(Pens.Black, hitTestRectangle);
    
                // Fill in the double click rectangle.
                e.Graphics.FillRectangle(Brushes.Blue, doubleClickRectangle);
            }
        }
    }
    
    #using <System.Drawing.dll>
    #using <System.Windows.Forms.dll>
    #using <System.dll>
    
    using namespace System;
    using namespace System::Drawing;
    using namespace System::Windows::Forms;
    
    namespace SingleVersusDoubleClick
    {
        public ref class Form1 : public Form
        {
        private:
            Rectangle hitTestRectangle;
        private:
            Rectangle doubleClickRectangle;
        private:
            TextBox^ outputBox;
        private:
            Timer^ doubleClickTimer;
        private:
            ProgressBar^ doubleClickBar;
        private:
            Label^ hitTestLabel;
        private:
            Label^ timerLabel;
        private:
            bool isFirstClick;
        private:
            bool isDoubleClick;
        private:
            int milliseconds;
    
        public:
            Form1()
            {
                hitTestRectangle = Rectangle();
                hitTestRectangle.Location = Point(30, 20);
                hitTestRectangle.Size = System::Drawing::Size(100, 40);
    
                doubleClickRectangle = Rectangle();
    
                outputBox = gcnew TextBox();
                outputBox->Location = Point(30, 120);
                outputBox->Size = System::Drawing::Size(200, 100);
                outputBox->AutoSize = false;
                outputBox->Multiline = true;
    
                doubleClickTimer = gcnew Timer();
                doubleClickTimer->Interval = 100;
                doubleClickTimer->Tick +=
                    gcnew EventHandler(this, &Form1::doubleClickTimer_Tick);
    
                doubleClickBar = gcnew ProgressBar();
                doubleClickBar->Location = Point(30, 85);
                doubleClickBar->Minimum = 0;
                doubleClickBar->Maximum = SystemInformation::DoubleClickTime;
    
                hitTestLabel = gcnew Label();
                hitTestLabel->Location = Point(30, 5);
                hitTestLabel->Size = System::Drawing::Size(100, 15);
                hitTestLabel->Text = "Hit test rectangle:";
    
                timerLabel = gcnew Label();
                timerLabel->Location = Point(30, 70);
                timerLabel->Size = System::Drawing::Size(100, 15);
                timerLabel->Text = "Double click timer:";
    
                isFirstClick = true;
    
                this->Paint += gcnew PaintEventHandler(this, &Form1::Form1_Paint);
                this->MouseDown += 
                    gcnew MouseEventHandler(this, &Form1::Form1_MouseDown);
                this->Controls->
                    AddRange(gcnew array<Control^> { doubleClickBar, outputBox,
                    hitTestLabel, timerLabel });
            }
    
            // Detect a valid single click or double click.
        private:
            void Form1_MouseDown(Object^ sender, MouseEventArgs^ e)
            {
                // Verify that the mouse click is in the main hit
                // test rectangle.
                if (!hitTestRectangle.Contains(e->Location))
                {
                    return;
                }
    
                // This is the first mouse click.
                if (isFirstClick)
                {
                    isFirstClick = false;
    
                    // Determine the location and size of the double click
                    // rectangle area to draw around the cursor point.
                    doubleClickRectangle = Rectangle(
                        e->X - (SystemInformation::DoubleClickSize.Width / 2),                    
                        e->Y - (SystemInformation::DoubleClickSize.Height / 2),                    
                        SystemInformation::DoubleClickSize.Width,                    
                        SystemInformation::DoubleClickSize.Height);
                    Invalidate();
    
                    // Start the double click timer.
                    doubleClickTimer->Start();
                }
    
                // This is the second mouse click.
                else
                {
                    // Verify that the mouse click is within the double click
                    // rectangle and is within the system-defined double
                    // click period.
                    if (doubleClickRectangle.Contains(e->Location) &&
                        milliseconds < SystemInformation::DoubleClickTime)
                    {
                        isDoubleClick = true;
                    }
                }
            }
    
        private:
            void doubleClickTimer_Tick(Object^ sender, EventArgs^ e)
            {
                milliseconds += 100;
                doubleClickBar->Increment(100);
    
                // The timer has reached the double click time limit.
                if (milliseconds >= SystemInformation::DoubleClickTime)
                {
                    doubleClickTimer->Stop();
    
                    if (isDoubleClick)
                    {
                        outputBox->AppendText("Perform double click action");
                        outputBox->AppendText(Environment::NewLine);
                    }
                    else
                    {
                        outputBox->AppendText("Perform single click action");
                        outputBox->AppendText(Environment::NewLine);
                    }
    
                    // Allow the MouseDown event handler to process clicks again.
                    isFirstClick = true;
                    isDoubleClick = false;
                    milliseconds = 0;
                    doubleClickBar->Value = 0;
                }
            }
    
            // Paint the hit test and double click rectangles.
        private:
            void Form1_Paint(Object^ sender, PaintEventArgs^ e)
            {
                // Draw the border of the main hit test rectangle.
                e->Graphics->DrawRectangle(Pens::Black, hitTestRectangle);
    
                // Fill in the double click rectangle.
                e->Graphics->FillRectangle(Brushes::Blue, doubleClickRectangle);
            }
        };
    }
    
    
    [STAThread]
    int main()
    {
        Application::EnableVisualStyles();
        Application::Run(gcnew SingleVersusDoubleClick::Form1);
    }
    

コードのコンパイル

これらの例では、次の項目が必要です。

  • System、System.Drawing、System.Windows.Forms の各アセンブリへの参照。

Visual Basic または Visual C# のコマンド ラインからこの例をビルドする方法の詳細については、「コマンド ラインからのビルド (Visual Basic)」または「csc.exe を使用したコマンド ラインからのビルド」を参照してください。 Visual Studio で新しいプロジェクトにコードを貼り付けてこれらの例をビルドすることもできます。 詳細については 方法 : 完成した Windows フォーム コードの例を Visual Studio を使ってコンパイルして実行する および 方法 : 完成した Windows フォーム コードの例を Visual Studio を使ってコンパイルして実行する および 方法 : 完成した Windows フォーム コードの例を Visual Studio を使ってコンパイルして実行する および 方法 : 完成した Windows フォーム コードの例を Visual Studio を使ってコンパイルして実行する および 方法 : 完成した Windows フォーム コードの例を Visual Studio を使ってコンパイルして実行する.

参照

その他の技術情報

Windows フォーム アプリケーションにおけるマウス入力