Discussion :

[kimausoleil]

Bonjour !

J'ai un DataGridView dans lequel j'ai 3 colonnes DataGridViewComboBoxColumn.

Tout s'affiche et s'enregistre correctement par le bien de mon dataset et dataadaptateur.



Mon problème est que un utilisateur clique 3 fois dans la cellule pour dérouler la combobox :

• 1er clic pour le focus sur la cellule
• 2è clic, la combo devient l'élément à éditer
• 3è clic, la combo se déroule enfin !

Donc le 1er clic, c'est normal ! Mais je voudrais qu'au 2è clic la combo se déroule !



J'ai bien essayé de le faire ainsi :

Code :

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

1
2
3
4
5
6
7
8
 
    Private Sub dgv_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgv.EditingControlShowing
        If TypeOf e.Control Is DataGridViewComboBoxEditingControl Then
            Dim cbo As DataGridViewComboBoxEditingControl
            cbo = DirectCast(e.Control, DataGridViewComboBoxEditingControl)
            cbo.DroppedDown = True
        End If
    End Sub

et là la combo se déroule sur la précédente avec les valeurs de celle sélectionnée !!!

Sacré bug !

Y-a-til un moyen de faire ?
Merci

[kimausoleil]

Bon et bien j'ai trouvé tout seul... ça faisait 2 jours que je cherchais, et il faut que je poste pour avoir une idée après

Voici la solution :

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
 
    Private Sub dgv_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgv.EditingControlShowing
        If TypeOf e.Control Is DataGridViewComboBoxEditingControl Then
            Dim cbo As DataGridViewComboBoxEditingControl
            cbo = DirectCast(e.Control, DataGridViewComboBoxEditingControl)
            AddHandler cbo.GotFocus, AddressOf DropCombo
        End If
    End Sub
 
    Private Sub DropCombo(ByVal sender As Object, ByVal e As System.EventArgs)
        If TypeOf sender Is DataGridViewComboBoxEditingControl Then
            Dim cbo As DataGridViewComboBoxEditingControl
            cbo = DirectCast(sender, DataGridViewComboBoxEditingControl)
            cbo.DroppedDown = True
        End If
    End Sub

[sinople]

Il me semble qu'il y a une magouille plus simple qui consiste à simuler la touche F4 (celle qui permet de dérouler la liste) lors du click sur la cellule.

Mais j'arrive un peu tard...