Discussion :

[totoche]

J'ai une feuille mdi1 qui me permet d'ouvrir une feuille mdi2.
Comment faire pour rendre impossible le fait de cliquer sur mdi1 tant que mdi2 est ouvert ?

Précisions
mdi2 s'affiche au 1er plan, et mdi1 est à l'arrière plan, mais comme la taille de mdi1 est > à la taille mdi2 on peut cliquer sur md1 alors que mdi2 est ouvert, là est mon probléme...
merci

[GodGives]

Je pense que cela serait plus facile de le faire si tes forms ne sont pas des mdi; il suffisait:

Code :

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

form.show, vbmodal

Mais comme tu tiens à utiliser les mdi, il te faut donc garder ton premier mdi au premier plan;

Vas sur cette page qui peut t'aider:
http://www.developpez.net/forums/sho...e+premier+plan

Le code de ProgElecT de tu trouveras sur la page te permettra de maintenir ton mdi1 au premier plan en écrivant n'importe où:

Code :

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

PremierPlan mdi1

donc, tu peux écrire ce code sur l'évènement activate de ton mdi2 mais avant, rassures-toi que le mdi1 est bien chargé!

Bonne Chance.

[OhMonBato]

Tu peux mettre la propriété Enabled de la feuille 1 à False tant que la feuille 2 est ouverte, puis la remttre à True bien sûr ensuite.

[totoche]

Pourquoi j'y ai pas pensé
merci OhMonBato
et merci GodGives

[GodGives]

La solution de OhMonBato parait très simple, tu pourrais l'essayer!

Néanmoins, cela ne maintiens pas le mdi en premier plan; tu peux basculer sur le mdi2 mais étant donné que sa propriété enabled est à false, tu peux rien faire sur ça!

Merci de nous donner des nouvelles!!!

[OhMonBato]

Ben, sauf erreur de ma part, non, tu ne peux pas mettre la feuille qui a sa propriété Enabled à False au premier plan, donc je pense que ça devrait suffire comme ça. On verra l'avis de Totoche.

[GodGives]

Il peut ne pas y avoir que ces deux forms!

Néanmoins, ohmonbato, je te donne raison!!!

[ucfoutu]

Bonjour,

Une autre solution toute bête, qui a l'avantage de te permettre quand même de fermer Form2 en cliquant sur sa "petite croix dans sa barre de titre :

Code :

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

1
2
3
4
Private Sub Form_GotFocus()
  '......If ... ce que tu veux ... par exemple Form1.visible = True then
  Form1.SetFocus
End Sub