LE PLUS SIMPLE PROGRESSBAR AU MONDE
cs_ramasoft
Messages postés
10
Date d'inscription
vendredi 30 mai 2003
Statut
Membre
Dernière intervention
15 juin 2018
-
12 mars 2012 à 12:30
stofrca Messages postés 1 Date d'inscription jeudi 15 mars 2012 Statut Membre Dernière intervention 15 mars 2012 - 15 mars 2012 à 19:44
stofrca Messages postés 1 Date d'inscription jeudi 15 mars 2012 Statut Membre Dernière intervention 15 mars 2012 - 15 mars 2012 à 19:44
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
https://codes-sources.commentcamarche.net/source/54138-le-plus-simple-progressbar-au-monde
15 mars 2012 à 19:44
14 mars 2012 à 16:34
Je fais un peu de Flash et encore avec pas + de 2 lignes de code(;o)))
Comment ça s'utilise ce genre de ProgressBar ?
13 mars 2012 à 12:58
13 mars 2012 à 11:39
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
13 mars 2012 à 10:24
12 mars 2012 à 19:17
Merci RAMASOFT.
SENTYNEL, je crois qu'un simple copier-coller fera l'affaire. Sinon ouvrir le projet sous visual studio.net et la conversion se fera d'elle-même. (désolé, je n'ai pas vb.net sur ma machine, mais je crois vraiment que le copier/coller fera l'affaire du moment que le prog n'utilise ni OCX ni aucune API, juste de simple code vb)
salut
12 mars 2012 à 18:52
12 mars 2012 à 12:30
Simple et efficace