Comment intégrer une barre de suivi dans Visual Basic : 3 étapes

2024 Auteur: John Day | [email protected]. Dernière modifié: 2024-01-30 09:11

OK, donc cela semble facile, mais les débutants n'ont absolument aucune idée de comment faire cela. Les trackbars peuvent être des outils utiles. De la décision d'un budget au choix du nombre de feux d'artifice à faire exploser, l'utilisation des trackbars est très très facile.

REMARQUE: Est-ce que quelqu'un sait comment augmenter le nombre de places sur une barre de suivi ? Je ne peux obtenir que 11…

Étape 1: Préparez votre formulaire

C'est assez facile. Faites quand vous voulez que votre programme ressemble. Je ne fais rien de particulier. Je vais faire quelque chose qui change la couleur d'une zone de texte.==N'oubliez pas d'ajouter une barre de suivi!!!== ^{_{Oui, beaucoup de gens l'oublient}}

Étape 2: Codez

Alors vous, avez fait votre interface utilisateur, et maintenant ? Code bien sûr !! Double-cliquez sur la barre de suivi. 2 lignes de code devraient apparaître. Quelque chose comme:

Private Sub TrackBar1_Scroll(ByVal sender As System. Object, ByVal e As System. EventArgs) Gère TrackBar1. Scroll End SubMaintenant, nous apprenons les valeurs. Sur cette barre de suivi, nous ne pouvons obtenir que 11 valeurs, 0-10. La valeur 0 est l'extrême gauche tandis que la valeur 10 est l'extrême droite. C'est compris? Allons-nous en.

Pour vous faciliter la vie, tout le texte de cette étape sera désormais de style code

Entre les deux lignes de code, tapez:If TrackBar1. Value = placeceavaluenumberhere ThenEnd Ifremplacez placeavaluenumberici par le numéro de valeur de l'endroit où vous voulez qu'il soit. Maintenant, entre ces 4 lignes de code, tapez ce que vous voulez faire. Dans ce cas: TextBox1. BackColor = Color. Black Une fois que vous avez terminé, répétez cette opération pour chaque endroit. Quand j'ai eu fini, cela ressemblait à ceci:Private Sub TrackBar1_Scroll(ByVal sender As System. Object, ByVal e As System. EventArgs) Gère TrackBar1. Scroll If TrackBar1. Value = 0 Then TextBox1. BackColor = Color. Black End If If TrackBar1. Value = 1 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 2 Then TextBox1. BackColor = Color. Red End If If TrackBar1. Value = 3 Then TextBox1. BackColor = Color. Blue End If If TrackBar1. Value = 4 Then TextBox1. BackColor = Color. Yellow End If If TrackBar1. Value = 5 Then TextBox1. BackColor = Color. Purple End If If TrackBar1. Value = 6 Then TextBox1. BackColor = Color. Green End If If TrackBar1. Value = 7 Then TextBox1. BackColor = Color. Orange End If If TrackBar1. Value = 8 Then TextBox1. BackColor = Color. Brown End If If TrackBar1. Value = 9 Then TextBox1. BackColor = Color. White End If If TrackBar1. Value = 10 Then TextBox1. BackColor = Color. White End If End Sub

Étape 3: Terminé

Eh bien, je l'étais de toute façon. Si vous n'avez pas terminé votre programme, continuez. Oh, et bonne chance ! Mais pour ceux qui ont fini, eh bien, ce n'était pas trop dur, n'est-ce pas ? Et si vous vous posiez la question, le code pour la réinitialisation et la fermeture est:

Private Sub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Gère Button2. Click End End Sub Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Gère Button1. Click TrackBar1. Value = 0 End Sub