Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'exemple ListBox datagridview 'Dans le listBox3 de départ, l'évènement MouseDown déclenche le glisser déplacer par DoDragDrop. Private Sub ListBox3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox3.MouseDown ListBox3.DoDragDrop(ListBox3.Items(ListBox3.IndexFromPoint(e.X, e.Y)), DragDropEffects.Copy Or DragDropEffects.Move) End Sub Private Sub DataGridView1_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles DataGridView1.DragDrop Dim ht As DataGridView.HitTestInfo = DataGridView1.HitTest(DataGridView1.PointToClient(New Point(e.X, e.Y)).X, DataGridView1.PointToClient(New Point(e.X, e.Y)).Y) 'If ht.ColumnIndex > -1 And ht.RowIndex > -1 Then 'activer pour draganddrop ligne If ht.ColumnIndex > -1 Then ' DataGridView1.Rows(ht.RowIndex).Cells(ht.ColumnIndex).Value = e.Data.GetData("Text")'activer pour draganddrop ligne DataGridView1.Columns(ht.ColumnIndex).HeaderText = e.Data.GetData("Text") End If End Sub Private Sub DataGridView1_DragOver(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles DataGridView1.DragOver e.Effect = DragDropEffects.Move End Sub
Private Sub DataGridView1_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles DataGridView1.DragDrop MsgBox(e.X)
Private Sub DataGridView1_DragDrop(sender As Object, e As DragEventArgs) Handles DataGridView1.DragDrop
'For Each col As DataGridViewColumn In DataGridView1.Columns
' col.HeaderText = e.Data.GetData(DataFormats.Text).ToString
'Next
Dim ht As DataGridView.HitTestInfo = DataGridView1.HitTest(DataGridView1.PointToClient(New Point(e.X, e.Y)).X, DataGridView1.PointToClient(New Point(e.X, e.Y)).Y)
'If ht.ColumnIndex > -1 And ht.RowIndex > -1 Then 'activer pour draganddrop ligne
If ht.ColumnIndex > -1 Then
' DataGridView1.Rows(ht.RowIndex).Cells(ht.ColumnIndex).Value = e.Data.GetData("Text")'activer pour draganddrop ligne
DataGridView1.Columns(ht.ColumnIndex).HeaderText = e.Data.GetData("Text")
End If
End Sub
sender As Object, e As DragEventArgs
sender As Object, e As System.Windows.Forms.DragEventArgs
sender As Object, e As DragEventArgs
New Point(e.X, e.Y),
New System.Drawing.Point(e.X, e.Y)