A voir également:
- Problème lié à la scrollbar dans Visual Basic
- Visual basic - Télécharger - Langages
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual petanque - Télécharger - Sport
- Microsoft visual c++ runtime - Guide
- Visual paradigm - Télécharger - Gestion de données
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