Utilisation de TrackBar et TextBox [Résolu]

guijone 6 Messages postés jeudi 29 janvier 2009Date d'inscription 20 août 2009 Dernière intervention - 12 févr. 2009 à 13:39 - Dernière réponse : guijone 6 Messages postés jeudi 29 janvier 2009Date d'inscription 20 août 2009 Dernière intervention
- 13 févr. 2009 à 14:04
Bonjour à tous,

je suis débutant en Visual Basic et donc j'ai quelques questions à vous poser.
En fait j'aimerais utiliser une TrackBar, pouvoir la déplacer et afficher la valeur de celle ci dans une TextBox (ou peut-etre que ça ne se fait pas et que je devrais utiliser un label à la place...)

J'ai donc déposé ma TrackBar et ma TextBox sur ma Form1 mais j'ai un peu de mal à voir comment lier les deux. J'ai essayé des choses mais je n'ai abouti à rien de bien concret, donc j'aimerais un petit coup de main de votre part afin d'arriver à mon but!

Merci d'avance :)
Afficher la suite 

4 réponses

Répondre au sujet
jmf0 1566 Messages postés mardi 26 décembre 2000Date d'inscription 5 avril 2013 Dernière intervention - 13 févr. 2009 à 10:48
+3
Utile
Où est ton problème ?

Tu veux interagir dans tous les sens ?

Exemple, donc :

Private Sub Form_Activate()
  With Slider1
   .LargeChange = 2
   .SmallChange = 1
   .Min = 0
   .Max = 50
 End With
End Sub
 
Private Sub Slider1_Change()
  Text1.Text = Slider1.Value
End Sub
 
Private Sub Slider1_Click()
   Text1.Text = Slider1.Value
End Sub
 
Private Sub Slider1_Scroll()
  Slider1_Change
End Sub


Private Sub Text1_Change()
 Slider1.Value = Val(Text1.Text)
End Sub
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jmf0
jmf0 1566 Messages postés mardi 26 décembre 2000Date d'inscription 5 avril 2013 Dernière intervention - 12 févr. 2009 à 18:41
+1
Utile
Bonjour,

Ton slider à une propriété Value (c'est cette valeur que tu dois afficher)
Ton slider répons à deux évènements qui t'intéressent :
Change
et
Scroll

Quand tu déplaces le curseur, que ce soit en scroll ou en change, la valeur du slider est modifiée  donc ===>>> Text1.text = Slider1.Value

Il peut être astucieux de lier les 2 évènements, de sorte à ce que le Scroll provoque l'évènement Change.
Donc, dans l'évènement Change : text1.text = Slider1.Value
et dans l'évènement Scroll : slider1_change
Commenter la réponse de jmf0
guijone 6 Messages postés jeudi 29 janvier 2009Date d'inscription 20 août 2009 Dernière intervention - 13 févr. 2009 à 10:31
0
Utile
Merci pour ta réponse :)

Alors je réussi à afficher la valeur de la TrackBar, que ce soit avec une TextBox ou un Label mais j'ai encore un pti souci.
Pour le label, la valeur de la trackBar ne s'affiche que lorsque je clique sur le label à chaque fois que je change de place au curseur. J'ai bien vu que la classe est Private Sub Label7_Click( ) donc ça vient probablement de la, mais comment faire pour que ca s'affiche tout seul?
Autrement pour ce qui est de la TextBox c'est un peu pareil car il faut que je mette un caractère dedans pour que la valeur s'affiche.

Et je n'ai pas réussi à entrer une valeur dans la TextBox pour modifier la position du slider car la valeur que ça renvoie n'est pas un Integer, donc ça fait planter ma fenêtre. Voila ce que j'ai mis:

Private Sub TrackBar2_Scroll( )
        TrackBar2.Value = TextBox1.Text
End Sub

Merci d'avance :)
Commenter la réponse de guijone
guijone 6 Messages postés jeudi 29 janvier 2009Date d'inscription 20 août 2009 Dernière intervention - 13 févr. 2009 à 14:04
0
Utile
Merci beaucoup!!
J'ai réussi, grâce à toi

Voici mon code (On sait jamais ça pourra peut-être servir à d'autres) :

Private Sub TrackBar1_Change( )
        TextBoxCR.Text = TrackBar1.Value
End Sub

Private Sub TextBoxCR_TextChanged( ) Handles TextBoxCR.TextChanged
        TrackBar1.Value = Val(TextBoxCR.Text)
End Sub
   
Private Sub TrackBar1_Scroll( ) Handles TrackBar1.Scroll
        TrackBar1_Change( )
End Sub

Maintenant je vais essayer de récupérer les valeurs de ma TextBox afin de les écrire dans un fichier!! Je ne sais pas comment faire pour le moment mais je vais chercher!!
Commenter la réponse de guijone

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.