Visual basic circulaire de la barre de progression

Je suis en train de faire un logiciel avec la bonne INTERFACE , mais je ne suis pas professionnel en VB ...
Comment puis-je faire une circulaire de la barre de progression ?

par Exemple

Visual basic circulaire de la barre de progression

voir codeproject.com/Articles/30625/Circular-Progress-Indicator et codeproject.com/Articles/14855/SQL-Server-Circular-Progress-Bar
C'est construit avec le c++, je tiens à le construire dans visual basic.
ils sont pas en C++; ils peuvent être facilement convertis en VB. Le point est qu'ils (et les autres) sont déjà assemblé et prêt à utiliser; vous ne devez pas recréer la roue.
ok, je vais essayer de le convertir en vb et de comprendre comment cela fonctionne.

OriginalL'auteur faresabb2 | 2014-11-14

  1. 13

    Que diriez-vous simplement à dessiner votre propre en utilisant GDI+.

    Vous pouvez convertir ce pour votre propre usercontrol plus tard, mais cela vous aidera à démarrer. Il devrait être assez explicite:

    Private Sub Form2_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
DrawProgress(e.Graphics, New Rectangle(5, 5, 60, 60), 40)
DrawProgress(e.Graphics, New Rectangle(80, 5, 60, 60), 80)
DrawProgress(e.Graphics, New Rectangle(155, 5, 60, 60), 57)
End Sub
Private Sub DrawProgress(g As Graphics, rect As Rectangle, percentage As Single)
'work out the angles for each arc
Dim progressAngle = CSng(360 / 100 * percentage)
Dim remainderAngle = 360 - progressAngle
'create pens to use for the arcs
Using progressPen As New Pen(Color.LightSeaGreen, 2), remainderPen As New Pen(Color.LightGray, 2)
'set the smoothing to high quality for better output
g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
'draw the blue and white arcs
g.DrawArc(progressPen, rect, -90, progressAngle)
g.DrawArc(remainderPen, rect, progressAngle - 90, remainderAngle)
End Using
'draw the text in the centre by working out how big it is and adjusting the co-ordinates accordingly
Using fnt As New Font(Me.Font.FontFamily, 14)
Dim text As String = percentage.ToString + "%"
Dim textSize = g.MeasureString(text, fnt)
Dim textPoint As New Point(CInt(rect.Left + (rect.Width / 2) - (textSize.Width / 2)), CInt(rect.Top + (rect.Height / 2) - (textSize.Height / 2)))
'now we have all the values draw the text
g.DrawString(text, fnt, Brushes.Black, textPoint)
End Using
End Sub

    Sortie

    Visual basic circulaire de la barre de progression

    Merci à vous ... qui a bien fonctionné , mais si vous savez comment faire de plus que "de Qualité" ?
    mec, vous êtes le maître!

    OriginalL'auteur Matt Wilko

  2. 1

    Voici un exemple de la façon de mettre à jour l'avancement de la circulaire de la barre juste au moment où vous en avez besoin, sans scintillement en raison de l'actualisation.

    Basé sur Matt Code

    Il suffit de copier le code dans votre formulaire d'Événement de Peinture, correctement changer le rectangle de la taille et de l'emplacement de l'hôte du cercle dans votre formulaire.
    Pour cent est une variable globale, en cas de changement, vous pouvez m'appeler.méthode refresh() pour déclencher le repeindre!

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
Dim g As Graphics = e.Graphics
Dim rect As New Rectangle(70, 45, 90, 90)
Dim curvatura_progress = CSng(360 / 100 * percent)
Dim curvatura_rimanente = 360 - curvatura_progress 
Using tratto_progresso As New Pen(Color.Lime, 4), tratto_rimanente As New Pen(Color.White, 4)
g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
g.DrawArc(tratto_progresso, rect, -90, curvatura_progress)
g.DrawArc(tratto_rimanente, rect, curvatura_progress - 90, curvatura_rimanente)
End Using
Using fnt As New Font(Me.Font.FontFamily, 14)
Dim text As String = percent.ToString + "%"
Dim textSize = g.MeasureString(text, fnt)
Dim textPoint As New Point(CInt(rect.Left + (rect.Width / 2) - (textSize.Width / 2)), CInt(rect.Top + (rect.Height / 2) - (textSize.Height / 2)))
g.DrawString(text, fnt, Brushes.Black, textPoint)
End Using
End Sub
    Ajoutez simplement Dim pour cent Comme Unique, Qui peut-être manqué par BR1COP

    OriginalL'auteur BR1COP

  3. 0

    @faresabb2 Dans la Form2.Peinture sous au tout début du code, mettre 

    e.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
    Merci ....je vous dirai si ça fonctionne.

    OriginalL'auteur user2155059