Torna al Thread
Public Class Form1
Dim dim_carattere = 10
Private Sub Form1_Load() Handles MyBase.Load
NumericUpDown3.Value = dim_carattere
End Sub
Private Sub scrivi() Handles TextBox1.TextChanged, NumericUpDown1.ValueChanged, NumericUpDown2.ValueChanged
PictureBox1.Refresh()
Dim testo As Graphics = PictureBox1.CreateGraphics()
Dim font As New System.Drawing.Font("Microsoft Sans Serif", dim_carattere)
testo.DrawString(TextBox1.Text, font, Brushes.Black, NumericUpDown1.Value, NumericUpDown2.Value)
End Sub
Private Sub carattere() Handles NumericUpDown3.ValueChanged
dim_carattere = NumericUpDown3.Value
scrivi()
End Sub
End Class