Acceder à l'application mère pendant un message box

Question

Salut,

J'utilise l'api message box pour faire afficher une boite de dialogue directement sous une application (Lotus Notes), ce que ne permet pas msgbox de VBA. Pour cela j'utilise le handle de Lotus comme ceci (je n'ai pas mis les d&#233;clarations ici) :


HandleLotus = FindWindow("NOTES", vbNullString)
resultat = MessageBox(HandleLotus, "Voulez-vous envoyer le mail?", "Validation", MB_ICONQUESTION + MB_YESNO)
If (resultat = 6) Then
    SendKeys "%&", True 'envoi du courrier Alt + 1
Else
    'rien
End If

Cela fonctionne &#224; merveille mais j'aimerai que ce soit possible d'acceder &#224; la fen&#234;tre de lotus pendant l'affichage du message (ce dernier se mettrai desactiverai ou se r&#233;duirai) plutot que de devoir cliquer sur un des deux boutons.
Y-a-t-il une solution?

Autre question : Peut-on changer le libell&#233; des bouton de la message box? Je pense que non vu que c'est une API et donc c'est pas modifiable.

Merci d'avance.

cs_rt15 · Answer

Bonjour,

Pour le libellé, je suppose que tu parle du titre:

resultat = MessageBox(HandleLotus, "Voulez-vous envoyer le mail?", "Validation", MB_ICONQUESTION + MB_YESNO, "C'est le titre")

Ce qu'il te met entre crochet, c'est les arguments optionnels.

Pour ce qui est de la modalité, tu peux utiliser la "vrai" MessageBox, celle des API, celle qui est appelé par VB6.

En  modifiant le handle, ça passe sans problème:

Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal dwType As Long) As Long

Call messageBox(0, "texte", "titre", MB_OkCancel)

J'éspère ne pas avoir fait de faute de frappe...

radcur · Answer

Salut

je ne comprend pas... tu fais apparaitre un Msgbox mais tu cherche un truc pour le contourner.  Alors pourquoi le faire apparaitre ?

Albadeath · Answer

Salut,
justement j'utilise la vraie MessageBox. C'est vrai qu'en mettant le handle a 0 la message box est dissoci&#233;e de lotus et il y a une nouvelle fen&#234;tre dans la barre des t&#226;ches. Mais le probl&#232;me c'est qu'elle est cr&#233;e "r&#233;duite" alors que je voudrai la faire afficher directement devant Lotus. Je vais essayer de tester &#231;a avec d'autres fonctions.

En ce qui concernent les libell&#233;, je parle du titre des boutons, je voudrais modifier les oui non.

Pour radcur: Effectivement c'est un peu bizarre comme fonctionnement. Le truc c'est que pour faire simple mon automate rempli une fiche sous lotus et lorsqu'il a termin&#233; son petit travail je souhaite faire afiicher un message lui demandant d'enregistrer ou de modifier. S'il fait modifier, il pourrait acceder &#224; la fiche fraichement cr&#233;ee puis se repositionner sur le message box pour cliquer sur enregistrer.

cs_rt15 · Answer

Milles excuse Albadeath, j'avais même pas vu... Elle est crée réduite ? Pas chez moi...

Sinon, tu peux simplement recoder la fonction MessageBox. Une petite form, 2 boutons... Bon l'icone, faut la retrouver.

Albadeath · Answer

Ok je vais voir c'est un peu gal&#232;re cette histoire. Merci