11

コントロールにmousedownイベントとクリックイベントがあります。mousedownイベントは、ドラッグドロップ操作を開始するために使用されます。私が使用しているコントロールはDirlistboxです。

 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イベントのみが発生し、クリックイベントは発生しません。mousedownイベントで「lab.DoDragDrop（lab、DragDropEffects.Copy）」とコメントアウトすると、クリックイベントが発生します。コントロールをクリックしたときにmousedownイベントとclickイベントの両方が発生するようにするにはどうすればよいですか？

4

2 に答える 2

27

これは仕様によるものです。MouseDownイベントは、マウスのControl.Captureプロパティをキャプチャします。組み込みのMouseUpイベントハンドラーは、マウスがまだキャプチャされていて、マウスが移動しすぎていないかどうかを確認してから、Clickイベントを発生させます。問題は、DoDragDrop（）を呼び出すとマウスのキャプチャがキャンセルされることです。ドラッグアンドドロップ操作を実装するためにマウスイベントが使用されるようになったため、必然的にそうなります。そのため、ClickイベントやDoubleClickイベントが発生することはありません。

クリックとドラッグアンドドロップの両方に応答する必要があるコントロールは、使いやすさの問題です。修正可能ですが、ユーザーが元のマウスの下の位置からマウスを十分に動かしたことを確認してから、ドラッグを開始する必要があります。コードを次のようにします。

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
于 2013-02-06T15:39:45.533 に答える
3

ドラッグアンドドロップでC＃バージョンが必要な人のために

    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);

                }
            }
        }
    }
于 2017-03-26T21:27:29.223 に答える