Scrool horizontal

Soyez le premier à donner votre avis sur cette source.

Vue 9 105 fois - Téléchargée 517 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme

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.