Discussion :

[cd090580]

Bonjour,

J'ai un petit programme avec une barre d'outils. Lorsque je clique sur un bouton (options), il m'ouvre la fenetre des options par dessus la fenetre principale (fonctionnement classique windows).

Maintenant, j'essaye de faire la même chose mais en passant un parametres en ligne de commande.

ex: monprog.exe /o

La form principale s'appelle MainFrm et celle des options OptFrm.
Le code pour le bouton de la barre d'outils est OptFrm.show

Maintenant, j'essaye le même avec la ligne de commande.

Donc dans la procedure Load de MainFrm j'ajoute tout a la fin du code.

Code :

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

1
2
3
4
5
 
  param = Command()
  if param = "/o" then
     OptFrm.Show
  end if

Ca fonctionne très bien sauf que la form OptFrm s'affiche toute seule. Le feuille Principale ne s'affiche que lorsque je ferme la form OptFrm.

Qu'est-ce que je pourrais modifier pour que la form FrmMain s'ouvre et qu'ensuite la form OptFrm s'oivre par dessus comme quand je clique sur le bouton de la barre d'outils ?

Merci.

[méphistopheles]

dans quel évenement récupère-tu la fonction command?

essaye de la mettre dans le activate

[cd090580]

Je vais essayer.

Je récupère Command dans l'évènement Load

[méphistopheles]

si tu le récupère dans activate, ça devrais aller

[cd090580]

Ca fonctionne mais il y a encore un problème.

Lorsque la form Options s'affiche elle a le focus (normal). Quand je la ferme, la form principale récupérère le focus et la l'évènement Activate est à nouveau exécuté ce qui fait réapparaitre la fenetre Options. ET chasue fois que je ferme la fenetre, elle réapparait.

Et si j'essaye de vider les paramètres passés en utilisant:

Code :

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

1
2
 
Command = ""

Ca plante avec l'erreur: Un objet est requis.

[SfJ5Rpw8]

tu peu mémoriser l'argument dans une variable string...

Code :

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

1
2
3
4
5
6
 
 Static mSt As String
 if mSt <> Command then
  mSt = Command
' ...  Rajoute ici traitement options...
end if