Faire bouger une SCROLLBAR automatiquement 2

Question

Coucou a tous

je voudrai savoir comme faire bouger un scrollbar automatiquement dans une aplication.

c'est a dire de la fair bouger de gauche a droit et en suite de droite
a gauche et insi de suite automatiquement a une vitesse reglable

je vous remerci d'avence

@++
SL

Utilisateur anonyme · Answer

Tu cr&#233;e un timer (Timer1)


L'interval pour la vitesse




MyScrollBar: Ta scrollbar a animer




Const Decal as Integer ' <-- ici la constante pour le pas de d&#233;placement de la scrollbar


Dim DecalScrollBar as Integer  ' <-- ici le sens de d&#233;placement + ou - &#233;gal &#224; Decal


Dim MyScrollBarValue as Integer ' <-- ici la valeur temporaire de la scrollbar





Private Sub Timer1()


  If DecalScrollBar 0 then DecalScrollBar Decal


  MyScrollBarValue = MyScrollBarValue + DecalScrollBar


  If MyScrollBarValue >= MyScrollBar.Max Then

    DecalScrollBar = -Decal


    MyScrollBarValue = MyScrollBar.Max


  End If



  If MyScrollBarValue <= MyScrollBar.Min Then

    DecalScrollBar = Decal


    MyScrollBarValue = MyScrollBar.Min



  End If

  MyScrollBar.Value = MyScrollBarValue 


End Sub








ChRb

cs_Jack · Answer

Salut
Bien vu Charles
Ne pas oublier de mettre un DoEvents &#224; la fin de la Sub pour &#234;tre s&#251;r que le graphisme sera rafraichi.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Utilisateur anonyme · Answer

Les timers font un DoEvents automatiquement il n'est donc pas n&#233;cessaire de le mettre.



ChRb

slele · Answer

Coucou je vien d essayer ce bout de code et ca na marche pas

merci d'avence

@++

SL

Faire bouger une SCROLLBAR automatiquement 2

4 réponses

Discussions similaires