Fermeture d'un Dialog box

Question

Salut à tous...

J'ai un petit probleèm avec un macro que je me suis créé à l'aide de l'assisatnt macro... J'ai fais quelque modifications à l'intérieur de ce macro mais il me reste une chose que je ne réussi pas à faire... soit fermer le dialog box....

Je débute avec VBA

Je vous mets le code du macro avec les commentaire de l'assistant macro...

Si quelqu'un peut m'aider pour imposer la fermeture des 2 dialogbox.

P.S. J'ai essayé avec l'assisatnt macro en mode Play de femrwer les dialog et ca fonctionne pas et j'ai essayé de seulement fermewr un disalogbox afin de récupérer le code mais ca me donne rien...
J'ai essayer cette ligne MbeSendCommand "MDL KEYIN DIMSET DIALOG DIMSETTINGS CLOSE"  mais ca fonctionne pas....

Si quelqu'un peut m'aider  je vous remerci d'avance

Sub main()
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint


'   Send a keyin that can be a command string
    MbeSendKeyin "set hilite=green"


'   Start a command
    MbeSendCommand "MDL KEYIN DIMSET DIALOG DIMSETTINGS OPEN"


'   Set a variable associated with a dialog box


    MbeSetAppVariable "DIMSET", "tcb->ad4.ext_dimflg.decimal_comma", 1&


    MbeSetAppVariable "DIMSET", "tcb->ad4.ext_dimflg.leading_zero", 1&


    MbeSetAppVariable "DIMSET", "tcb->ad4.ext_dimflg.trailing_zeros", 1&


    MbeSetAppVariable "DIMSET", "tcb->ad5.flags.metricSpc", 0&


    MbeSendCommand "DIALOG LEVELSYMB "


'   When a command brings up a modal dialog,
'   a later statement must close the dialog,
'   or the MbeState.modalDialogByUser property
'   should be set to 1 so that the user must close
'   the dialog when the macro is executed.
'   Also, you may not use the debugger "Step"
'   commands while a modal dialog is displayed.


'   Opened modal dialog "Level Symbology"


    MbeSetAppVariable "MGDSHOOK", "levSymbGP->overrideColor", -1&


    MbeSetAppVariable "MGDSHOOK", "levSymbGP->overrideStyle", 0&


    MbeSetAppVariable "MGDSHOOK", "levSymbGP->overrideWeight", 0&


'   Closed modal dialog "Level Symbology"


'   Following comment is the command to close a modal dialog
'   MbeSendCommand "MBE1 CLOSEMODAL OK"


End Sub

cs_JeffC1977 · Answer

J'ai oublier.....

Je suis capable de fermer un dialog Box qui possède un Bouton OK
   MbeSendCommand "MBE1 CLOSEMODAL OK"

Mais mon problème est que le dialog box que je veux fermer n'a pas de bouton Close, Ok  breg je doit appuyer sur le petit bouton en haut du "Form" le X pour fermer la fenetre....

C'est quoi le mot que je peux utiliser pour fermer ce type de dialogbox

MbeSendCommand "MDL KEYIN DIMSET DIALOG DIMSETTINGS CLOSE"

merci d'avance

cs_MPi · Answer

Je ne connais pas ton logiciel, mais peut-être ESCAPE ou ESC   (?)
Est-ce que tu peux utiliser SendKeys ?

MPi

V7user · Answer

Il faut enlever le ' a la deniere ligne pour fermer la boite de dialogue

donc,
'   Following comment is the command to close a modal dialog
    MbeSendCommand "MBE1 CLOSEMODAL OK"
End Sub

À ce point-ci, tu as certainement trouvé la solution, mais je n'arrive pas à faire fonctionner cette macros. La symbology ne s'active pas. As-tu trouvé un autre bug dans la macros?

Jimy
V7 User

V7user · Answer

J'ai oublié dans mon dernier post de mentionner qu'il n'est pas nécessaire d'ouvrir la  boite de dialogue DIMSETTINGS pour changer les valeurs.

Solution, efface la commande

'   Start a command
    MbeSendCommand "MDL KEYIN DIMSET DIALOG DIMSETTINGS OPEN"

Jimy
V7 User

Fermeture d'un Dialog box

4 réponses

Votre réponse

Discussions similaires