MSGBOX

Question

Bonjour, comment afficher une message box en arabe.

us_30 · Answer

Bonjour,

En utilisant un message en unicode...

Exemple primaire :
        Dim m As String
        m = ChrW(1581)
        MessageBox.Show(m)

Voir l'aide du côté de UTF8... peut-être ici : http://msdn.microsoft.com/fr-fr/library/1w71hb4e.aspx comme piste...

Amicalement,
Us.

us_30 · Answer

Dsl, pour la mise en page qui semble avoir qlq difficulté en ce moment...


Amicalement,
Us.

Renfield · Answer

voir MessageBoxW

us_30 · Answer

Ah, je ne connais pas. De plus, dans le M oteur D e R echerche (mdr) de VBF, aucune référence n'est trouvée... Un indice supplémentaire, Renfield ?

Amicalement,
Us.

Renfield · Answer

http://msdn.microsoft.com/en-us/library/ms645505(VS.85).aspx

l'API MessageBoxW... le W pour dire Wide => Unicode (donc gestion arabe)

us_30 · Answer

hum... avec "l'API MessageBoxW" on tombe sur d'interessants sites... -:);

Amicalement,
Us.

Renfield · Answer

si tu t'interesse au sujet, un très bon site:

http://www.cyberactivex.com/UnicodeTutorialVb.htm

Renfield · Answer

relisant ce post, je m'aperçois que la question etait en VB.Net

ma réponse est donc complètement hors sujet...

Renfield · Answer

hors sujet toujours, puisqu'en VB, un exemple de ce dont je parlais (MessageBoxW)

http://www.vbfrance.com/forum/sujet-ARABE_1284948.aspx#3

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

MSGBOX

9 réponses

Votre réponse

Discussions similaires