TRACKBAR - SLIDER VB.NET

Commentaire de Adn56 le 06/10/2007 11:51:42

j'aime bien ^^, je vais lire tout ça pour essayer d'améliorer mon control. Mais j'ai le meme soucis avec ton control que sur le miens, cela clignote sur un changement. Cela le fait chez toi ? et si oui comment virer cela ???
a te lire.
++

Commentaire de lapix le 06/10/2007 20:19:44

J'ai aussi le probleme du clignotement, je cherche sur une voie qui consisterais a tracer un bmp et l'afficher d'un coup ou un equivalent de ce genre...

Si tu trouves avant n'hesites pas a m'en faire part

Commentaire de Adn56 le 08/10/2007 14:51:25

bon j'ai essayé tout un tas de trucs différents, comme dessiner dans un panel, plutot que sur la forme (http://www.codes-sources.com/code.aspx?ID=44039) mais cela fait pareil, j'ai essayé pour voir la différence entre refresh() et invalidate(), pareil :(
je séche. le pire je viens de voir que sur control gauge.ocx de VB4 (donc fait par crosoft) et ben cela clignote aussi si on change trop vite les valeurs. Donc conclusion pour ton control e tle miens il faut pas donner de valeur en temps réél si on veux que cela ne clignote pas ! c'est nul -_-

Voici les différentes version testé pour dessiner (s'il yen a d'autre je prends ^^)

Sur la form :

    Private Sub UserControl1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Try
            Dim gaugepen As New Pen(couleur, epaisseur)
            Dim x, y As Integer

            x = (centreX) + (RayonX * Math.Cos(val_PI))
            y = (centreY) - (RayonY * Math.Sin(val_PI))
            e.Graphics.DrawLine(gaugepen, (centreX), (centreY), x, y)
            e.Dispose()
        Catch excep As Exception
            Exit Sub
        End Try
            End Sub

ou dans un panel :

    Protected Sub dessin_VU() => appellé dans le panel1.paint()

        Try
            Dim Graphic As System.Drawing.Graphics = Panel1.CreateGraphics
            Dim gaugepen As New Pen(couleur, epaisseur)
            Dim x, y As Integer

            'Graphic.Clear(Color.Transparent)

            x = (centreX) + (RayonX * Math.Cos(val_PI))
            y = (centreY) - (RayonY * Math.Sin(val_PI))
            Graphic.DrawLine(gaugepen, (centreX), (centreY), x, y)
            Graphic.Dispose()
        Catch excep As Exception
            Exit Sub
        End Try

    End Sub 'dessine l'aiguille

Voila, et toi tu en est ou  ?

Commentaire de Adn56 le 08/10/2007 16:09:10

C'est bon j'ai trouvé !
j'ai laissé mon code tel quel, mais j'ai changé les paramétres du control (user.form quoi) Et ça marche !!!! plus aucun clignotement !
voici les paramétres :
allowdrop = false
autoscalemode = none
autoscroll = false
autosize= false
autovalidate = DISABLE !
causevalidation = false
et surtout DOUBLEBUFFERED = TRUE ;-)
imemode = nocontrol
localizable = false
Et voila avec ça tu ne devrais plus avoir de soucis ^^
++

Commentaire de lapix le 08/10/2007 17:51:54

Code mis a jour !
J'ai utilisé un peu de tout en fait...

Commentaire de Bidou le 09/10/2007 10:18:41 administrateur CS

Le résultat visuel est bon :)

Commentaire de Adn56 le 09/10/2007 12:53:15

pareil chez moi, ca tourne nickel ! bravo
étant aussi autoditacte, ej vais me permettre de te piquer deux trois idées ;)
+

Commentaire de Adn56 le 10/10/2007 14:28:20

ok, je post ma mise à jour de ma DLL et puis j'essaye apres de compendre la différence avce une classe ;)
merci et @++

Commentaire de Adn56 le 12/10/2007 18:33:46

sinon pour info je commence à modifier ton code pour le rendre adhoc pour mes appli, je n'oublirai pas, biensur de te citer ^^. voila dés que j'ai fini je post ma source !
++ et merci bien pour tout

Commentaire de yassirguitare le 01/11/2008 23:17:08

methode refresh() pour le clignotement

Commentaire de Mayzz le 08/06/2009 08:26:01

Arf, pas pris la note je recommence(et un ptit click sur ta barre de pub ;o) )

Commentaire de Golard le 10/08/2010 11:49:38

Très joli !

ça nous change de l'horrible Trackbar de vbnet qui n'est autre que le non moins horrible slider de vb6 qui lui-même semble tout droit sorti des premiers contrôles visuels des année 80 !!!

Dommage que la roulette de la souris n'agisse pas dessus comme sur le slider de vb... peux-tu améliorer ça ?

Encore bravo ! Je m'abonne au fil au cas où tu mettes à jour le source,

A +

Commentaire de Adn56 le 10/08/2010 18:02:33

ou en plus lui attribuer directement le focus avec getfocus() si tu veux
vraiment s'était bien cette époque, des bons controls...3ans déja..
Allez lapix encore du code ^^

Commentaire de Adn56 le 27/04/2012 18:52:36

juste une question après lecture du code (tu t'es bien pris la tête à commenter ! bravo et encore merci), pourquoi ne pas avoir hérité du control track bar et surcharger le paint ?
@++ l'ami

Commentaire de sankasssss le 02/07/2012 17:44:42

Très bon composant bien codé.
Félicitations.

Commentaire de sankasssss le 05/07/2012 17:34:21

J'ai corrigé le problème, il faut ajouter + z_Minimum à la variable Combien dans OnMouseDown et OnMouseMove :
      Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
            If e.Button = Windows.Forms.MouseButtons.Left Then
                If IsHorizontal() Then
                    Dim Combien As Integer = CInt((e.X - MargeH) / ((Me.Width - MargeH * 2) / (z_Maximum - z_Minimum))) + z_Minimum
                    'Debug.WriteLine(Combien)
                    If Combien <> Me.OldValue Then Me.Valeur = Combien

                ElseIf Not IsHorizontal() Then
                    Dim Combien As Integer = CInt(((Me.Height - e.Y - MargeH) / (Me.Height - MargeH * 2)) * (z_Maximum - z_Minimum)) + z_Minimum
                    'Debug.WriteLine(Combien)
                    If Combien <> Me.OldValue Then Me.Valeur = Combien

                End If

            End If

            MyBase.Select()
            MyBase.OnMouseDown(e)
        End Sub

        Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
            If e.Button = Windows.Forms.MouseButtons.Left Then

                If IsHorizontal() Then
                    Dim Combien As Integer = CInt((e.X - MargeH) / ((Me.Width - MargeH * 2) / (z_Maximum - z_Minimum))) + z_Minimum
                    'Debug.WriteLine(Combien)
                    If Combien <> Me.OldValue Then Me.Valeur = Combien

                ElseIf Not IsHorizontal() Then
                    Dim Combien As Integer = CInt(((Me.Height - e.Y - MargeH) / (Me.Height - MargeH * 2)) * (z_Maximum - z_Minimum)) + z_Minimum
                    'Debug.WriteLine(Combien)
                    If Combien <> Me.OldValue Then Me.Valeur = Combien

                End If

            End If

            MyBase.OnMouseMove(e)
        End Sub

;)