Problème lié à la scrollbar dans Visual Basic

Fred -  
 MMus -
Bonjour,

J'ai réalisé une scrollar en Visual Basic 6.0

Elle fonctionne correctement, à un point près, à savoir lorsque l'on veut se déplacer en appuyant sur le "bouton" de la toolbar et en le déplaçant.

Par bouton j'entend l'objet de forme carrée que l'on peut déplacer dans la toolbar.

Il réalise sa fonction mais, par ex si l'on prend une toolbar verticale, lorsqu'on le déplace tt en bas de la toolbar, ceci ne correspond pas au bas de la forme ou de la picturebox auquel il fait relation.

Quelqu'un a-t-il une idée pour résoudre ce problème ?

Merci,

Fred

1 réponse

  1. MMus
     
    Voila un petit code que j'ai réalisé et necessite un arrangement.

    VScroll1.Max = 100
    VScroll1.Min = 0

    repere = CDbl((VScroll1.Value * frmAbout.Height) / 100)
    Value = CInt((repere / frmAbout.Height) * 100)

    ' ici la form est : frmAbout
    frmAbout.Height = repere * 0.5 + 4200

    If Value > VScroll1.Max Then
    Value = 100

    End If

    VScroll1.Value = Value
    0