Discussion :

[Danyel]

Salut All,

J'ai un probleme de vscrollbar que je n'arrive pas à resoudre et ce depuis qq jous malgres toutes mes recherches et essais.
J'ai un scrollbar vertical allant de 0 à 30, cependant selon les cas, il est possible que la plus haute valeur soit reduite (mais sans que les valeurs du vscrollbar soient changées)

Je fais donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub VScrollBar_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar.Scroll
 
        If VScrollBar.Value > LaValeurButoire Then
            VScrollBar.Value = LaValeurButoire 
            Beep()
        End If
 
        VScrollBar.Refresh()
 
End Sub

Mais probleme car quand la condition if s'execute, le VScrollBar.Value est bien correct, mais l'affichage dans la form est incorrecte et ne fait qu'augmenter !!!
J'ai meme essaye de donner une valeur bien precise, comme VScrollBar.Value=5 par exemple, mais nada ... ca augmente (visuellement) dans la vscrollbar.

Alors je me suis apercu que l'affichage se fait bien, mais reviens a la valeur fausse juste apres et il y a 2 beeps !!!

Je ne sais plus ou chercher et comment resoudre ce bug.
Merci pour votre aide.
Danyel.

[tomlev]

un petit coup d'oeil à la doc de la class ScrollEventArgs ne ferait pas de mal
La solution (enfin je crois...) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub VScrollBar_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar.Scroll
 
        If e.NewValue > LaValeurButoire Then
            e.NewValue = LaValeurButoire 
            Beep()
        End If
 
        VScrollBar.Refresh()
 
End Sub

Après le traitement de l'évènement, c'est e.NewValue qui est affecté à VScrollBar.Value

[Danyel]

C'est incroyable que je sois passe a cote de cela, car j'ai passe toutes les infos msdn sur les scrollbars !!!
C'est effectivement exact qu'il faut utiliser e

Merci tomlev