Renommer les colonnes d'un datagridview par l'utilisateur [Résolu]
hanadakia38
Messages postés mercredi 21 mai 2014Date d'inscription
8 février 2018
Dernière intervention
-
31 oct. 2017 à 12:45 - Dernière réponse : hanadakia38
Messages postés mercredi 21 mai 2014Date d'inscription
8 février 2018
Dernière intervention
- 1 nov. 2017 à 11:21
Salut tout le monde,
Dans mon formulaire j'ai une ListBox qui contient des noms de colonnes et un datagridview. Je veux permettre à l'utilisateur de glisser chaque nom de colonne depuis la listbox et le mettre dans le header du datagridview. Est ce que c'est possible de le faire?
Merci d'avance.
Whismeril11409
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
21 avril 2018
Dernière intervention -31 oct. 2017 à 13:12
0
Utile
Bonjour
L’idée c’est quoi?
C’est de renommer la cellule, le titre comme le laisse penser, ou ajouter/modifier une colonne (par exemple pour une personne, tu as nom, prénom, date de naissance, adresse, téléphone ect) et tu remplaces la date de naissance par l’adresse, comme ton texte le laisse penser?
Regardes du côté du drag and drop, tu stockes le texte de ta listbox sur un drag et tu appliques le header sur un drop
Quand j'étais petit, la mer Morte n'était que malade.
George Burns
Il faut que tes 2 controls aient la propriété AllowDrop = True
Dans mon exemple la listBox est listBox3 à adapter:
'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 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
