Versione delle 06:26, 10 dic 2024

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
' 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", 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":  '[nota 3] 
'   .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] 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.

[3] 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. ».