Oui j'avais fini par trouver plusieurs de façon de le faire gratuitement :
- Alors 1ère solution tu joue sur le Charset des objet pour choisir l'alphabet à afficher (mais du coup un alphabet à la fois)
- Seconde solution écrire par API : CreateFontA (crée une nouvelle police), SelectObject (active la police crée et retourne la police "précédemment" active), TextOutW (écrit du texte en Unicode, attention tu à besoin d'un hdc pas d'un handle avec cette API ;)), DeleteObject (permet de détruire la police crée)
Déclaration des API :
Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal nHeight As Long, ByVal nWidth As Long, ByVal nEscapement As Long, ByVal nOrientation As Long, ByVal fnWeight As Long, ByVal fdwItalic As Long, ByVal fdwUnderline As Long, ByVal fdwStrikeOut As Long, ByRef fdwCharSet As Long, ByRef fdwOutputPrecision As Long, ByRef fdwClipPrecision As Long, ByRef fdwQuality As Long, ByRef fdwPitchAndFamily As Long, ByVal lpszFace As String) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function TextOutUnicode Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
En gros : (Tu crée une police puis l'active en sauvegardant la police active, étape optionnelle mais permet de tourner le texte, soit l'afficher à 45° par exemple ;)) Tu écrit du texte sur une surface avec "TextOutW" (ATTENTION dans ce cas il faut écrire dans l'événement Paint de ton control), (tu réactive l'ancienne police et supprime la nouvelle)
- 3ème solution : http://www.vbfrance.com/codes/CONTROLES-STYLE-XP-16-USERCONTROLS-LISTBOX-OPTION-FRAME_42726.aspx
- 4ème solution : les controls Form2 de Ms : "Microsoft Forms 2.0 Object Libray"
Pour tester tout sa tu peut utiliser le carac : ChrW$(20013) par exemple ;)
Bonne prog
Amicalement
1000 recherches sur Google = 1Km de voiture en CO² (réfuté par Google )
1000 recherches sur Forestle = 100 m² de forêt tropicale sauvé .
Surfez écolo