Discussion :

[kawel]

Ncha tout le monde,

Bon alors voilà je suis façe au problème suivant : J'ai une forme avec plusieurs actions possibles et je propose des choix d'options a l'utilisateur. Il s'agit d'un programme d'analyse d'image en passant. Mon problème est d'indiquer à l'utilisateur lorsque le pc calcule les précédents choix fait (chaque choix entrainant des calculs spécifiques pouvant être longs). L'idéal serait d'avoir un témoin d'utilisation de L'UC comme il y a sous windows greffé à la forme. Je n'ai pas pu trouver ceci dans les contrôles et une progressbar ne m'intéresse pas à priori.
Est-ce possible ? Cela existe-t-il ?
Svp expliquez moi cela simplement car je ne suis pas un expert (de grandes idées mais de petits moyens ).
Merci d'avance

[Asdorve]

salut

regarde l'api GetFreeResources

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Declare Function GetFreeResources Lib "RSRC32" Alias "_MyGetFreeSystemResources32@4" ( _
                 ByVal lWhat As Long) As Long

tu as peut être moyen de bricoler un truc en vb

[Asdorve]

attention, cette api ne fonctionne pas avec toutes les versions de Windows

. Windows 95/98 : Oui
. Windows NT : Non
. Windows 2000/XP : Non

[zazaraignée]

Sinon si (ElseIf) tu as une boucle dont tu connais la valeur max dans ton calcul, tu peux l'utiliser pour afficher une ProgressBar.

[kawel]

Merci pour ses informatiosn, hélàs, je suis sous windows XP et je ne connais pas la longueur des boucles que je calcule... (J'en fais plusieurs sous plusieurs variables donc c'est inutilisable comme méthode).
Je me demandais s'il n'était pas possible, pour faire plus simple, d'ouvrir le gestionnaire des tâches et de la miniaturiser pour avoir au moins une info sur l'utilisation de la CPU. Mais je crains qu'il ne soit impossible de commander windows de la sorte depuis VB6.
Si quelqu'un a des idées ou veux des éclaircissements, n'hésitez pas !
Merci en tout cas pour ces premières pistes

[zazaraignée]

Salut

Si tes boucles ressemble à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = VarDebut to VarFin

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Test = VarFin

il est possible d'utiliser le contrôle ProgressBar

Pour les information système, je ne sais pas si ça t'aidera, mais histoire de voir ce que VB nous a concocté, crée une nouvelle appli à l'aide de l'assistant et inclus une Splash Screen. Sur celle-ci tu trouveras un bouton Info Système. Jète un oeil sur le code que l'assistant y a généré. C'est toujours un début.