Scrivere del testo in una DrawingArea

Mostreremo di seguito le modalità per scrivere del testo con il metodo Paint all'interno di una DrawingArea.

Public Sub DrawingArea1_Draw()
  
' Attiva la funzione disegno nell'Area di disegno con Paint
  With Paint
    .Begin(DrawingArea1)
' imposta il colore dei caratteri:
    .Brush = Paint.Color(Color.Red)
' imposta il tipo di carattere:
    .Font.Name = "Arial" 
' Imposta la dimensione dei caratteri:
    .Font.Size = 16
' Scrive sull'Area di Disegno il seguente testo di caratteri nella posizione X, Y
' all'interno di un quadrilatero virtuale W, H {1}con i metodi .RichText  e .Text,
' ma occorrerà uno ".Stroke" a seguire (però .Stroke tende a dare l'effetto del grassetto):
    .RichText("Testo con RichText", 200, 20, 16, 100)
    .Text("Testo con Text", 10, 30, 20, 20)
    .Stroke
' ...oppure (meglio, perché non dà l'effetto del grassetto) ".fill": {2}
    .Fill
' con il metodo .DrawText non è necessario l'uso di ".Stroke", né di ".Fill":
    .DrawText("Testo con DrawText", 10, 10, 20, 20)
    .End
  End With

End

---

Note

[1] Le impostazioni dei parametri relativi al quadrilatero virtuale, nel quale viene scritto il testo, non sono obbligatorie, ma la loro assenza può determinare l'impossibilità di dare una particolare della disposizione del testo.

[2] Come sottolineato dall'Utente fsurfing del Forum Gambas-it.org, « con Stroke viene disegnato solo il contorno che quindi con un size piccolo sembra quasi un grassetto, con fill viene fatto il riempimento e quindi si vede normale. ».