comment écrire du texte sur une image avec _printmode,_keepbackground,_printstring,_onlybackground,_fillbackground,_loadfont en basic QB64 HOW TO PRINT TEXT WITH FONT

Le lien pour programmer en basic ----->http://www.qb64.net/

 ça se presente comme ça



10 SCREEN _NEWIMAGE(600, 400, 32)                       ' redimentionne votre image a cette taille
20 ImageFile& = _LOADIMAGE("Votre image.jpg")         'charge votre image en mémoire  ATTENTION le fichier image doit se trouver dans le même répertoire que le programme exe ou .bas
30 _PUTIMAGE (0, 0), ImageFile&                                  ' positionne votre image dans la fenetre
40 COLOR _RGB(105, 238, 0)                                        'selectionne la couleur
50 _PRINTMODE _KEEPBACKGROUND                    ' ecrire le texte par dessus l'image 
60 a$ = " Salut ! "   ' votre texte
70 _PRINTSTRING (160, 50), a$                                     ' positionne le texte dans l'image


Notez que je mets des numéros de ligne, c'est comme le bon vieux temps !

Essaillez le texte en mode inverse:



10 SCREEN _NEWIMAGE(600, 400, 32) 
20 ImageFile& = _LOADIMAGE("Votre image.jpg")
30  _PUTIMAGE (0, 0), ImageFile&
40 COLOR _RGB(105, 238, 0)
50 _PRINTMODE _ONLYBACKGROUND                         ' inverse le texte  
60 a$ = " Salut ! "
70 _PRINTSTRING ( 160,150), a$


écrire un texte avec un fond

 
10 SCREEN _NEWIMAGE(600, 400, 32) 
20 ImageFile& = _LOADIMAGE("Votre image.jpg")
30  _PUTIMAGE (0, 0), ImageFile&
40 COLOR _RGB(105, 238, 0),_RGB32(255, 0, 0)
50 _PRINTMODE _FILLBACKGROUND                       ' écrit le texte de couleur verte avec un font rouge
60 a$ = " Salut ! "
70 _PRINTSTRING ( 160,150), a$




Maintenant comment écrire avec les fonts de windows:

10 i& = _NEWIMAGE(400, 400, 32)
20 SCREEN i&
30 ImageFile& = _LOADIMAGE("votre image.jpg")                                   'charge votre image en mémoire
40 _PUTIMAGE (0, 0), ImageFile&
50 rootpath$ = ENVIRON$("SYSTEMROOT")                                         'normalement"C:\WINDOWS" la je me demande
60 fontfile$ = rootpath$ + "\Fonts\cour.ttf"                                                    'j'ai compris que la c'est le chemain des fonts
70 style$ = "italic" 'je n'arrive pas a le faire fonctionner
80 f& = _LOADFONT(fontfile$, 50, style)                                                    'la le 50 c'est la dimension du font mais le style$ pas moyen...
90 _FONT f&                                                                                              ' appel la fonction
100 COLOR _RGB32(0, 255, 0)
110_PRINTMODE _KEEPBACKGROUND
120 PRINT "Hello!"