Le contrôle SpinButton (Toupie)

Private Sub UserForm_Initialize()
    With SpinButton1
        .Min = 0 'Valeur mini
        .Max = 100 'Valeur maxi
        
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle SpinButton
        '(La valeur par défaut = 1)
        .SmallChange = 5
    End With
End Sub


Private Sub SpinButton1_Change()
    Label1 = SpinButton1.Value
End Sub

Source: silkyroad.developpez.com

Similar codes

0 vote241 views1 answer
.net crash app
VBA
0 vote215 views1 answer
Vba first line of string
VBA
1 vote237 views1 answer
Vba format string as cash
VBA
0 vote209 views1 answer
Vbscript abs
VBA
0 vote207 views1 answer
WGET FTP
VBA
0 vote250 views1 answer
Vbnet add axis labels to chart
VBA
3 votes220 views1 answer
Vba http request json
VBA
1 vote210 views1 answer
Add control vb
VBA
0 vote211 views1 answer
Vbs
VBA
1 vote158 views1 answer
How to open cmd with vbd
VBA