LE PLUS SIMPLE PROGRESSBAR AU MONDE

Signaler
Messages postés
10
Date d'inscription
vendredi 30 mai 2003
Statut
Membre
Dernière intervention
15 juin 2018
-
Messages postés
1
Date d'inscription
jeudi 15 mars 2012
Statut
Membre
Dernière intervention
15 mars 2012
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/54138-le-plus-simple-progressbar-au-monde

Messages postés
1
Date d'inscription
jeudi 15 mars 2012
Statut
Membre
Dernière intervention
15 mars 2012

Merçi
Messages postés
311
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
26 juin 2015

Hello, je suis le non codeur par excellence.
Je fais un peu de Flash et encore avec pas + de 2 lignes de code(;o)))

Comment ça s'utilise ce genre de ProgressBar ?
Messages postés
86
Date d'inscription
jeudi 7 janvier 2010
Statut
Membre
Dernière intervention
13 juillet 2013

Merci bien mais j'ai trouver un moyen encore plus simple, un simple pourcentage sur la largeur d'une picturebox.
Messages postés
146
Date d'inscription
lundi 15 juin 2009
Statut
Membre
Dernière intervention
14 février 2013

bonjour, le copier colle ne fonctionnera pas si facilement, mais le code n'est pas bien compliqué.

Voici une ébauche en .net. Je n'est pas modifié le label dans la boucle mais pas bien méchant.
En .Net il n'y a pas de gestion des Index, j'ai trouvé un moyen simple lorsque c'est vraiment utile, c'est de crée des tableaux de ce que tu souhaite indexer.
Idem il n'y a pas a ma connaissance (limité de débutant) de imageBox et PictureBox mais cela marche parfaitement avec que des PictureBox

Public Class Form1
Private i As Integer
Private j As Integer
Private Const nbcontrol As Integer = 3
Private plus As Boolean
Private MyImages(nbcontrol) As PictureBox
Private MyPictures(nbcontrol) As PictureBox
Private MyLabels(nbcontrol) As Label

Public Sub New()

' Cet appel est requis par le concepteur.
InitializeComponent()

' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
MyImages(0) = ImageBox1
MyImages(1) = ImageBox2
MyImages(2) = ImageBox3

MyPictures(0) = PictureBox1
MyPictures(1) = PictureBox2
MyPictures(2) = PictureBox3

MyLabels(0) = Label1
MyLabels(1) = Label2
MyLabels(2) = Label3

i = 0
plus = True
TrackBar1.Maximum = 100

End Sub
Private Sub MAJ_Bar(Index As Integer, Value As Integer)
Try
'resize du l'image
MyImages(Index).Width = Value * (MyPictures(Index).Width) / 100
'changement du la caption pour avoir (en visual) la valeur du progressbar
MyLabels(Index).Text = Value & " %"

Catch ex As Exception

End Try

End Sub

Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
Dim j As Integer
For j = 0 To nbcontrol - 1
'mettre à jour les progressbar
MAJ_Bar(j, TrackBar1.Value)
Next j

Me.Text = TrackBar1.Value & " %"
End Sub

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
'activer ou désactiver le timer
If CheckBox1.Checked Then
Timer1.Enabled = True
TrackBar1.Enabled = False
Else
Timer1.Enabled = False
TrackBar1.Enabled = True
End If
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Dim j As Integer
If plus Then 'pour calculer la valeur (en + ou en -)
i = i + 1 If i > 100 Then i 100 : plus False
Else
i = i - 1 If i < 0 Then i 0 : plus True
End If

'mettre à juor le progressbar
For j = 0 To nbcontrol - 1
MAJ_Bar(j, i)
Next j

Me.Text = i & " %"
End Sub
End Class
Afficher les 8 commentaires