drag & drop (problème index du drop) entre deux datagrid

Version imprimable

17/04/2012, 21h59
ermips

drag & drop (problème index du drop) entre deux datagrid

Bonsoir
Je voudrais réaliser un drag drop entre deux datagrid : pas de problème pour déplacer un élément.Sauf que la ligne déplacée se positionne à la fin de du datagrid de destination.

Je voudrais pouvoir positionner l'article là où le bouton de la souris est relâché : et pour ça je voudrais récupérer la position de la souris.J’utilise DataGridView2.CellMouseUp, mais l’index renvoyé est celui de la ligne d’origine(drag) et pas celui du drop
Si vous avez une piste…
17/04/2012, 22h37
tomlev

Montre ton code

le code qui pose problème :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Public Class Form1
    Public Index As Integer
    Dim dt1 As DataTable
    Dim dt2 As DataTable
 
    Private Sub frmDataGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt1 = New DataTable
        dt2 = New DataTable
 
        dt1.Columns.Add("Source", Type.GetType("System.String"))
        dt2.Columns.Add("destination", Type.GetType("System.String"))
 
        Dim dr As DataRow
        dr = dt1.NewRow
        Dr("Source") = "Element 1"
        dt1.Rows.Add(dr)
        dr = dt1.NewRow
        Dr("Source") = "Element 2"
        dt1.Rows.Add(dr)
        dr = dt1.NewRow
        Dr("Source") = "Element 3"
        dt1.Rows.Add(dr)
        dr = dt1.NewRow
        Dr("Source") = "Element 4"
        dt1.Rows.Add(dr)
        Dr = DT1.NewRow
 
        DataGridView1.DataSource = dt1
        DataGridView2.DataSource = dt2
 
    End Sub
 
   Fonction qui ne renvoie pas de valeur quand je relache le bouton droit du drop
    Private Sub DataGridView2_CellMouseUp(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) _
     Handles DataGridView2.CellMouseUp
        MsgBox(e.RowIndex)
    End Sub
 
    Private Sub DataGridView1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDown
        Index = DataGridView1.HitTest(e.X, e.Y).RowIndex
        If Index > -1 Then
            DataGridView1.DoDragDrop(Index, DragDropEffects.Move)
        End If
    End Sub
    Private Sub DataGridView2_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGridView2.DragOver
        e.Effect = DragDropEffects.Move
    End Sub
 
    Private Sub DataGridView2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGridView2.DragDrop
        Try
            Dim index As Integer = Convert.ToInt32(e.Data.GetData(Type.GetType("System.Int32")))
            Dim destination As String
            destination = DataGridView1.Rows(index).Cells("Source").Value.ToString
            Dim y As Integer = DataGridView1.CurrentCellAddress.Y
            Dim x As Integer = DataGridView1.CurrentCellAddress.X
            DataGridView1.Rows.Remove(DataGridView1.Rows(index))
 
            Dim Dr As DataRow
            Dr = dt2.NewRow
            Dr("destination") = destination
            dt2.Rows.Add(Dr)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
End Class

18/04/2012, 11h48
tomlev

Je suppose que tu cherchais à obtenir l'index de destination dans le MouseUp ? Pendant un drag/drop, les évènements souris sont capturés, il ne faut pas se baser dessus. Il faut que tu fasses un HitTest dans l'évènement DragDrop du DGV2, comme tu as fais dans le MouseDown du DGV1

J'ai rajouté MsgBox("Drop ! " & DataGridView2.HitTest(e.X, e.Y).RowIndex) dans la SUB ci dessous, la valeur renvoyée est -1 (RowIndex) quel que soit le drop

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub DataGridView2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGridView2.DragDrop
        Try
            Dim index As Integer = Convert.ToInt32(e.Data.GetData(Type.GetType("System.Int32")))
            Dim destination As String
            destination = DataGridView1.Rows(index).Cells("Source").Value.ToString
            Dim y As Integer = DataGridView1.CurrentCellAddress.Y
            Dim x As Integer = DataGridView1.CurrentCellAddress.X
            DataGridView1.Rows.Remove(DataGridView1.Rows(index))
 
            Dim Dr As DataRow
            Dr = dt2.NewRow
            Dr("destination") = destination
            dt2.Rows.Add(Dr)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
End Class

18/04/2012, 14h19
tomlev
Ah ok, je vois pourquoi. C'est parce les coordonnées de l'évènement DragDrop sont des coordonnées écran, et non des coordonnées relatives au contrôle. Il faut donc convertir :
Code:

1 2 Dim pos = DataGridView2.PointToClient(New Point(e.X, e.Y)) Dim destIndex = DataGridView2.HitTest(pos.X, pos.Y)
18/04/2012, 15h36
ermips

[Résolu] drag & drop (problème index du drop) entre deux datagrid

Merci ! je peux maintenant récupérer l'index de la ligne
Dim destIndex = DataGridView2.HitTest(pos.X, pos.Y).RowIndex
18/04/2012, 16h25
tomlev

Pense au bouton :resolu: stp ;)