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

2 votes136 views1 answer
Vba round number
VBA
1 vote140 views1 answer
Set font for ms chart vb.net
VBA
3 votes132 views1 answer
Vba folderexists
VBA
3 votes164 views2 answers
Vba date to string
VBA
0 vote131 views1 answer
Vba border weight
VBA
0 vote141 views1 answer
Not allow form to be resized
VBA
0 vote149 views1 answer
Vba count all row
VBA
0 vote120 views1 answer
Docker vboxmanage not found
VBA
0 vote129 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote79 views1 answer
Vba select file in folder
VBA