Scrivere del testo in una DrawingArea

Per scrivere del testo in una DrawingArea si potranno usare almeno tre Metodi della Classe Paint: ".RichText()", ".Text()" e ".DrawText()".

Mostreremo di seguito tali modalità:.

Public Sub DrawingArea1_Draw()

' Attiva la funzione disegno nell'Area di disegno con Paint:
  With Paint

' imposta il colore dei caratteri:
    .Brush = Paint.Color(Color.Red)   '[nota 1]
' 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 [nota 2] con i Metodi ".RichText" e ".Text".
' Per far mostrare il disegno del testo, sarà necessario inserire anche il Metodo ".Fill" a seguire oppure ".Stroke" (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)
    .Fill
' ...oppure (sebbene dia però l'effetto del grassetto) ".Stroke":
'   .Stroke

' con il metodo .DrawText non è necessario l'uso di ".Stroke", né di ".Fill":
    .DrawText("Testo con DrawText", 10, 10, 20, 20)

  End With

End

Note

[1] Con la Classe Paint si potrà impostare il colore in questi modi:

Paint.Brush = Paint.Color(numero_del_colore)

Paint.Brush = Paint.Color(Color.nome_colore)

Paint.Brush = Paint.Color(Color.RGB(n., n., n.))

[2] 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 disposizione del testo.