cs_jimmy69787
Messages postés dimanche 22 décembre 2002Date d'inscription
27 novembre 2008
Dernière intervention
-
4 oct. 2007 à 10:03 - Dernière réponse : cs_jimmy69787
Messages postés dimanche 22 décembre 2002Date d'inscription
27 novembre 2008
Dernière intervention
- 5 oct. 2007 à 09:33
J'ai une application vb6 et j'aimerais y ajouter une progress bar qui ne fasse que des aller et retour !
J'ai regarde dans la boite a outils malheureusement ce controle n'a pas l'air d'exister sous vb6 !
Est ce possible de faire une progress bar sous vb6 !?
jrivet7401
Messages postés mercredi 23 avril 2003Date d'inscription
6 avril 2012
Dernière intervention - 4 oct. 2007 à 10:13
+3
Utile
Salut,
Ajoute à ton projet le composant
Microsoft Windows Common Controls 6.0 (SP6)
Tu pourras alores utiliser le controle ProgressBar à inserer dans une feuille
Si tu l'insere dans une feuille avec un contrôle Timer essaie ce code et vois si répond à ta question
Option Explicit
Private Inc As Boolean
Private Sub Form_Load()
Inc = True
ProgressBar1.Min = 0
ProgressBar1.Max = 100
Timer1.Interval = 1
ProgressBar1.Scrolling = ccScrollingSmooth
End Sub<hr />
Private Sub Timer1_Timer()
If Inc Then
ProgressBar1.Value = ProgressBar1.Value + 1
Else
ProgressBar1.Value = ProgressBar1.Value - 1
End If If ProgressBar1.Value ProgressBar1.Max Then Inc False If ProgressBar1.Value ProgressBar1.Min Then Inc True
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]
GEDDi209
Messages postés lundi 22 novembre 1999Date d'inscription
3 juillet 2008
Dernière intervention - 4 oct. 2007 à 12:16
+3
Utile
Hello,
Sans controle de type ActiveX (Microsoft Windows Common Controls 6.0 ) tu peux tres bien mettre un Label avec une culeur de fond genre bleue qui dans ton Timer change de property sur son 'width', ce qui provoque une simulation de PBar :)
Adn561220
Messages postés jeudi 24 mai 2007Date d'inscription
28 septembre 2013
Dernière intervention - 4 oct. 2007 à 15:07
+3
Utile
salut, le timer.enabled est à true ?
et la couleur ?
bref pour ton soucis d'ocx, tu peux le copier de ton rep win/sys32, puis tu le place dans ta distrib de ton soft avec un fichier bat qui le copie dans c:/win/sys32 puis qui lance un regserver32 de l'ocx.
++
Tiens les balises ne sont pas reconnues ^_____^, zut alors.....
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
cs_jimmy69787
Messages postés dimanche 22 décembre 2002Date d'inscription
27 novembre 2008
Dernière intervention - 4 oct. 2007 à 12:35
0
Utile
salut les gars,
ok ca marche !
y'a juste un truc qui me tracasse !
quand je mets l'exe sur une autre machine et que je le lance il me dit :
MSCOMCTL.OCX is missing !!
ma machine ou j'ai essaye est un windows 2003 standart !
Vous avez une idée ..je pense que cela vient du fait que j'ai ajoute cette librairie pour travailler avec la progress bar et que je dois place cette ocx sur la machine de production ?!
lolokun1241
Messages postés mardi 10 octobre 2006Date d'inscription
27 août 2013
Dernière intervention - 4 oct. 2007 à 13:04
0
Utile
Bonjour,
Pour faire tourner ton appli sur une autre machine il faut créer un empaquêtage comprenant les dépendances de ton programme.
Fais une petite recherche sur le site avec INNO SETUP + ISTOOL et tu trouveras ton bonheur
cs_jimmy69787
Messages postés dimanche 22 décembre 2002Date d'inscription
27 novembre 2008
Dernière intervention - 4 oct. 2007 à 14:38
0
Utile
Re,
sorry mais le vb je connais pas de trop voila ce que j'ai fat mais rien n'avance !je vois la barre mais pas de progression ! j'ai bien un timer pourtant !
rivate BoolProgrBar As Boolean
Private Sub Form_Load()
BoolProgrBar = True
Label1.Width = 0
End Sub
Private Sub Timer1_Timer()
If BoolProgrBar Then
Label1.Width = Label1.Width + 1
Else
Label1.Width = Label1.Width - 1
End If
If Label1.Width = 100 Then
BoolProgrBar = False
'ProgressBar.Value = 0
Label1.Width = 0
End If
If Label1.Width = 0 Then
BoolProgrBar = True
End If
GEDDi209
Messages postés lundi 22 novembre 1999Date d'inscription
3 juillet 2008
Dernière intervention - 4 oct. 2007 à 21:31
0
Utile
Bonjour,
Tu as choisis une voie simple et qui fonctionnera de maniere plus légère :)
Autre 'truc' : à la place du label, tu prends par exemple un GIF dégradé, que tu 'allonges' comme le Label :)
@+
Gerome (auteur du langage FBSL )
http://www.fbsl.net-------------------------------------
