guijone
Messages postés6Date d'inscriptionjeudi 29 janvier 2009StatutMembreDernière intervention20 août 2009
-
12 févr. 2009 à 13:39
guijone
Messages postés6Date d'inscriptionjeudi 29 janvier 2009StatutMembreDernière intervention20 août 2009
-
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!
jmf0
Messages postés1566Date d'inscriptionmardi 26 décembre 2000StatutMembreDernière intervention 5 avril 20138 12 févr. 2009 à 18:41
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
guijone
Messages postés6Date d'inscriptionjeudi 29 janvier 2009StatutMembreDernière intervention20 août 2009 13 févr. 2009 à 10:31
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
guijone
Messages postés6Date d'inscriptionjeudi 29 janvier 2009StatutMembreDernière intervention20 août 2009 13 févr. 2009 à 14:04
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!!