Puoi scrivere testo scegliendo: font, dimensione, grassetto e corsivo
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
GraphicsWindow.FontName="Courier New" x =25 y0=25 GraphicsWindow.FontBold ="false" GraphicsWindow.FontItalic="false" scrivi() GraphicsWindow.FontBold ="false" GraphicsWindow.FontItalic="true" scrivi() GraphicsWindow.FontBold ="true" GraphicsWindow.FontItalic="false" scrivi() GraphicsWindow.FontBold ="true" GraphicsWindow.FontItalic="true" scrivi() Sub scrivi y=y0 For i=1 To 13 GraphicsWindow.FontSize=8+i*2 GraphicsWindow.DrawText(x,y,"ValCon") y=y+30 EndFor x=x+150 EndSub |