Tıklamaları ve çift tıklamaları ayırt etme (Windows Forms .NET)
Genellikle tek tıklama bir kullanıcı arabirimi eylemi başlatır ve çift tıklama eylemi genişletir. Örneğin, tek tıklamayla genellikle bir öğe seçilir ve çift tıklama seçili öğeyi düzenler. Ancak, veya olayına bağlı bir eylem veya MouseClick olayına bağlı eylemden önce gerçekleştirildiğinden, Windows Forms tıklama olayları, tıklama ve çift tıklamanın Click uyumsuz eylemler gerçekleştirdiği bir senaryoya DoubleClick MouseDoubleClick kolayca uyum sağlamaz. Bu konu başlığında bu sorunun iki çözümü gösterilmektedir.
Bir çözüm, çift tıklama olayını işlemek ve tıklama olayını işlemedeki eylemleri geri almaktır. Nadir durumlarda, olayı işleyerek MouseDown ve sınıfının ve DoubleClickSize özelliklerini kullanarak tıklama ve çift tıklama davranışının benzetimini DoubleClickTime SystemInformation yapmanız gerekebilir. Tıklamalar arasındaki süreyi ölçersiniz ve değerine DoubleClickTime ulaşılana kadar ikinci bir tıklama gerçekleşirse ve tıklama tarafından DoubleClickSizetanımlanan bir dikdörtgen içindeyse, çift tıklama eylemini gerçekleştirirsiniz; aksi takdirde tıklama eylemini gerçekleştirin.
Tıklama eylemini geri almak için
Üzerinde çalıştığınız denetimin standart çift tıklama davranışına sahip olduğundan emin olun. Aksi takdirde, yöntemiyle SetStyle denetimi etkinleştirin. Çift tıklama olayını işleyin ve tıklama eyleminin yanı sıra çift tıklama eylemini geri alın. Aşağıdaki kod örneğinde, çift tıklama etkin bir özel düğmenin nasıl oluşturulacağı ve çift tıklama olay işleme kodundaki tıklama eyleminin nasıl geri alınacağı gösterilmektedir.
Bu kod örneği, çift tıklamaları etkinleştiren yeni bir düğme denetimi kullanır:
public partial class DoubleClickButton : Button
{
public DoubleClickButton()
{
// Set the style so a double click event occurs.
SetStyle(ControlStyles.StandardClick | ControlStyles.StandardDoubleClick, true);
}
}
Public Class DoubleClickButton : Inherits Button
Public Sub New()
SetStyle(ControlStyles.StandardClick Or ControlStyles.StandardDoubleClick, True)
End Sub
End Class
Aşağıdaki kodda, formun yeni düğme denetiminin tıklama veya çift tıklama temelinde kenarlık stilini nasıl değiştirdığı gösterilmektedir:
public partial class Form1 : Form
{
private FormBorderStyle _initialStyle;
private bool _isDoubleClicking;
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
_initialStyle = this.FormBorderStyle;
var button1 = new DoubleClickButton();
button1.Location = new Point(50, 50);
button1.Size = new Size(200, 23);
button1.Text = "Click or Double Click";
button1.Click += Button1_Click;
button1.DoubleClick += Button1_DoubleClick;
Controls.Add(button1);
}
private void Button1_DoubleClick(object sender, EventArgs e)
{
// This flag prevents the click handler logic from running
// A double click raises the click event twice.
_isDoubleClicking = true;
FormBorderStyle = _initialStyle;
}
private void Button1_Click(object sender, EventArgs e)
{
if (_isDoubleClicking)
_isDoubleClicking = false;
else
FormBorderStyle = FormBorderStyle.FixedToolWindow;
}
}
Partial Public Class Form1
Private _initialStyle As FormBorderStyle
Private _isDoubleClicking As Boolean
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim button1 As New DoubleClickButton
_initialStyle = FormBorderStyle
button1.Location = New Point(50, 50)
button1.Size = New Size(200, 23)
button1.Text = "Click or Double Click"
AddHandler button1.Click, AddressOf Button1_Click
AddHandler button1.DoubleClick, AddressOf Button1_DoubleClick
Controls.Add(button1)
End Sub
Private Sub Button1_DoubleClick(sender As Object, e As EventArgs)
' This flag prevents the click handler logic from running
' A double click raises the click event twice.
_isDoubleClicking = True
FormBorderStyle = _initialStyle
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs)
If _isDoubleClicking Then
_isDoubleClicking = False
Else
FormBorderStyle = FormBorderStyle.FixedToolWindow
End If
End Sub
End Class
Tıklamaları ayırt etmek için
Olayı işleyin MouseDown ve özelliğini ve bir Timer bileşeni kullanarak SystemInformation tıklamalar arasındaki konum ve zaman aralığını belirleyin. Tıklama veya çift tıklamanın gerçekleştirilip gerçekleşmediğine bağlı olarak uygun eylemi gerçekleştirin. Aşağıdaki kod örneğinde bunun nasıl yapılabilmesi gösterilmektedir.
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Windows.Forms;
namespace project
{
public partial class Form2 : Form
{
private DateTime _lastClick;
private bool _inDoubleClick;
private Rectangle _doubleClickArea;
private TimeSpan _doubleClickMaxTime;
private Action _doubleClickAction;
private Action _singleClickAction;
private Timer _clickTimer;
public Form2()
{
InitializeComponent();
_doubleClickMaxTime = TimeSpan.FromMilliseconds(SystemInformation.DoubleClickTime);
_clickTimer = new Timer();
_clickTimer.Interval = SystemInformation.DoubleClickTime;
_clickTimer.Tick += ClickTimer_Tick;
_singleClickAction = () => MessageBox.Show("Single clicked");
_doubleClickAction = () => MessageBox.Show("Double clicked");
}
private void Form2_MouseDown(object sender, MouseEventArgs e)
{
if (_inDoubleClick)
{
_inDoubleClick = false;
TimeSpan length = DateTime.Now - _lastClick;
// If double click is valid, respond
if (_doubleClickArea.Contains(e.Location) && length < _doubleClickMaxTime)
{
_clickTimer.Stop();
_doubleClickAction();
}
return;
}
// Double click was invalid, restart
_clickTimer.Stop();
_clickTimer.Start();
_lastClick = DateTime.Now;
_inDoubleClick = true;
_doubleClickArea = new Rectangle(e.Location - (SystemInformation.DoubleClickSize / 2),
SystemInformation.DoubleClickSize);
}
private void ClickTimer_Tick(object sender, EventArgs e)
{
// Clear double click watcher and timer
_inDoubleClick = false;
_clickTimer.Stop();
_singleClickAction();
}
}
}
Imports System.Drawing
Imports System.Windows.Forms
Public Class Form2
Private _lastClick As Date
Private _inDoubleClick As Boolean
Private _doubleClickArea As Rectangle
Private _doubleClickMaxTime As TimeSpan
Private _singleClickAction As Action
Private _doubleClickAction As Action
Private WithEvents _clickTimer As Timer
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_doubleClickMaxTime = TimeSpan.FromMilliseconds(SystemInformation.DoubleClickTime)
_clickTimer = New Timer()
_clickTimer.Interval = SystemInformation.DoubleClickTime
_singleClickAction = Sub()
MessageBox.Show("Single click")
End Sub
_doubleClickAction = Sub()
MessageBox.Show("Double click")
End Sub
End Sub
Private Sub Form2_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
If _inDoubleClick Then
_inDoubleClick = False
Dim length As TimeSpan = Date.Now - _lastClick
' If double click is valid, respond
If _doubleClickArea.Contains(e.Location) And length < _doubleClickMaxTime Then
_clickTimer.Stop()
Call _doubleClickAction()
End If
Return
End If
' Double click was invalid, restart
_clickTimer.Stop()
_clickTimer.Start()
_lastClick = Date.Now
_inDoubleClick = True
_doubleClickArea = New Rectangle(e.Location - (SystemInformation.DoubleClickSize / 2),
SystemInformation.DoubleClickSize)
End Sub
Private Sub SingleClickTimer_Tick(sender As Object, e As EventArgs) Handles _clickTimer.Tick
' Clear double click watcher and timer
_inDoubleClick = False
_clickTimer.Stop()
Call _singleClickAction()
End Sub
End Class
Ayrıca bkz.
.NET Desktop feedback