Re[2]: Перехват событий мышки
От: skydion  
Дата: 14.07.06 06:38
Оценка:
Здравствуйте, DarkSid, Вы писали:

DS>Здравствуйте, skydion, Вы писали:


S>>Привет всем.


S>>Вот возник вопрос, а как перехватывать собитие MouseDoubleClick когда есть перехватчики на MouseClick, MouseDown, MouseUp? Выходит так что сначал сработает MouseDown и в MouseDoubleClick уже ничего не прийдет? Как побороть такую ситуацию?


S>>Спасибо!



DS> private void textBox3_MouseDown(object sender, MouseEventArgs e)

DS> {
DS> textBox2.Text += "Down" + Environment.NewLine;
DS> }

DS> private void textBox3_MouseUp(object sender, MouseEventArgs e)

DS> {
DS> textBox2.Text += "Up" + Environment.NewLine;
DS> }

DS> private void textBox3_MouseClick(object sender, MouseEventArgs e)

DS> {
DS> textBox2.Text += "Click" + Environment.NewLine;
DS> }

DS> private void textBox3_MouseDoubleClick(object sender, MouseEventArgs e)

DS> {
DS> textBox2.Text += "DoubleClick" + Environment.NewLine;


DS>Все работает

DS> }


А у меня другая ситуация

Public Class Form1
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
Debug.Print("Click")
End Sub

Private Sub Form1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
Debug.Print("DoubleClick")
End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Debug.Print("Down")
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Debug.Print("MouseUp")
End Sub
End Class

при щелчке кнопки выдает:

Down
Click
MouseUp


при двойном щелчке выдает:

Down
Click
MouseUp
Down
DoubleClick
MouseUp

это так вот как попасть прямо в MouseClick или MouseDoubleClick при этом не теряя возможности при необходимость попасть в MouseDown или MouseUp?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.