Renommer les colonnes d'un datagridview par l'utilisateur [Résolu]
hanadakia48
Messages postés mercredi 21 mai 2014Date d'inscription
30 mai 2018
Dernière intervention
-
31 oct. 2017 à 12:45 - Dernière réponse : hanadakia48
Messages postés mercredi 21 mai 2014Date d'inscription
30 mai 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.
Whismeril12122
Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut
21 octobre 2018
Dernière intervention -31 oct. 2017 à 13:12
0
Merci
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
cs_Le Pivert5454
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
20 octobre 2018
Dernière intervention -31 oct. 2017 à 18:02
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
cs_Le Pivert5454
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
20 octobre 2018
Dernière intervention -31 oct. 2017 à 18:05
chez toi
sender As Object, e As DragEventArgs
chez moi
sender As Object, e As System.Windows.Forms.DragEventArgs
cs_Le Pivert5454
Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut
20 octobre 2018
Dernière intervention - 1 nov. 2017 à 06:52
0
Merci
J'ai mis le programme cité plus haut à jour avec le draganddrop d'une listBox à une datagridview
