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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5