impossible d'afficher le scrollBar du frame
Bonjour forum
je souhaiterais afficher le scrollbar de chaque frame en fonction du nombre de labels qu'ils contiennent.
voici le code provenant du module de classe.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Function ChangeCouleur(ByRef Usf As Object)
Dim CtrlLabel As Object
For Each CtrlLabel In Usf.ObjFrame.Controls
If TypeOf CtrlLabel Is MSForms.Label Then
With CtrlLabel
.ForeColor = vbWhite
.SpecialEffect = fmSpecialEffectFlat
.Font.Bold = False
.Font.Size = 10
ObjFrame.ScrollBars = fmScrollBarsVertical
ObjFrame.ScrollHeight = .Top + .Height
End With
End If
Next
End Function |
Code:
ObjFrame.ScrollBars = fmScrollBarsVertical
s'exécute mais la ligne suivante
Code:
ObjFrame.ScrollHeight = .Top + .Height
ne donne aucune réponse.
je voudrais avoir plus de détails concernant le problème.
merci à vous