उसी तत्व पर माउसडाउन ईवेंट के बाद इवेंट फायर को डबलक्लिक क्यों नहीं करता है?

Question

मेरे पास एक मूसडाउन घटना है और नियंत्रण पर ईवेंट पर क्लिक करें। mousedown घटना ड्रैगड्रोप ऑपरेशन शुरू करने के लिए प्रयोग किया जाता है। मैं जिस नियंत्रण का उपयोग कर रहा हूं वह एक डर्लिस्टबॉक्स है।

Private Sub Dir1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dir1.MouseDown 

    Dim lab As New Label 
    lab.Text = Dir1.DirList(Dir1.DirListIndex) 
    lab.DoDragDrop(lab, DragDropEffects.Copy) 

End Sub 

लेकिन जब मैं नियंत्रण पर क्लिक करता हूं तो केवल मूसडाउन घटना आग लगती है, ईवेंट पर आग नहीं मिलती है। अगर मैं mousedown घटना में "lab.DoDragDrop (प्रयोगशाला, DragDropEffects.Copy)" टिप्पणी करता हूं तो ईवेंट को आग लगती है पर क्लिक करें। मैं क्या कर सकता हूं ताकि जब मैं नियंत्रण पर क्लिक करता हूं तो दोनों mousedown और क्लिक ईवेंट आग लग जाती है?

Answer 1

यह डिज़ाइन द्वारा है। माउसडाउन इवेंट माउस को कैप्चर करता है, कंट्रोल। कैप्चर प्रॉपर्टी। अंतर्निहित माउसअप इवेंट हैंडलर जांचता है कि क्या माउस अभी भी कब्जा कर लिया गया है और माउस बहुत दूर नहीं चला है, फिर क्लिक ईवेंट को निकाल देता है। समस्या यह है कि DoDragDrop() को कॉल करना माउस कैप्चर रद्द कर देगा। अनिवार्य रूप से इसलिए चूंकि माउस ईवेंट अब ड्रैग + ड्रॉप ऑपरेशन को लागू करने के लिए उपयोग किए जाते हैं। तो आपको क्लिक न करें और डबलक्लिक ईवेंट कभी नहीं मिलेगा।

नियंत्रण दोनों को क्लिक करने की आवश्यकता है और ड्रैग + ड्रॉप एक उपयोगिता समस्या है। यह ठीक करने योग्य है, हालांकि, आपको यह सुनिश्चित करना है कि उपयोगकर्ता ने माउस को मूल माउस डाउन स्थान से स्थानांतरित कर दिया है, फिर ड्रैग शुरू करें। इस तरह अपने कोड को ऐसा रूप दें:

Private MouseDownPos As Point 

Private Sub Dir1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dir1.MouseDown 
    MouseDownPos = e.Location 
End Sub 

Private Sub Dir1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Dir1.MouseMove 
    If e.Button And MouseButtons.Left = MouseButtons.Left Then 
     Dim dx = e.X - MouseDownPos.X 
     Dim dy = e.Y - MouseDownPos.Y 
     If Math.Abs(dx) >= SystemInformation.DoubleClickSize.Width OrElse _ 
      Math.Abs(dy) >= SystemInformation.DoubleClickSize.Height Then 
      '' Start the drag here 
      ''... 
     End If 
    End If 
End Sub 

Answer 2

जो खींचें के साथ सी # संस्करण की जरूरत के लिए

और ड्रॉप

private Point MouseDownPos; 
    private void dataGridView1_MouseDown(System.Object sender, System.Windows.Forms.MouseEventArgs e) 
    { 
     MouseDownPos = e.Location; 
    } 

    private void dataGridView1_MouseMove(System.Object sender, System.Windows.Forms.MouseEventArgs e) 
    { 
     if (e.Button == MouseButtons.Left) 
     { 
      dynamic dx = e.X - MouseDownPos.X; 
      dynamic dy = e.Y - MouseDownPos.Y; 
      if (Math.Abs(dx) >= SystemInformation.DoubleClickSize.Width || Math.Abs(dy) >= SystemInformation.DoubleClickSize.Height) 
      { 
       DataGridView.HitTestInfo info = dataGridView1.HitTest(e.X, e.Y); 
       if (info.RowIndex >= 0) 
       { 
        DataRowView view = (DataRowView) 
          dataGridView1.Rows[info.RowIndex].DataBoundItem; 

        if (view != null) 
         dataGridView1.DoDragDrop(view, DragDropEffects.Move); 

       } 
      } 
     } 
    }