Lorsque j'utilise la police Ms Mincho et que je fait font.charset = 128 pour le textbox j'arrive  a copier les kanji et lettres japonaises dans le textbox en faisant du copier coller a partir du logiciel JWPce. Mais quelqu'un sait-il comment les écrire directement à partir du code VB6 car le probleme c'est que j'ai remarqué qu'un caractère japonais est composé de deux caractères différent en le collant dans un textebox au charset normal. J'ai essayer des trucs avec AscW, ChrW, StrConv, vbUnicode... mais sans succès.
Je vous remercie de bien vouloir aider un debutant de VB.
Amano Ginji

Salut
Les TextBox de VB6 n'acceptent pas les polices unicode.
Il faut utiliser la TextBox de la version 'Forms2' de VBA.
Pour le faire apparaitre dans la barre d'outils :
Menu Projet, Composants, onglet Concepteurs et cocher la case "Microsoft Forms 2.0 Form"
Puis menu Projet, "Ajouter Microsoft Forms 2.0 Form" qui ouvre un concepteur

Restriction : Ces controles ne peuvent apparaitre que dans des Formes compatibles "Forms 2"
Je ne pourrais hélas pas t'en dire plus, je ne l'ai jamais utilisé ...

Sayonara

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

salut :
NB : ces contrôles ne sont pas redistribuables gratuitement^^

jack >  me suis fais engu..ler par DARK la dernière fois que j'ai donné une réponse comme çà
pcpt > Ce n'est pas qu'un nota bene, c'est carrément important !

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

econs -> vui, c'est pour çà que c'est un Nota BENE

Je vous remercie de vos réponses, même si elles ne m'ont pas vraiment aidées.
Cependant j'ai fini par trouver comment faire ce que je voulais. Ca n'a pas été simple de trouver et je ne sais pas trop ce que ça veux dire comme instruction mais bon le principal s'est que ça marche.
il fallait que j'écrive
.Font.Name = ChrW(&HFF2D) + ChrW(&HFF33) + ChrW(&H20) + ChrW(&HFF30) + ChrW(&H30B4) + ChrW(&H30B7) + ChrW(&H30C3) + ChrW(&H30AF)
avant
.Font.Name = "Ms Mincho"
et maintenant je peux écrire des lettres japonaises dans mon textbox avec ChrW
Encore Merci.