Discussion :

[Golzinne]

Bonjour à tous,

Lorsqu'on ouvre un combobox, il affiche la liste des éléments qu'il contient. En passant la souris au dessus des différentes lignes, l'élémentde la liste qui se trouve sous la souris devient bleu.

Peut-on, quand une ligne devient bleue, lancer un événement et récupérer l'item de cette ligne ?

Merci

[Aspic]

Je ne pense pas que l'on puisse il faut cliquer sur l'element pour déclancher l'évenement mais regarde dans la liste des evenements de ta combobox, il y a peut etre un event du type OnMouseHover...

Cdl

[Golzinne]

Merci,

J'ai mis un beep dans onMouseHover et celà sonne quand je passe sur la zone d'encodage de mon combo mais seulement quand il n'est pas ouvert. Dès qu'il est ouvert, ça ne sonne plus nulle part.

[Aspic]

Merci,

J'ai mis un beep dans onMouseHover et celà sonne quand je passe sur la zone d'encodage de mon combo mais seulement quand il n'est pas ouvert. Dès qu'il est ouvert, ça ne sonne plus nulle part.

Ca ne doit pas etre le bon event...

[olsimare]

Bonjour.

C'est peut être bêbête comme solution mais en se cablant sur le ondrawitem on doit pouvoir faire ça puisque le passage de la souris sur l'item déclenche le redessin de celui-ci...

Mais bof, personnellement je passerai plutôt par les messages windows.

Cdt.

[Golzinne]

Salut,

Je n'ai pas d'événement OnDrawItem sur les combo. Je ne peux donc pas tester ta solution. Merci quand même.

[Aspic]

J'ai testé les 3/4 des events et aucun ne correspond à ce que tu veux. Il va donc falloir biaiser...

[Golzinne]

As-tu une piste pour "biaiser" ? je dis bien biaiser !

[Aspic]

Pas pour l'instant mais deja tu peux le faire avec l'event qui controle la molette de la souris. Sinon il faut obligatoirement un clique ou une pression sur une touche !

Autre méthode mais je ne sais pas si c'est possible est de surcharger le control COmboBox et de créer toi meme l'event "OnMouseHover"

[olsimare]

Bonjour.

Oups, j'ai manqué de précision sur ce coup là !

Il faut que tu te fasses un combo personnalisé qui dessine lui même ses items, et là tu fais ce que tu veux dans le drawitem.

Une exemple à 20 cents (j'ai pas poussé les tests à fond !!!) :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
Public Class Form6
 
    Private Sub Form6_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim dt1 As New DataTable
        dt1.Columns.Add("Col1")
 
        dt1.Rows.Add("Val1")
        dt1.Rows.Add("Val2")
        dt1.Rows.Add("Val3")
        dt1.Rows.Add("Val4")
 
        Me.MonComboBebete1.DataSource = dt1
        Me.MonComboBebete1.ValueMember = "Col1"
        Me.MonComboBebete1.DisplayMember = "Col1"
 
    End Sub
 
    Private Sub MonComboBebete1_dropdownListItemChanged(ByVal value As String) Handles MonComboBebete1.dropdownListItemChanged
 
        Me.TextBox1.Text = value
 
    End Sub
 
End Class
 
Public Class MonComboBebete
    Inherits ComboBox
 
    Dim idx As Integer = -2
    Public Event dropdownListItemChanged(ByVal Value As String)
 
    Public Sub New()
 
        Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
 
    End Sub
 
    Private Sub H_DrawItem(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.DrawItemEventArgs) _
  Handles Me.DrawItem
 
        Try
 
            If e.Index < 0 Then Exit Sub
 
            Dim strValue As String
            strValue = CStr(CType(Me.DataSource, DataTable).Rows(e.Index).Item(0))
 
            '
            ' Couleur de fond : si sélectionné, dégradé, sinon on laisse faire
            '
            If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
                Dim backbrush As New _
                    System.Drawing.Drawing2D.LinearGradientBrush(e.Bounds, _
                    Color.LightBlue, _
                    Color.DarkBlue, _
                    System.Drawing.Drawing2D.LinearGradientMode.Horizontal)
                e.Graphics.FillRectangle(backbrush, e.Bounds)
                If e.Index <> idx Then
                    RaiseEvent dropdownListItemChanged(strValue)
                End If
                idx = e.Index
            Else
                e.DrawBackground()
            End If
 
            Dim dtTable As DataTable = CType(Me.DataSource, DataTable)
            Dim sngWidth As Single = 0
 
            ' Text de la colonne
            If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
                e.Graphics.DrawString(strValue, Me.Font, System.Drawing.Brushes.White, e.Bounds)
            Else
                e.Graphics.DrawString(strValue, Me.Font, System.Drawing.Brushes.DarkBlue, e.Bounds)
            End If
 
            ' Focus
            e.DrawFocusRectangle()
 
        Catch ex As Exception
            MsgBox("erreur")
        End Try
 
    End Sub
 
End Class

Nota : c'est une form avec un textbox et un moncombobebete.

Cdt.

[Golzinne]

Sur quel compte dois-je verser les 20 cents ?

J'ai pris un petit peu de temps mais j'ai testé ton code et ça marche super. J'ai pas encore tout compris car cela à l'air d'être de la haute voltige, mais je vais étudier ça en détail.

Pour ceux que ça intéresse, j'ai du ajouter avant la ligne

Code :

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

Private Sub Form6_load....

le code

Code :

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

Dim WithEvents myCboBb as New MonComboBebete

et j'ai du dans le reste du code remplacer MonComboBebete par myCboBb pour ce qui est du datasource, ValueMember et displaymember.

Bravo à toi et merci