AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 06:24:19
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PROGRESSBAR DANS UN STATUSBAR SIMPLEMENT


Information sur la source

Catégorie :Control Classé sous : progress, barre, progressbar, progression, barres Niveau : Débutant Date de création : 06/11/2005 Vu / téléchargé: 8 221 / 1 800
Auteur : bouv Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
Aucune note
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Le seul code que j'ai trouvé sur le site et qui faisait cela utilise un picturebox.

J'ai donc mis un point un petit code qui place une vrai progressbar (ou un ocx de votre mouture si vous le voulez) dans une progressbar.

Laissez vos commentaires.
 

Source

  • Private Sub Form_Resize()
  • If Not Me.WindowState = 1 Then Call Set_Progress_Bar(ProgressBar1, StatusBar1, 2)
  • End Sub 
Private Sub Form_Resize()
    If Not Me.WindowState = 1 Then Call Set_Progress_Bar(ProgressBar1, StatusBar1, 2)
End Sub

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de econs le 07/11/2005 15:31:35 administrateur CS

Il ne manque qu'un contrôle de validité sur Index_Panel pour que l'illusion soit parfaite.
Call Set_Progress_Bar(ProgressBar1, StatusBar1, 5) fait bien entendu planter ta fonction. Rien de bien grave en soit.

L'idée est sympa.

signaler à un administrateur
Commentaire de P__ROMEO le 07/11/2005 16:19:07

Salut!

Call Set_Progress_Bar(ProgressBar1, StatusBar1, 5) ??  cela doit être?? ou c'est ce qui fait planter??
parce que, voila ce que bouv a fait : Call Set_Progress_Bar(ProgressBar1, StatusBar1, 2)

Bouv>> ca aurait été plus interessant de montrer comment l'on peut faire évoluer la progresse bar pendant un déplacement de fichier, ou pendant un chargement par exemple. mais, c'es pas mal.
ca marche chez moi.

Pas noté. espère une mise a jour.

A+

bonne programmation

signaler à un administrateur
Commentaire de bouv le 07/11/2005 17:50:04

Econs>>Oui effectivement j'y avait pas pensé, maitenant c'est au developpeur de faire attention au panel qu'il appel. Un mauvais panel appelé ferait planter n'importe quelle appli, même en dehors de ce code.

P_ROMEO>>Le pb dont parle Econs est que la fonction plante par ex ici :
Status_Bar.Panels(Index_Panel).Left
Si tu passe un mauvais Index_Panel à la fonction.
Sinon pour ta remarque sur le deplacement de fichier pourquoi pas, mais mon idée était ici simplement de montrer comment mettre un progressbar dans un statusbar rien de plus. Maintenant si tu me ponds un petit bout de code, je l'ajouterai volontier.

++

signaler à un administrateur
Commentaire de P__ROMEO le 07/11/2005 18:29:19

Pourquoi pondre ce qui l'est??

http://www.vbfrance.com/code.aspx?id=687

C’est ce code que j'utilise moi. (Juste Um peu de modification pour optimiser.) Et, pourquoi ne pas demander la permission à son auteur "FredericPinchon" si ca le dérange pas que tu utilises l'un de ses codes, en l'optimisant pour ta source.  (Demander... juste par respect!!   NB : Dernier signe de vie : 27/07/2004 02:04:48)

Et, j'en avais vu aussi d'autre. C’est pour cela que je t'ai proposé d'améliorer le tien, parce qu'en effet, si pas amélioré, certain admin pourrais dire que c'es inutile. (Moi je trouve utile)

Et, j’avais un fichier d’aide (MSDN) spécial sur se sujet. Je l’ai égaré. Dès que je le trouve, je te l’envoi.

Bonne continuation.

signaler à un administrateur
Commentaire de bouv le 07/11/2005 22:32:36

Je pense pas qu'un admin trouve cela inutile dans la mesure où j'ai rien trouvé de similaire sur le site. Maintenant je peu me tromper.

Et vu que tu as donné le lien vers une source qui utilise la progressbar dans la recopie de fichier, je pense qu'il n'est pas utile que je l'ajoute à mon code. Chacun pourra aller se servir. Je m'en vais d'ailleurs jetter un oeil.

Bonne prog
++

signaler à un administrateur
Commentaire de bouv le 07/11/2005 22:40:41

OK je viens de visiter le code. Il utilise simplement un acces binaire et recopie le fichier Ko par Ko... Simple mais efficace. Je pense pas qu'on puisse faire mieux.

Bonne prog
++

signaler à un administrateur
Commentaire de P__ROMEO le 07/11/2005 23:53:46

Je ne disais pas de faire un copié collé du code. Je pensais à ce que tu l'améliores. Maintenant, si pas mieux, c'est bien. De toutes les façons le lien est là, tous pourront voir. (Notez que la source est bien commenté. les débutants n'auront pas trop de mal.) Toujours pas trouvé le fichier aide. Mais il sortira bien un jour!!!
Et pour la réponse à ma question la haut, c'est enregistré.

Bonne programmation

signaler à un administrateur
Commentaire de P__ROMEO le 08/11/2005 00:07:15

Pour ta phrase: "Je ne pense pas qu'un admin trouve cela inutile dans la mesure où j'ai rien trouvé de similaire sur le site. Maintenant je peu me tromper."

Tu as raison, je me suis limité sur le fait que se soit une progressebar. Mais, rien à avoir avec les autres. Et même que là (et je n'ai pas un lien) tu devrais plutôt si tu peux, faire une gestion du chargement. Un peu comme internet explorer. C’est juste une proposition, et qui n'es pas qu'a toi!!! Je chercherais aussi.

Bonne programmation

signaler à un administrateur
Commentaire de Renfield le 28/06/2006 14:35:02 administrateur CS

Je ne suis pas d'accord avec ce code...

tu ajoutes des Offsets de dimension arbitaire :

#     Progress_Bar.Width = Status_Bar.Panels(Index_Panel).Width - 45
#     Progress_Bar.Top = Status_Bar.Top + 45
#     Progress_Bar.Height = Status_Bar.Height - 75

Ceux-ci pourraient ne pas être corrects, avec, par exemple, un autre theme pour Windows

signaler à un administrateur
Commentaire de bouv le 28/06/2006 17:43:14

Renfield>>Oui effectivement tu as raison.
J'ai l'impression d'avoir posté ça il y a des lustres.
Mais comment récupérer des Offsets valides en fonction du thème Windows ?

signaler à un administrateur
Commentaire de Renfield le 28/06/2006 17:53:57 administrateur CS

pour récupérer dans lpR le cadre du panel.

Public Const WM_USER As Long = &H400
Public Const SB_GETRECT As Long = (WM_USER + 10)

Dim lpR As RECT
    SendMessage CcStatus.hwnd, SB_GETRECT, CcStatus.Panels("IDPROGRESS").Index - 1, lpR

signaler à un administrateur
Commentaire de bouv le 28/06/2006 18:05:03

Je vais également essayé de zieuter ça ce soir ;-)

signaler à un administrateur
Commentaire de Mrad1980 le 10/07/2006 18:11:32

Que pense tu si on avais un objet MDIForm avec un Status Bar , alors il faut rectifier ce code pour que ca marche pour une feuille MDI ...

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

barre de progression [ par Wamy ] Salut a tous ! bon, voici mon pb :J'ai une feuille excel enorme qui met une plombe a s"afficher pacqu'elle effectue enormément de traitements.Je voudr La Progressbar (Barre de progression) [ par Sytchev3 ] Je développe une application en VB 6 :cette application a pour but de mettre à jour une base de données donc :Je réalise une sauve barre de progression temporelle [ par panorama12 ] bonjour.pouvez-vous m'aider? Je voudrais inclure dans mon programme vb une barre de progression qui commence au lancement du programme et qui avance t Etat et Barre de Progression [ par Regnak ] Bonjour, a tous, Mon application access genere un pdf apres que j'ai lance cette operation par un click. [...] .Et au final  tout repose sur la comman progressbar avec un navigatur web dans la barre d'état [ par zakaria123456 ] Bonjour!Voilà mon problème est que je suis en train de créer un navigateur webje veux créer une barre d'état qui montre l'&#2 Changer la couleur de la barre sur la progressbar [ par fauve ] Bonjour,            Je voudrais s'il est possible de pouvoir changer la couleur de la barre d'une progressbar ( Vert, Orange, Rouge ) en fonction de l Comment mettre en place une barre de progression? [ par cissou06 ] Bonjour!Voilà, j'ai des macros qui tournent sous excel, qui copient des cellules dans d'autres cellules sur des fichiers plus ou moins longs, du coup Barre de progression durant un traitement long [ par Bobresss ] Bonjour,mon programme fait appel à un lot SQL Server 2000 et durant son execution je voudrais lancer une barre de progression,j'ai deja essayé avec un créer un code barre [ par Bigrounours ] bonjour,Je voudrais créer un code barre en format word.J'ai déja telechargé des polices pour faire des codes barres , mais ma douchette (lecteur de co Supprimer la barre des titres et les barres d'outils d'une appli exterieure [ par andrebernard ] Bonjour à tousVoila, je suis arrivé grace à la précieuse aide de DARKSIDIOUS à insérer une apli exterieure dans une form.Mais voila, moins on s'y conn


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,437 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.