Visual basic
Résolu
urban_freeflow
Messages postés
6
Date d'inscription
lundi 15 août 2005
Statut
Membre
Dernière intervention
15 août 2005
-
15 août 2005 à 15:13
urban_freeflow Messages postés 6 Date d'inscription lundi 15 août 2005 Statut Membre Dernière intervention 15 août 2005 - 15 août 2005 à 16:45
urban_freeflow Messages postés 6 Date d'inscription lundi 15 août 2005 Statut Membre Dernière intervention 15 août 2005 - 15 août 2005 à 16:45
A voir également:
- Visual basic
- Visual basic 2005 - Conseils pratiques -Visual Basic / VB.NET
- If visual basic - Conseils pratiques -Visual Basic / VB.NET
- Visual basic commentaire ✓ - Forum VB.NET
- Mettre en commentaire tout un bloc ✓ - Forum Visual Basic
- Passer en commentaire plusieurs lignes de code VBA rapidement ✓ - Forum Visual Basic
3 réponses
cs_hassen
Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
15 août 2005 à 15:34
15 août 2005 à 15:34
progressbar1.min=1
progressbar1.max=100
for i=1 to 100
progressbar1 = i
next i
Hassen TUNISIE
progressbar1.max=100
for i=1 to 100
progressbar1 = i
next i
Hassen TUNISIE
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
15 août 2005 à 15:36
15 août 2005 à 15:36
Bonjour,
Voici un exemple, place un contrôle Timer, un CommandButton et un ProgressBar que tu nommes prgBar1.
Private Sub Form_Load()
prgBar1.Visible = False
Timer1.Interval = 1000
prgBar1.Max = 10 ' Le contrôle Timer sera actif
' pendant 10 secondes.
End Sub
Private Sub Command1_Click()
prgBar1.Visible = True
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static intTime ' Déclare la variable statique.
' La première fois, la variable est vide.
' Attribuez-lui la valeur 1 si c'est une variable
' vide.
If IsEmpty(intTime) Then intTime = 1
prgBar1.Value = intTime ' Met à jour le contrôle
' ProgressBar.
If intTime = prgBar1.Max Then
Timer1.Enabled = False
prgBar1.Visible = False
intTime = 1
prgBar1.Value = prgBar1.Min
Else
intTime = intTime + 1
End If
End Sub
jpleroisse
Si celà te convient, clique réponse acceptée.
Voici un exemple, place un contrôle Timer, un CommandButton et un ProgressBar que tu nommes prgBar1.
Private Sub Form_Load()
prgBar1.Visible = False
Timer1.Interval = 1000
prgBar1.Max = 10 ' Le contrôle Timer sera actif
' pendant 10 secondes.
End Sub
Private Sub Command1_Click()
prgBar1.Visible = True
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static intTime ' Déclare la variable statique.
' La première fois, la variable est vide.
' Attribuez-lui la valeur 1 si c'est une variable
' vide.
If IsEmpty(intTime) Then intTime = 1
prgBar1.Value = intTime ' Met à jour le contrôle
' ProgressBar.
If intTime = prgBar1.Max Then
Timer1.Enabled = False
prgBar1.Visible = False
intTime = 1
prgBar1.Value = prgBar1.Min
Else
intTime = intTime + 1
End If
End Sub
jpleroisse
Si celà te convient, clique réponse acceptée.
urban_freeflow
Messages postés
6
Date d'inscription
lundi 15 août 2005
Statut
Membre
Dernière intervention
15 août 2005
15 août 2005 à 16:45
15 août 2005 à 16:45
merci bcp
xavier __du_69
xavier __du_69
