Réponse acceptée !
allez, je donne du code :
Private Const MB_RTLREADING As Long = &H100000
Private Sub Form_Load()
Dim sArabicString As String
sArabicString = ChrW(&H625) & ChrW(&H650) & ChrW(&H64A) & ChrW(&H647) & ChrW(&H64E) & ChrW(&H627) & ChrW(&H628) & ChrW(&H64C)
MsgBox sArabicString, MB_RTLREADING Or vbInformation, sArabicString
End Sub
et déclarer dans un module une version adaptée de MsgBox :
Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
Private Const MB_TASKMODAL As Long = &H2000&
Function MsgBox(ByRef vzPrompt As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal vzTitle As Variant) As VbMsgBoxResult
Dim sPrompt As String
If IsMissing(vzTitle) Then
vzTitle = App.Title
End If
sPrompt = vzPrompt
MsgBox = MessageBox(0, StrPtr(sPrompt), StrPtr(vzTitle), Buttons Or MB_TASKMODAL)
End Function
|