Propriétés LargeChange, SmallChange – Exemple
L’exemple suivant illustre les propriétés LargeChange et SmallChange lorsqu’elles sont utilisées avec une barre de défilement autonome. L’utilisateur peut affecter aux valeurs LargeChange et SmallChange tout entier compris entre 0 et 100.
Cet exemple utilise également la propriété MaxLength pour limiter le nombre de caractères entrés pour les valeurs LargeChange et SmallChange .
Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :
- Une étiquette nommée Label1 et une zone de texte nommée TextBox1.
- Un Label nommé Label2 et une TextBox nommée TextBox2.
- Une ScrollBar nommée ScrollBar1.
- Un Label nommé Label3.
Dim TempNum As Integer
Private Sub ScrollBar1_Change()
Label3.Caption = ScrollBar1.Value
End Sub
Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Text) Then
TempNum = CInt(TextBox1.Text)
If TempNum >= 0 And TempNum <= 100 Then
ScrollBar1.SmallChange = TempNum
Else
TextBox1.Text = ScrollBar1.SmallChange
End If
Else
TextBox1.Text = ScrollBar1.SmallChange
End If
End Sub
Private Sub TextBox2_Change()
If IsNumeric(TextBox2.Text) Then
TempNum = CInt(TextBox2.Text)
If TempNum >= 0 And TempNum <= 100 Then
ScrollBar1.LargeChange = TempNum
Else
TextBox2.Text = ScrollBar1.LargeChange
End If
Else
TextBox2.Text = ScrollBar1.LargeChange
End If
End Sub
Private Sub UserForm_Initialize()
ScrollBar1.Min = -1000
ScrollBar1.Max = 1000
Label1.Caption = "SmallChange 0 to 100"
ScrollBar1.SmallChange = 1
TextBox1.Text = ScrollBar1.SmallChange
TextBox1.MaxLength = 3
Label2.Caption = "LargeChange 0 to 100"
ScrollBar1.LargeChange = 100
TextBox2.Text = ScrollBar1.LargeChange
TextBox2.MaxLength = 3
ScrollBar1.Value = 0
Label3.Caption = ScrollBar1.Value
End Sub
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour