Fermeture automatique de MsgBox

Question

Bonjour &#224; toutes et &#224; tous,

Voila, j'ai un pb (... non sans d&#233;c) en VB.Net 2003 :
Je dispose d'une feuille principale MDI qui contient plusieurs feuilles enfants.
Mon programme les ferme automatiquement au bout d'un certain temps d'inactivit&#233;.
Pour fermer les feuilles enfants contenues dans ma feuille principale, pas de pb. Par contre, il peut arriver qu'une des feuilles enfants g&#233;n&#232;re une MsgBox apr&#232;s une action de la part de l'utilisateur. Et la, si ce dernier part et ne revient pas (perdu sur le chemin du retour, rupture d'anevrisme...faut tout pr&#233;voir...) : ma fermeture automatique plante, car je d&#233;truits toutes les feuilles enfants, y compris celle qui a g&#233;n&#233;r&#233; ma MsgBox! Et ca, VB.Net, il aime pas trop...

Auriez-vous une solution ?

Sachant que :
- J'ai essay&#233; le SendKeys.Send pour envoyer a mon appli la touche ALT + N pour valider le bouton "NON" de ma MsgBox
- J'ai essay&#233; le SendKeys.Send pour envoyer a mon appli la touche ECHAP pour valider le bouton "OK" de ma MsgBox
- Les boutons des mes MsgBox varient : un coup y a du VbYesNo, un coup du VbOK, un coup du VbYesCancel, etc...

Je vous remercie par avance pour votre aide!


Richy

cs_JMO · Answer

Bonjour ,

Possibilit&#233; de remplacer MsgBox par Popup avec un timer.

Const TIMEOUT = 10
Set objShell = WScript.CreateObject("WScript.Shell")


Reponse = objShell.Popup(vbCrLf & _
 "Ce Popup remplace un MsgBox" &vbCrLf&vbCrLf& "Sans action de votre part," &vbCrLf&vbCrLf&_
  "ce popup s'effacera dans " &vbCrLf& TIMEOUT & " secondes" &vbCrLf&vbCrLf&_
  "Vous ne pouvez pas fermer ce popup par la croix !!!" ,TIMEOUT, _
  "MsgBox personnalis&#233;",vbYesNo + vbQuestion)
 
Select Case Reponse
   Case vbYes: objShell.Popup "Vous avez cliqu&#233; sur Oui" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
   Case vbNo:  objShell.Popup "Vous avez cliqu&#233; sur Non" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
   Case -1:    Wscript.Quit
End Select
Set objShell = Nothing

jean-marc

NHenry · Answer

Bonjour

Sinon, essaye de pr&#233;voir un comportement par d&#233;faut, tu peux utiliser un attribut dont tu d&#233;finit la valeur pour savoir si la fermeture est automatique ou manuelle.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

richy93 · Answer

Merci bien,

Je vais &#233;tudier vos r&#233;ponses et voir si y a moyen de jouer avec l'une ou l'autre.

Bonne continuation!

cs_nereck · Answer

L'histoire de la popup fonctionne très bien. Merci à toi JM ! Cela m'est très pratique.