Le plus simple progressbar au monde

Soyez le premier à donner votre avis sur cette source.

Vue 8 963 fois - Téléchargée 1 710 fois

Description

le plus simple ProgressBar au monde. une Picturebox, une Imagebox, un Label et très peu de lignes de code et le tour est joué :). aucun OCX ni API, vous pouvez changer à volonté le look du ProgressBar en changeant simplement l'image dans Picture1 (représente l'arrière-plan du ProgressBar) et l'image se trouvant dans Image1 (qui elle, représente l'animation/valeur du ProgressBar) donc vous pouvez mettre vos propres images pour avoir le look que vous voulez.

Très très simple façon de créer un ProgressBar sans faire appel à des API compliqués ni utiliser des contrôles OCX.

http://mmvb2008.unblog.fr/

Bon téléchargement.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_ramasoft
Messages postés
10
Date d'inscription
vendredi 30 mai 2003
Statut
Membre
Dernière intervention
15 juin 2018
-
Pas mal
Simple et efficace
Sentynel
Messages postés
86
Date d'inscription
jeudi 7 janvier 2010
Statut
Membre
Dernière intervention
13 juillet 2013
-
Bonjour, est-il possible de convertir cela en Vb.net s'il te plait ? Merci.
m_simohamed
Messages postés
32
Date d'inscription
vendredi 5 décembre 2003
Statut
Membre
Dernière intervention
7 février 2009
-
Bonjour,

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
cs_megamario
Messages postés
146
Date d'inscription
lundi 15 juin 2009
Statut
Membre
Dernière intervention
14 février 2013
-
+1 Simple et efficace.
cs_megamario
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.