Discussion :

[andre_21]

bonjour à Tous,

Je voudrais qu'à l'ouverture d'une listbox que je viens de remplir, le 1er élément soit sélectionné, ( c'est à dire que le fond de ce premier élément soit bleu) et que les autres éléments soient sélecionnés lorsque je fais passer le curseur dessus.

Merci par avance de vos réponses

[OhMonBato]

Bonjour,

trouvé sur le net, dans un module :

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
 
Option Explicit
Public Const LB_SETCURSEL = &H186
Public Const LB_GETCURSEL = &H188
Public Type POINTAPI
    X As Long
    Y As Long
End Type
Public Declare Function ClientToScreen Lib "user32" _
(ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function LBItemFromPt Lib "COMCTL32.DLL" _
(ByVal hLB As Long, ByVal ptX As Long, ByVal ptY As Long, _
ByVal bAutoScroll As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Long) As Long

Dans ta feuille avec la listbox, List1 :

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
 
Option Explicit
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
HighlightLBItem List1.hwnd, X, Y
End Sub
Public Sub HighlightLBItem(ByVal LBHwnd As Long, _
ByVal X As Single, ByVal Y As Single)
Dim ItemIndex As Long
Dim AtThisPoint As POINTAPI
AtThisPoint.X = X \ Screen.TwipsPerPixelX
AtThisPoint.Y = Y \ Screen.TwipsPerPixelY
Call ClientToScreen(LBHwnd, AtThisPoint)
ItemIndex = LBItemFromPt(LBHwnd, AtThisPoint.X, _
   AtThisPoint.Y, False)
If ItemIndex <> SendMessage(LBHwnd, LB_GETCURSEL, 0, 0) Then
    Call SendMessage(LBHwnd, LB_SETCURSEL, ItemIndex, 0)
End If
End Sub

[andre_21]

Bonjour OhMonBato

OK, merci bien, ce n'est pas très simple, je vais essayé ça.

[Delbeke]

Heu, peut être plus simple

Code :

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

List1.ListIndex = 0

pour sélectioner le premier élement et tu laisses tomber le survol.
Ce n'est d'ailleurs pas dans l'usage courant de windows.

[andre_21]

Bonjour Delbeke

Merci de ta réponse,

mais je ne veux pas que l'élément soit sélectionné, je veux simplement qu'il soit en "surbrillance" lorsque je passe dessus avec la souris.

Je laisse tombé, je vais faire simple, on verra lorsque je serai un plus aguerri

[stigma]

Et bien la solution simple de Delbeke m'a bien dépanné ! Merci