multitaches

Version imprimable

Voir 40 message(s) de cette discussion en une page

31/10/2005, 15h54
mohcine

multitaches

Je souhaiterais utiliser une progressbar pour indiquer le temps restant à un chargement d'une feuille(feuille1).
pour cela j'ai mis une progressbar dans une autre feuille(feuille2) qui sera affichée pendant le chargement de la 1ere feuille.
Comment Fait-on ???
Aidez moi SVP
31/10/2005, 16h23
méphistopheles

bonjour
quels sonts les parametres qui ralentissent le chargement de ta feuille?
c'est une procédure ou simplement le chargement des controles?

salut
31/10/2005, 16h28
mohcine

je charge une datagrid . la requete de donnee est un peut lourde
31/10/2005, 17h08
Mandalar

http://vb.developpez.com/faq/?page=Autres#jauge
Je pense pas que ton probleme soit si différent de celui abordé dans la faq.
31/10/2005, 17h39
mohcine

merci. mais mon probleme n'est pas dans l'utilisation du progressbar je veux que pendant le chargemet de la feuille1 l'utilisateur puisse voir la feuille2 contenant la progressbar
01/11/2005, 08h32
Mandalar

regle ton projet pour qu'il ouvre la form2 au démarrage et dans le form load de la form2 mets :

Code:

Form1.Show

j'espere que ca t'aide :wink:
01/11/2005, 11h07
mohcine

Non ça ne marche pas . je dois tjrs attendre le chargement de la feuille1 avant que le feuille2 se charge.
en m'a suggéré le multuthread mais je ne sais pas comment l'utiliser pour chargr les 2 feuilles en même temps .
01/11/2005, 12h04
Mandalar

ou alors le contraire (form2.Show lors du form_load de la form1) ?
01/11/2005, 12h06
méphistopheles

dans composant, clique sur projet, là choisit comme feuille de départ form2.

salut :wink:
03/11/2005, 11h00
mohcine

j'ai essayé et ça à l'air de marcher mais le problème est que je ne peux mettre cette page au départ .
03/11/2005, 16h55
ouskel'n'or

Et pourquoi pas un progressbar dans la feuille que tu veux voir, progressbar que tu masques quand tu n'en as plus besoin ?

Juste une idée comme ça... si les autres ne te vont pas...
03/11/2005, 17h03
méphistopheles

Citation:

Envoyé par mohcine

j'ai essayé et ça à l'air de marcher mais le problème est que je ne peux mettre cette page au départ .

dans ta barre d'outils, clique sur projet, clique sur "propriété de ''monprojet''" ou ''monprojet est le nom de ton projet.
une fenetre s'affiche alors.
Dans l'onglet général, clique sur "objet de démarage" et là choisit form2.

:arrow: je peux pas être plus précis

salut :wink:
07/11/2005, 10h57
mohcine

:D je ne peux pas la mettre comme feuille de demarrage car je demarre déja par une feuille MDI où j'ai un menu general.
08/11/2005, 20h07
fourgeaud

Bonjour,

dans ce cas là, a partir de ton menu général lance la feuille 2 et tu met un bouton dans la feuille 2 qui lance la feuille 1. Quand tu click sur le bouton il se cache et ta progress bar commence son chargement.
C'était juste une idée comme ça.

A+ :D
08/11/2005, 20h38
méphistopheles

c'est un code copié collé non?
08/11/2005, 23h25
leroissejp

Bonsoir,
Excuse moi, mais je ne vois pas pourquoi tu mets ta ProgressBar dans une autre Form. Dans tout les programmes la ProgressBar se trouve dans la feuille où s'éffectue le chargement (faire patienter l'utilisateur).

jpleroisse
09/11/2005, 19h42
méphistopheles

Par-ce qu'il est plus simple est plus convivial de voir un écran d'acceuil avec une progresbar qu'une form avec des controles qui se chargent lentement uns à uns, te donnant l'impression que l'ordi sature et où tu n'est pas sûr que la progressbar va se charger en premier.
serieux, je trouve sa methode tout à faitcompréensible.
Donne moi des logiciels avec chargement au démarage qui n'ont pas d'écran d'acceuil, c'est rare.

salut :wink:

une idée pas plus: :)
le chargement des données se fait par une requéte,
alors n'oublie pas de mettre le datasource de datagrid au nothing, avant le lancement de votre requete, et l'affecté aprés
pour votre progressebar utlise un timer avec interval >=500, c'est mieu je pence

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
' dans dataenvironement
Public Function MyExecSQL_(s) As Integer
On Error GoTo eror
If rsExeSQL_.State = 1 Then rsExeSQL_.Close
rsExeSQL_.Source = s
rsExeSQL_.Open
MyExecSQL_ = rsExeSQL_.RecordCount
Exit Function
eror:
MyExecSQL_ = -1
End Function
' dans votre forme
private i as integer
private d as boolean
sub chargement
Dim s As String
With DataEnvironment1
    Set DataGrid1.DataSource = Nothing
    s = "SELECT * FROM " & Nom_Tabl
  progressebar.position:=0
 i=0:d=true
   timer.eneable:=true
    .MyExecSQL_ s
  timer1.enable:=false
    Set DataGrid1.DataSource = DataEnvironment1
End With
sub  timer
  ' comme on sait pas d'avance le nombre d'enregistrement
  if d then 
     i=i+1
     if i>=100 then d=false 
  else 
    i=i-1 
    if i<=0 then d=true
  end if
  progressebar.position=i
end sub

:? :?:

10/11/2005, 10h01
mohcine

oui avec boucoups de modifs
10/11/2005, 10h06
mohcine

pardons je n'ai pas vu la 2éme page :) j'étais pressé .

je vais voir avec ce code .

Voir 40 message(s) de cette discussion en une page