Discussion :

[toutounesan]

Bonjour,

Je voudrais mettre la valeur que l'on veut dans un textbox et intéragir sur un curseur en l'initialisant avec cette valeur mais je vois que ce curseur clignote quand je le fais scroller. Il faut dire aussi que j'initialise le texbox avec la valeur du curseur. Je me demande si c'est pas le problème mais comment le résoudre?

Qulequ'un aurait il une solution?

[tomlev]

Il va falloir expliquer ton truc BEAUCOUP plus clairement si tu veux de l'aide, parce que là je doute que qui que ce soit ait compris ce que tu veux...

[toutounesan]

il y a un text box qui permet de saisir la valeur et elle est répercutée sur un curseur. Quand on bouge ce curseur il faut aussi changer la valeur dans ce textbox. Je suis en train de tester avec 2 text box: un pour l'affichage et un pour la saisie.. Je vais voir

[tomlev]

il y a un text box qui permet de saisir la valeur

Quelle valeur ? Que représente-t-elle ?

et elle est répercutée sur un curseur.

C'est à dire ? Tu changes le symbole du curseur ? Sa position ?

Quand on bouge ce curseur il faut aussi changer la valeur dans ce textbox.

Selon quelle logique ? Tu veux afficher sa position ?

Tout ça te semble peut-être évident, mais mets-toi à la place de quelqu'un qui ne sait pas du tout ce que tu cherches à faire...


EDIT: et de quel curseur tu parles au juste ? Celui de la souris ? Celui d'une scrollbar ou d'un slider ?

[toutounesan]

c'est un slider, je voudrais savoir maintenant comment rappeler dans mon code la méthode d'actualisation de la slide bar. J'ai essayé refresh et update mais je ne rentre pas dans la méthode HScrollBar2_Scroll

[tomlev]

OK, alors récapitulons pour voir si j'ai bien compris...

Tu as une ScrollBar et une TextBox
Tu veux que la saisie d'un texte dans la TextBox modifie la valeur de la ScrollBar
Tu veux que le déplacement du curseur de la ScrollBar mette à jour la valeur de la TextBox

C'est bien ça ?

Donc il faut que tu gères l'évènement TextChanged de la TextBox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
    Dim value As Integer = CInt(TextBox1.Text)
 
    ' On vérifie que ce n'est pas la même valeur, pour éviter de faire une récursion infinie
    If ScrollBar1.Value <> value Then
        ScrollBar1.Value = value
    End If
End Sub

Et l'évènement Scroll de la ScrollBar :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ScrollBar1_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs)
    Dim value As String = ScrollBar1.Value.ToString()
 
    ' On vérifie que ce n'est pas la même valeur, pour éviter de faire une récursion infinie
    If TextBox1.Text <> value Then
        TextBox1.Text = value
    End If
End Sub

[matll]

Salut,

Comment remets-tu à jour ton slider ? via Timer ou via l'evenement TextChanged du TextBox ?

Car si tu utilises le Timer, c'est normal que ça clignotte (si l'intervalle est trop court).

P.S : avec un exemple minimal de code ce serait encore plus simple de comprendre.

EDIT : oops tomlev a posté entre temps avec une méthode telle que je l'imaginais.

@+
Mat