MESSAGEBOX AVEC UNE API
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
-
21 mai 2003 à 17:25
cs_michel67650 Messages postés 3 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 17 octobre 2012 - 27 août 2011 à 17:48
cs_michel67650 Messages postés 3 Date d'inscription samedi 16 janvier 2010 Statut Membre Dernière intervention 17 octobre 2012 - 27 août 2011 à 17:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7176-messagebox-avec-une-api
https://codes-sources.commentcamarche.net/source/7176-messagebox-avec-une-api
27 août 2011 à 17:48
J'aimerai modifier le contenu d'un msgbox suivant la langue choisie.
Dans le projet executable, le message est ----> MsgBox "Pas de base de données", vbCritical, "Francais"
Si la langue est en Anglais, j'aimerai avoir le message suivant ---> MsgBox "No database", vbCritical, "French"
et tout ceci en passant par un fichier.
Les objects dans le mode Controls sont déjà modifier suivant la langue choisie.
Merci d'avance à Vous
Michel
Email : johanmichel_147@hotmail.fr
22 juin 2005 à 00:31
bye bye
merci beaucoup
kitkit
jasoso_14@hotmail.com
9 sept. 2004 à 17:32
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
9 sept. 2004 à 17:18
si vous avez pas compris, faite apparaitre la boite de dialogue a propos de votre navigateur internet, et essayé de cliquer ailleur ds la fenetre mère, vous ne pourrez pas et ca fera beep. la boite à propos n'est pas une message box et à le meme comportement et c'est ce que je cherche à faire.
comment faire ?
4 févr. 2004 à 13:41
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 gmpMsgBoxMessageBox(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)
29 août 2003 à 13:53
29 juin 2003 à 19:29
'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...
22 mai 2003 à 19:27
22 mai 2003 à 18:13
22 mai 2003 à 18:08
22 mai 2003 à 10:36
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.
21 mai 2003 à 21:54
21 mai 2003 à 21:54
21 mai 2003 à 20:42
21 mai 2003 à 19:26
21 mai 2003 à 17:25