Page 1 sur 1
[..] Désactiver l'apparition des Msgbox
Posté : mer. 21 déc. 2011 15:20
par tanguy53
Bonjour à tous
J'aimerais réaliser une fonction permettant de désactiver l'affichage des Msgbox d'une
manière simple et rapide mais je sais pas trop comment m'y prendre.
Imaginons que j'ai envie d'ouvrir deux Notepad:
1er cas, les Msgboxs apparaitrons
2nd cas, les Msgbox n'apparaitrons pas
je pense qu'il faut utiliser la macro @SW_Hide
► Afficher le texte
Code : Tout sélectionner
$MsgBox = 1 ; */ Defaut = 1 | Msgbox s'affiche = 1, Msgbox ne s'affiche pas =0 */
Run(@WindowsDir & "Notepad.exe")
Msgbox(0,"test1","Lancement du 1er notepad")
Run(@WindowsDir & "Notepad.exe")
Msgbox(0,"test2","Lancement du 2nd notepad")
Func MsgBoxOnOff ($on, $Off)
if MsgBox = 1 then Afficher les MsgBoxs
else Ne pas afficher les MsgBoxs
Merci d'avance
Re: [..] Désactiver l'apparition des Msgbox
Posté : mer. 21 déc. 2011 15:50
par DimVar
Bonjour,
Quelque chose dans le genre :
► Afficher le texte
Code : Tout sélectionner
$MsgBox = 1 ; */ Defaut = 1 | Msgbox s'affiche = 1, Msgbox ne s'affiche pas =0 */
Run(@WindowsDir & "Notepad.exe")
if MsgBox = 1 then Msgbox(0,"test1","Lancement du 1er notepad")
Run(@WindowsDir & "Notepad.exe")
if MsgBox = 1 then Msgbox(0,"test2","Lancement du 2nd notepad")
Func MsgBoxOnOff ($on, $Off)
if MsgBox = 1 then Afficher les MsgBoxs
else Ne pas afficher les MsgBoxs
Re: [..] Désactiver l'apparition des Msgbox
Posté : mer. 21 déc. 2011 16:09
par ZDS
Bonjour,
J'allais te proposer le même genre de code :
► Afficher le texteFonction "MsgBoxDebug" en local
Code : Tout sélectionner
Local $debug = True
...
...
MsgBoxDebug($debug, 0,"test2","Lancement du 2nd notepad")
...
...
Func MsgBoxDebug($debug, $flag, $title, $text, $timeout=0, $hwnd=Default)
If $debug Then Return MsgBox($flag, $title, $text, $timeout, $hwnd)
Return 0
EndFunc
Ou bien
► Afficher le texteFonction "MsgBoxDebug" en global
Code : Tout sélectionner
Global $debug = True
...
...
MsgBoxDebug(0,"test2","Lancement du 2nd notepad")
...
...
Func MsgBoxDebug($flag, $title, $text, $timeout=0, $hwnd=Default)
If $debug Then Return MsgBox($flag, $title, $text, $timeout, $hwnd)
Return 0
EndFunc
A bientôt !
Re: [..] Désactiver l'apparition des Msgbox
Posté : mer. 21 déc. 2011 16:12
par tanguy53
Merci à vous deux,
Je vais tester ça! =)