SCROOL HORIZONTAL

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

 

Télécharger le zip