MESSAGEBOX AVEC UNE API

Commentaire de greg13 le 21/05/2003 19:26:07

Je pense qu'il y a moyen de balancer les message box sur n'importe qu'elle fenètre qui tourne sur windows à condition de conaitre son handle. Sinon de toute facon lorsqu'on utilise la fonction MSGBOX, on utilise l'API sans le savoir.

Commentaire de greg13 le 21/05/2003 21:54:07

Ouais mais je vous rapelle que ca permet d'illustrer l'utilisation des APIs

Commentaire de Warny le 22/05/2003 10:36:44

Pour les agnostiques de ce genre de méthode.
Quand vous bidouillez un peu le vb, vous pouvez enlever les références au dll du vb6 et du vb5 (c'est plus facile en vb 5 il suffit de décocher les dll en début de projet, en vb6 il faut carrement aller modifier le fichier vbp avec votre notepad favori)
Mais là, malheur à vous, vous ne disposez plus d'aucune commande sympa (dont le msgbox). D'où la nécessité de le récuperer dans les api.
A ceux qui me demandent : a quoi ça sert de supprimer ces réferences. Je répondrais simplement : A faire des exe et des composants ocx de moins d'1 ko.

Commentaire de greg13 le 22/05/2003 18:13:43

Yoman, tu peux surtout tenir compte du commentaire de Warny

Commentaire de Drgn13 le 29/06/2003 19:29:13

je viens de voir cette source et je me suis rappelé que j'avait fait quelque chose du genre en regardant la visionneuse d'api :

'il faut metre ça dans un module:
Public Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Function MyMsgBox(Prompt, ButtonsAndIcon As VbMsgBoxStyle, Title, Optional Sound As MySounds)
MessageBeep Sound
MessageBox hwnd, Prompt, Title, ButtonsAndIcon
End Function

'et dans la pocédure :
MyMsgBox "Texte", vbCritical, "Texte", vbExclamation

Cela permet par exemple de mettre un icone critical avec un bruit de Exclamation.J'ai WindowsXp et je ne sais plus si les bruit sont différents les uns des autres dans les autres Windows.
Comme dit Alain Proviste c'est pas tres utile...

Commentaire de luko007 le 04/02/2004 13:41:22

Drgn13 a une idee judicieuse car ainsi on peut recreer une fonction qui s'utilise de manière analogue au msgbox de VB.
J'irais meme plus loin car l'API MessageBoxIndirect permet de reproduire quasi-complètement le comportement  de msgbox.
==> Voici la fonction que j'ai faite avec :  
NB: j'ai pas tout testé mais ca doit marcher en gros (à part qq trucs exotiques). On pourrait aller plus loin encore en exploitant les autres membres de MSGBOXPARAMS (props etendues).

Public Function MsgBoxEx(Prompt, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title, Optional HelpFile, Optional Context, Optional hWnd, Optional BeepType As Integer) As VbMsgBoxResult

Dim tAttr As MSGBOXPARAMS

If BeepType = -1 Then
    MessageBeep Buttons
ElseIf BeepType Then
    MessageBeep BeepType
End If

'If  IsMissing(hWnd) Then hWnd=Me.hwnd

With tAttr
    .cbSize = Len(tAttr)
    .hwndOwner = CLng(hWnd) ' ou Me.hwnd
    '------------------------- prop classiques
    .lpszCaption = Title
    .lpszText = Prompt
    If Not IsMissing(Context) Then .dwContextHelpId = CLng(Context)
    .dwStyle = Buttons
     '------------------------- prop étendues
    .dwLanguageId = (&HC * 1024) Or &H1 '= Fr  (marche po ?)
    '.lpszIcon = 101 ' id  d'une ressource (Icone)
    '.hInstance = App.hInstance
    .lpfnMsgBoxCallback = 0 ' Adresse d'une fonction
    'HelpFile ? à creuser
End With

MsgBoxEx = MessageBoxIndirect(tAttr)   ' ou gmpMsgBox =MessageBox(hWnd, Prompt, Title, ButtonsAndIcon)

End Function

pas besoin d'utiliser les constantes d'API du genre MB_ICONEXCLAMATION, MB_OKCANCEL..., ... car les constantes de VbMsgBoxStyle sont visiblement les même.

L'argument beep permet soit d'associer le beep qui va avec les icones/boutons (critical+yes/cancel }=> son du genre "t'a comme un ptit pb") ou d'y mettre directement le son qu'on veut. (vbInformation, ...)


Ca paraitr pas super-utile à 1ere vue, mais ca permet :
- de standardiser les msgbox ds tout un logiciel
- de resoudre les pb avec Excel notamment : les messagebox de Excel ne peuvent se liberer du logiciel et on doit souvent cliquer sur excel pour les afficher ensuite (excel clignote ds la barre des taches)
- avec hWnd, e lancer un msgbox à l'intérieur d'une application exterieure (magik!). Avec vbApplicationModal c'est radical.


' -------- DECLARATIONS ----------------------------------
Type MSGBOXPARAMS
    cbSize As Long
    hwndOwner As Long
    hInstance As Long
    lpszText As String
    lpszCaption As String
    dwStyle As Long
    lpszIcon As String
    dwContextHelpId As Long
    lpfnMsgBoxCallback As Long
    dwLanguageId As Long
End Type

Declare Function MessageBoxIndirect Lib "user32" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long
Public Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long



'grossen infos :  http://www.vbapihelpline.de/ref/funca.php4?Func=MessageBoxIndirect&Letter=m     (gut deutsch site -ich verstehe nix!-)
'http://www.mentalis.org/apilist/MessageBoxIndirect.shtml                                             (pas du chinois mais incomplet)

Commentaire de Warny le 09/09/2004 17:32:17

=> Philippe734

dim window as form
set window = new form1

window.show true 'fenêtre modale

il faut cacher la fenetre modale pour continuer à utiliser le reste du programme