Scrool horizontal
Description
Permet de faire une barre de défilement horizontale d'un Listbox qui ne permet que le scrool vertical.
Source / Exemple :
Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Integer, _
ByVal lParam As Long _
) As Long
Private Sub cmdReduire_Click()
List1.Width = List1.Width * 9 / 10
End Sub
Private Sub Form_Load()
Dim LongTest$, Rtn As Long
' Définir ScaleMode à Pixel
ScaleMode = vbPixels
' Placer le texte dans le Listbox
LongTest$ = "Voici une liste des mois de l'année "
List1.AddItem LongTest$
List1.AddItem "Janvier"
List1.AddItem "Février"
List1.AddItem "Mars"
List1.AddItem "Avril"
List1.AddItem "Mai"
List1.AddItem "Juin"
List1.AddItem "Juillet"
List1.AddItem "Août"
List1.AddItem "Septembre"
List1.AddItem "Octobre"
List1.AddItem "Novembre"
List1.AddItem "Décembre"
' Définir les propriétés Font de la feuille en correspondance
' avec celles de la zone de liste
Form1.Font.Size = List1.Font.Size
' Fixer le seuil d'apparition de la barre de défilement
Rtn = SendMessage(List1.hwnd, &H415, _
Form1.TextWidth(LongTest$), ByVal 0&)
End Sub
Private Sub cmdQuitte_Click()
Unload Me
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.