cs_ramasoft
Messages postés10Date d'inscriptionvendredi 30 mai 2003StatutMembreDernière intervention15 juin 2018
-
12 mars 2012 à 12:30
stofrca
Messages postés1Date d'inscriptionjeudi 15 mars 2012StatutMembreDernière intervention15 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.
stofrca
Messages postés1Date d'inscriptionjeudi 15 mars 2012StatutMembreDernière intervention15 mars 2012 15 mars 2012 à 19:44
Merçi
cs_metis15
Messages postés314Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention30 novembre 2023 14 mars 2012 à 16:34
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 ?
Sentynel
Messages postés85Date d'inscriptionjeudi 7 janvier 2010StatutMembreDernière intervention13 juillet 2013 13 mars 2012 à 12:58
Merci bien mais j'ai trouver un moyen encore plus simple, un simple pourcentage sur la largeur d'une picturebox.
cs_megamario
Messages postés145Date d'inscriptionlundi 15 juin 2009StatutMembreDernière intervention14 février 2013 13 mars 2012 à 11:39
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
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
cs_megamario
Messages postés145Date d'inscriptionlundi 15 juin 2009StatutMembreDernière intervention14 février 2013 13 mars 2012 à 10:24
+1 Simple et efficace.
m_simohamed
Messages postés32Date d'inscriptionvendredi 5 décembre 2003StatutMembreDernière intervention 7 février 2009 12 mars 2012 à 19:17
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
Sentynel
Messages postés85Date d'inscriptionjeudi 7 janvier 2010StatutMembreDernière intervention13 juillet 2013 12 mars 2012 à 18:52
Bonjour, est-il possible de convertir cela en Vb.net s'il te plait ? Merci.
cs_ramasoft
Messages postés10Date d'inscriptionvendredi 30 mai 2003StatutMembreDernière intervention15 juin 2018 12 mars 2012 à 12:30
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