Discussion :

[__bv__]

Bonjour
Je cherche à créer un ComboBox sur un Column Header d'un DataGridView (DGV)
Je suis arrivé à changer les cellules du DGV en ComboBox mais pas le Header.
Il me semble que tout est possible dans VS, mais je ne vois pas comment et j'aimerais éviter devoir créer une nouvelle classe héritée de DGV.
Merci par avance
Bruno

[__bv__]

N'ayant pas vu de commentaire, je ne sais pas si ma question est insoluble ou au contraire trop triviale.
Une autre variante intéressante serait un ListBox ou ListView sur clique-droit du Header d'un DataGridView, bref pouvoir sélectionner quel champ lister en dessous.

[Phil Rob]

Bonjour Bruno,

Ta question n'est certainement pas triviale !
J'ai cherché (un peu) et je n'ai rien trouvé.

Par contre, je peux faire une colonne de cellules ComboBox dans le DataGridView mais ça, ce n'est pas ta question

Bonne journée,

[__bv__]

Merci Phil
J'ai bien trouvé ceci sur GitHub : https://gist.github.com/sdanna/2597102
Mais ça me dépasse un peu beaucoup...

[Phil Rob]

Je n'ai pratiquement jamais utilisé de librairie externes à VisualStudio.

Le lien que tu transmets nous conduit au code (en C#) de 2 classes qui devraient être utilisables pour placer des Headers de type ComboNumericHeaderCell et SpecialColumnHeader. Je pense qu'il faudrait compiler ces classes en DLL et les référencer dans ton projet VB, mais cela me paraît difficile sans souscrire davantage à github.

Sûrement qu'il existe des participants à ce forum qui travaillent déjà avec github ... Eux pourraient clarifier l'usage possible de ces classes.

[Pol63]

le plus simple c'est de t'abonner à clic /clic droit sur l'entete de la colonne et de popup une fenetre

[__bv__]

Merci Pol ! Excellente idée ! Simple et efficace !

[__bv__]

Voici un mini-projet qui implémente ce que je voulais obtenir avec l'idée simple et néanmoins géniale de Pol.
En espérant que cela pourra être utile à certains VBistes balbutiant comme moi
Encore merci.

[Phil Rob]

C'est simple en effet. Génial.
Merci pour le feedback.

[Phil Rob]

Juste pour m'amuser un peu ...

En ajoutant quelques lignes de codes au chargement de ta popup, tu obtiens un effet plus porche de ce qu'il aurait été avec une ComboBox.

Bonne journée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub Greeks_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        With LstGreeks.Items
            .Clear()
            .Add("DELTA")
            .Add("GAMMA")
            .Add("THETA")
            .Add("VEGA")
            .Add("VOMMA")
        End With
 
        Me.FormBorderStyle = FormBorderStyle.None
        Me.Height = (LstGreeks.Items.Count + 1) * LstGreeks.Font.Height  ' ScrollBar directement visible si pas de '+1'
        Me.Width = Form1.DGVtest.Columns(ColumnNumber).Width
        LstGreeks.Dock = DockStyle.Fill
 
    End Sub

[Pol63]

idéalement il faut aussi gérer l'event Deactivated pour faire me.dispose
comme ca quand l'utilisateur clic ailleurs sur la fenetre cette popup se ferme (comme un combobox)

[__bv__]

Merci
Je pense que l'event Deactivated n'est pas vraiment nécessaire dans mon exemple. Le Form "ComboBox" est statique et reste simplement en mémoire.
En revanche, Phil, j'ai aussi pris un raccourci peu élégant dans son positionnement dans DGVtest_ColumnHeaderMouseClick:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
                Dim Y As Integer = Location.Y + 50  ' arbitrary Y offset
                Dim X As Integer = Location.X + 50  ' arbitrary X offset

On doit pouvoir faire mieux, non ?