Problème lié à la scrollbar dans Visual Basic
Fred
-
MMus -
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
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
A voir également:
- Problème lié à la scrollbar dans Visual Basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
1 réponse
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
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
