Utilisation de MessageBoxEx sous VB6Résolu

Question

Je veux utiliser l'API MessageBoxEx pour pouvoir afficher une boite de message avec les boutons OUI et NON en anglais( Yes NO) sous VB6 
Après plusieurs tentavives les boutons sont toujours en francais. 

Global Const LANG_ENGLISH As Long = &H9 
Global Const SUBLANG_ENGLISH_US As Long = &H1 

lang = MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US) 
mbresult = MessageBoxEx(Me.hwnd, "Are you sure you want to do that?", "Warning!", flags, lang) 

Public Function MAKELANGID(ByVal usPrimaryLanguage As Integer, ByVal usSubLanguage As Integer) As Long 
MAKELANGID = (usSubLanguage * 1024) Or usPrimaryLanguage 

End Function

crocejf2000 · Accepted Answer

Salut

Tu peut toujours de faire une form avec 2 boutons Yes et No, que tu pourra appeler de n'importe quelle fonction ou procédure.
(En tout cas ca irrais plus vite que de chercher à tout pris traduire une boite de dialogue Oui/Non préexistante)

A+, JF

billoute 50 · Answer

Je crois avoir lu dans un autre post que la langue des boutons dépend des paramètre régionnaux de l'ordi.
C'est onc trés risqué de changer, moi je me rabatterai sur la solution de crocejf

davidsaiani · Answer

ok merci

Utilisation de MessageBoxEx sous VB6

3 réponses

Votre réponse