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 vote156 views1 answer
Vbnet display all axis labels in cahrt
VBA
-1 vote165 views1 answer
For i in range vba
VBA
0 vote192 views2 answers
Checking and changing system volume vb.net
VBA
0 vote173 views1 answer
Excel vba clear filter
VBA
0 vote174 views1 answer
Vba parameter adodb null value
VBA
0 vote198 views1 answer
Vba dictionary clear
VBA
3 votes184 views1 answer
Vba double quote
VBA
0 vote182 views1 answer
Vba sort multiple columns
VBA
0 vote186 views1 answer
Vba check if class implements interface
VBA
0 vote164 views1 answer
Vba copy paste value only
VBA