Uncode

cs_lemrabott Messages postés 27 Date d'inscription vendredi 6 mai 2005 Statut Membre Dernière intervention 27 mars 2006 - 26 juil. 2005 à 18:11
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 26 juil. 2005 à 20:47
bonjour

je voudrais savaoir comment utiliser Unicode pour representer des lettre un arab

par exemple dans l'evenement keys press si je clique sur a elef un arabe s'affiche au lieu de a

merci

1 réponse

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
26 juil. 2005 à 20:47
seul le TxtBox des Forms2.0 Components permet l'affichage de l'Unicode.

'écrit l'unicode en fichier texte
Dim a(0 To 5) As Byte
a(0) = &HFF
a(1) = &HFE
a(2) = &H39
a(3) = &H4E
a(4) = &H44
a(5) = &H0
Open App.Path & "\unicode.txt" For Binary As #1
Put #1, , a
Close #1

'relis le fichier texte et l'affiche
Dim txtline As String
Open App.Path & "\unicode.txt" For Binary As #1


txtline = InputB(2, #1) ' always FF FE, skip them
txtline = InputB(4, #1)
Close #1


TextBox1.Text = txtline

voilà, tu as la base, avec un exemple unicode chinois (provenant de MSDN)
@+
PCPT
0