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 votes304 views1 answer
Date format for ms chart vb.net
VBA
0 vote314 views1 answer
Vbnet get file name from path
VBA
1 vote343 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote312 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote316 views1 answer
Vba simple quote
VBA
0 vote317 views1 answer
Vba sort multiple columns
VBA
0 vote335 views1 answer
Nested if else in vb.net
VBA
0 vote323 views1 answer
Arq linux
VBA
0 vote353 views1 answer
Move bindingnavigator vb
VBA
1 vote335 views1 answer
Vba loop through files in folder
VBA