Accueil > > > PROGRESBAR
PROGRESBAR
Information sur la source
Description
Ce petit bout de code permet la création et la gestion d'un ProgresBar vertical ou horizontal à n'importe quel endroit d'un Form. Le traitement terminé, ce ProgresBar peut-être supprimer du Form afin d'éviter un encombrement inutile
Source
- Le code du Form pour générer et gérer la Progres Bar
-
- * ************************************************************************************************
- * *"ProgresBar" est le nom de la routine de création de la barre de progression *
- * * Param1 = Nom du formulaire (objet) *
- * * Param2 = position ligne (en pixel) affichage Barre *
- * * Param3 = position colonne (en pixel) affichage Barre *
- * * Param4 = hauteur (en pixel) affichage Barre (13 par défaut) *
- * * Param5 = longueur (en pixel) affichage Barre (370 par défaut) *
- * * Param6 = nom de la Barre de Progression ("ProgresBar" par défaut) *
- * * Param7 = Repres. de la barre 0 > pointillés | 1 > continu (0 par défaut) *
- * * Param8 = Présentation Horizonatale (H) (par défaut) ou verticale (V) *
- *************************************************************************************************
- *
- * ************************ pour une Barre Horizontale
- ThisForm.Height = 369 && Agrandi le formulaire OBLIGATOIRE
- && pour mettre la BP au pied de ton form
- Do generate IN ProgresBar WITH ThisForm,336,120,,350,"ProgresBar",1,"H" && Création de la PB
-
- * ************************ pour une Barre Verticale
- *ThisForm.Width = 680
- *Do generate IN ProgresBar WITH ThisForm,48,650,240,13,"ProgresBar",1,"V" && Création de la PB
-
- * **************** ICI la table que tu souhaites visualiser*****************
- Select maTable
- Go TOP
- * ***********************************************************************
-
- * *************************************************************************
- * * "InitProgresBar" est le nom de la routine de fonctionnement *
- * * Param1 = Nom de l'Ojet ProgresBar *
- * * Param2 = 1 pour la première entrée, sinon chaine vide *
- * * Param3 = valeur maximale de la barre *
- * * Param4 = position d'avancement pour afficher la progression *
- * * Param5 = Temporisation *
- * * Param6 = Nom de l'ojet formulaire *
- * *************************************************************************
- *
- nNBEnreg = 0
- && Initialise la ProgresBar
- Do initiate IN ProgresBar WITH ThisForm.ProgresBar,"1",RECCOUNT(),1,1,ThisForm
- * *********************** Boucle modifiable pour ta PB ****************
- Do While ! EOF()
- nNBEnreg = nNBEnreg + 1
- && Active la ProgresBar avec les Nlles valeurs
- Do initiate IN ProgresBar WITH ThisForm.ProgresBar,"",RECCOUNT(), nNBEnreg ,1,ThisForm
- Skip
- EndDo
-
- * ************************ Code non obligatoire
- *MessageBox(" Boucle ProgresBar terminée ",0+32+0," Fin de boucle")
- ThisForm.Height = 320 && Remettre le form à l'état initial
- *ThisForm.Width = 620 && Remettre le form à l'état initial
-
- Do generate IN ProgresBar WITH ThisForm,,,,,"ProgresBar", && Supprime la ProgresBar
-
-
-
- **************************************************************************************************
- -( ProgresBar.prg )-
-
-
- * *********************************************************************************
- * * ProgresBar Version 2.0 (10 mars 2005) *
- * * Routine de gestion d'une barre de prgression *
- * * Description des deux routines "generate" et "initiate" : *
- * ********************************************************************************** * * generate = génère la ProgresBar Horizontale ou Verticale *
- * * et un cadre autour *
- * * le 'TextBox' affichant le nombre d'enregistrements traités *
- * * le 'TextBox' affichant le pourcentage de progression *
- * * Supprime en finalité les Objets créés *
- * * *
- * * initiate = affiche le contenu de la ProgresBar et gére *
- * * les deux 'TextBox' d'informations *
- * *********************************************************************************
-
- FUNCTION generate
- * *****************************************************************
- * * Création d'un Objet Barre de progression *
- * *****************************************************************
- * * (*)oForm = Nom du formulaire (objet) *
- * * (*)oX = ligne (en pixel) affichage Barre *
- * * (*)oY = colonne (en pixel) affichage Barre *
- * * oHaut = hauteur (en pixel) affichage Barre *
- * * oLong = longueur (en pixel) affichage Barre *
- * * oNom = nom de la Barre de Controle *
- * * oRepres = 0 > pointillés | 1 > continu *
- * * oHVpos = o = (H)orizontale / 1 = (V)erticale *
- * *---------------------------------------------------------------*
- * * (*) Eléments obligatoires *
- * ******************************************************************
- *
- PARAMETERS oForm, oX, oY, oHaut, oLong, oNom, oRepres, oHVpos
-
- * **************************************************************
- * * Contrôle des paramètres de création et initialisation *
- * * des valeurs par défaut éventuellement *
- * **************************************************************
- oHVpos = Iif(EMPTY(oHVpos),0,Iif(oHVpos="H",0,1)) && Orientation Horizontale par défaut
- oNom = Iif(EMPTY(oNom),"BarreControle",oNom) && Nom par défaut
- oHaut = Iif(EMPTY(oHaut),Iif(oHVpos=0,13,240),oHaut) && Hauteur de l'ojet par défaut ( si H = 13 si V = 240)
- oLong = Iif(EMPTY(oLong),Iif(oHVpos=0,240,13),oLong) && Longueur par défaut (si H = 240 si V = 13)
- oRepres = Iif(EMPTY(oRepres),0,oRepres) && Présentation en pointillé par défaut
-
- * **************************************************************
- * * Supprime l"objet ProgresBar et son environnement *
- * **************************************************************
- If EMPTY(oX)
- oForm.RemoveObject(oNom)
- oForm.RemoveObject("CadreP")
- oForm.RemoveObject("nBCComptage")
- oForm.RemoveObject("nBCPourcent")
- Return
- EndIf
-
- * **************************************************************
- * * Création de la ProgresBar et de son environnement *
- * **************************************************************
- oForm.AddObject(oNom,"Thermometre","MSComctlLib.Progctrl.2")
- oForm.AddObject("CadreP","Cadre")
- oForm.AddObject("nBCComptage","txtBCC")
- oForm.AddObject("nBCPourcent","txtBCP")
-
- oProgres = oForm.&oNom
- WITH oProgres
- .Orientation = oHVpos
- .Top = oX
- .Left = oY
- .Height = oHaut
- .Width = oLong
- .Scrolling = oRepres
- .Visible = .T.
- .BorderStyle = 1
- EndWITH
-
- WITH oForm.CadreP
- .SpecialEffect = 0
- .Top = oX-4
- .Left = oY-4
- .Height = oHaut+8
- .Width = oLong+8
- .BackColor = RGB(250,255,255)
- .Visible = .T.
- EndWITH
-
- WITH oForm.nBCComptage
- .Width = 100
- .Height = 19
- .Left = Iif(oHVpos=0 , oY , oY-(.Width/2))
- .Top = oX - .Height
- .Alignment = Iif(oHVpos=0, 0, 2)
- .BorderStyle = 0
- .BackStyle = 0
- .FontBold = .T.
- .FontItalic = .T.
- .FontSize = 8
- .ForeColor = RGB(128,64,64)
- .SpecialEffect = 1
- .Visible = .T.
- EndWITH
-
- WITH oForm.nBCPourcent
- .Width = 50
- .Height = 23
- .Left = Iif(oHVpos=0 , oY+((oLong/2)-(.Width/2)) , oY- (.Width / 2))
- .Top = Iif(oHVpos=0 , oX - .Height, (oHaut/2)+(oX-oLong) )
- .Alignment = Iif(oHVpos=0, 2, 0)
- .BorderStyle = 0
- .BackStyle = 0
- .FontBold = .T.
- .FontSize = 8
- .ForeColor = RGB(0,0,255)
- .SpecialEffect = 1
- .InputMask = "999 %"
- .Visible = .T.
- EndWITH
-
- Define CLASS Thermometre AS OLEControl
- EndDefine
- Define CLASS Cadre AS Container
- EndDefine
- Define CLASS txtBCC AS TextBox
- EndDefine
- Define CLASS txtBCP AS TextBox
- EndDefine
-
- * *************\\\\\\\\\\\\\\\\\\\\\\\\*************
- FUNCTION initiate
- * *************************************************************************
- * * Module de gestion d'une barre de progression *
- * *************************************************************************
- * * oBProg = nom de l'objet Barre de progression *
- * * cAppel = 1 pour la première entrée, sinon chaine vide *
- * * nValMax = valeur maximale de la barre *
- * * nCount = position d'avancement pour afficher la progression *
- * * nBoucle = Valeur permettant le ralentissement de la progression *
- * * oForm = Nom de l'ojet formulaire *
- * *************************************************************************
- *
- PARAMETERS oBProg, cAppel, nValMax, nCount, nBoucle, oForm
-
- If cAppel = "1"
- oBProg.Max = nValMax && Init Valeur maximale de la barre
- Return
- EndIf
-
- For iSituation = 1 to nBoucle && Boucle de temporisation
- EndFor && Pour une progression trop rapide
-
- oBProg.Value = nCount && Fait progresser la barre
- oForm.nBCComptage.Value = nCount && Affiche la valeur transmise (RECCOUNT() ou autre)
- oForm.nBCPourcent.Value = INT(( nCount /nValMax)*100) && Affiche le % de progression
- oForm.nBCPourcent.Refresh
Le code du Form pour générer et gérer la Progres Bar
* ************************************************************************************************
* *"ProgresBar" est le nom de la routine de création de la barre de progression *
* * Param1 = Nom du formulaire (objet) *
* * Param2 = position ligne (en pixel) affichage Barre *
* * Param3 = position colonne (en pixel) affichage Barre *
* * Param4 = hauteur (en pixel) affichage Barre (13 par défaut) *
* * Param5 = longueur (en pixel) affichage Barre (370 par défaut) *
* * Param6 = nom de la Barre de Progression ("ProgresBar" par défaut) *
* * Param7 = Repres. de la barre 0 > pointillés | 1 > continu (0 par défaut) *
* * Param8 = Présentation Horizonatale (H) (par défaut) ou verticale (V) *
*************************************************************************************************
*
* ************************ pour une Barre Horizontale
ThisForm.Height = 369 && Agrandi le formulaire OBLIGATOIRE
&& pour mettre la BP au pied de ton form
Do generate IN ProgresBar WITH ThisForm,336,120,,350,"ProgresBar",1,"H" && Création de la PB
* ************************ pour une Barre Verticale
*ThisForm.Width = 680
*Do generate IN ProgresBar WITH ThisForm,48,650,240,13,"ProgresBar",1,"V" && Création de la PB
* **************** ICI la table que tu souhaites visualiser*****************
Select maTable
Go TOP
* ***********************************************************************
* *************************************************************************
* * "InitProgresBar" est le nom de la routine de fonctionnement *
* * Param1 = Nom de l'Ojet ProgresBar *
* * Param2 = 1 pour la première entrée, sinon chaine vide *
* * Param3 = valeur maximale de la barre *
* * Param4 = position d'avancement pour afficher la progression *
* * Param5 = Temporisation *
* * Param6 = Nom de l'ojet formulaire *
* *************************************************************************
*
nNBEnreg = 0
&& Initialise la ProgresBar
Do initiate IN ProgresBar WITH ThisForm.ProgresBar,"1",RECCOUNT(),1,1,ThisForm
* *********************** Boucle modifiable pour ta PB ****************
Do While ! EOF()
nNBEnreg = nNBEnreg + 1
&& Active la ProgresBar avec les Nlles valeurs
Do initiate IN ProgresBar WITH ThisForm.ProgresBar,"",RECCOUNT(), nNBEnreg ,1,ThisForm
Skip
EndDo
* ************************ Code non obligatoire
*MessageBox(" Boucle ProgresBar terminée ",0+32+0," Fin de boucle")
ThisForm.Height = 320 && Remettre le form à l'état initial
*ThisForm.Width = 620 && Remettre le form à l'état initial
Do generate IN ProgresBar WITH ThisForm,,,,,"ProgresBar", && Supprime la ProgresBar
**************************************************************************************************
-( ProgresBar.prg )-
* *********************************************************************************
* * ProgresBar Version 2.0 (10 mars 2005) *
* * Routine de gestion d'une barre de prgression *
* * Description des deux routines "generate" et "initiate" : *
* ********************************************************************************** * * generate = génère la ProgresBar Horizontale ou Verticale *
* * et un cadre autour *
* * le 'TextBox' affichant le nombre d'enregistrements traités *
* * le 'TextBox' affichant le pourcentage de progression *
* * Supprime en finalité les Objets créés *
* * *
* * initiate = affiche le contenu de la ProgresBar et gére *
* * les deux 'TextBox' d'informations *
* *********************************************************************************
FUNCTION generate
* *****************************************************************
* * Création d'un Objet Barre de progression *
* *****************************************************************
* * (*)oForm = Nom du formulaire (objet) *
* * (*)oX = ligne (en pixel) affichage Barre *
* * (*)oY = colonne (en pixel) affichage Barre *
* * oHaut = hauteur (en pixel) affichage Barre *
* * oLong = longueur (en pixel) affichage Barre *
* * oNom = nom de la Barre de Controle *
* * oRepres = 0 > pointillés | 1 > continu *
* * oHVpos = o = (H)orizontale / 1 = (V)erticale *
* *---------------------------------------------------------------*
* * (*) Eléments obligatoires *
* ******************************************************************
*
PARAMETERS oForm, oX, oY, oHaut, oLong, oNom, oRepres, oHVpos
* **************************************************************
* * Contrôle des paramètres de création et initialisation *
* * des valeurs par défaut éventuellement *
* **************************************************************
oHVpos = Iif(EMPTY(oHVpos),0,Iif(oHVpos="H",0,1)) && Orientation Horizontale par défaut
oNom = Iif(EMPTY(oNom),"BarreControle",oNom) && Nom par défaut
oHaut = Iif(EMPTY(oHaut),Iif(oHVpos=0,13,240),oHaut) && Hauteur de l'ojet par défaut ( si H = 13 si V = 240)
oLong = Iif(EMPTY(oLong),Iif(oHVpos=0,240,13),oLong) && Longueur par défaut (si H = 240 si V = 13)
oRepres = Iif(EMPTY(oRepres),0,oRepres) && Présentation en pointillé par défaut
* **************************************************************
* * Supprime l"objet ProgresBar et son environnement *
* **************************************************************
If EMPTY(oX)
oForm.RemoveObject(oNom)
oForm.RemoveObject("CadreP")
oForm.RemoveObject("nBCComptage")
oForm.RemoveObject("nBCPourcent")
Return
EndIf
* **************************************************************
* * Création de la ProgresBar et de son environnement *
* **************************************************************
oForm.AddObject(oNom,"Thermometre","MSComctlLib.Progctrl.2")
oForm.AddObject("CadreP","Cadre")
oForm.AddObject("nBCComptage","txtBCC")
oForm.AddObject("nBCPourcent","txtBCP")
oProgres = oForm.&oNom
WITH oProgres
.Orientation = oHVpos
.Top = oX
.Left = oY
.Height = oHaut
.Width = oLong
.Scrolling = oRepres
.Visible = .T.
.BorderStyle = 1
EndWITH
WITH oForm.CadreP
.SpecialEffect = 0
.Top = oX-4
.Left = oY-4
.Height = oHaut+8
.Width = oLong+8
.BackColor = RGB(250,255,255)
.Visible = .T.
EndWITH
WITH oForm.nBCComptage
.Width = 100
.Height = 19
.Left = Iif(oHVpos=0 , oY , oY-(.Width/2))
.Top = oX - .Height
.Alignment = Iif(oHVpos=0, 0, 2)
.BorderStyle = 0
.BackStyle = 0
.FontBold = .T.
.FontItalic = .T.
.FontSize = 8
.ForeColor = RGB(128,64,64)
.SpecialEffect = 1
.Visible = .T.
EndWITH
WITH oForm.nBCPourcent
.Width = 50
.Height = 23
.Left = Iif(oHVpos=0 , oY+((oLong/2)-(.Width/2)) , oY- (.Width / 2))
.Top = Iif(oHVpos=0 , oX - .Height, (oHaut/2)+(oX-oLong) )
.Alignment = Iif(oHVpos=0, 2, 0)
.BorderStyle = 0
.BackStyle = 0
.FontBold = .T.
.FontSize = 8
.ForeColor = RGB(0,0,255)
.SpecialEffect = 1
.InputMask = "999 %"
.Visible = .T.
EndWITH
Define CLASS Thermometre AS OLEControl
EndDefine
Define CLASS Cadre AS Container
EndDefine
Define CLASS txtBCC AS TextBox
EndDefine
Define CLASS txtBCP AS TextBox
EndDefine
* *************\\\\\\\\\\\\\\\\\\\\\\\\*************
FUNCTION initiate
* *************************************************************************
* * Module de gestion d'une barre de progression *
* *************************************************************************
* * oBProg = nom de l'objet Barre de progression *
* * cAppel = 1 pour la première entrée, sinon chaine vide *
* * nValMax = valeur maximale de la barre *
* * nCount = position d'avancement pour afficher la progression *
* * nBoucle = Valeur permettant le ralentissement de la progression *
* * oForm = Nom de l'ojet formulaire *
* *************************************************************************
*
PARAMETERS oBProg, cAppel, nValMax, nCount, nBoucle, oForm
If cAppel = "1"
oBProg.Max = nValMax && Init Valeur maximale de la barre
Return
EndIf
For iSituation = 1 to nBoucle && Boucle de temporisation
EndFor && Pour une progression trop rapide
oBProg.Value = nCount && Fait progresser la barre
oForm.nBCComptage.Value = nCount && Affiche la valeur transmise (RECCOUNT() ou autre)
oForm.nBCPourcent.Value = INT(( nCount /nValMax)*100) && Affiche le % de progression
oForm.nBCPourcent.Refresh
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice CRéATION D'UNE BASE DE DONNéE SOUS SQL AZURECRéATION D'UNE BASE DE DONNéE SOUS SQL AZURE par junarnoalg
Sans rentrer dans les détails, je me propose ici de faire un rapide tour de ce que propose SQL Azure.
SQL Azure est avant tout un service d'hébergement de base de données relationnelles construit sur SQL Server. Il permet aux entreprises d...
Cliquez pour lire la suite de l'article par junarnoalg TECHDAYS PARIS 2010 : LES SERVICES D'APPLICATIONS DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LES SERVICES D'APPLICATIONS DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Xavier Moreels et Julien Bakmezdjian Ce sujet est lié au partage des applications comme services dans SharePoint 2010, ceci représente la possibilité de créer sa propre application qui sera utilisable comme ceux en standard : Search...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|