Torna al Thread

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim txt As String = "Lorem ipsum dolor sit amet, consectetur adipisici elit, sed eiusmod tempor incidunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco ..." Dim big_font As New Font("Times New Roman", 15, FontStyle.Bold) Dim layout_rect As New RectangleF(10, 10, Me.ClientSize.Width - 20, Me.ClientSize.Height - 20) Dim string_format As New StringFormat string_format.Alignment = StringAlignment.Near string_format.LineAlignment = StringAlignment.Near e.Graphics.DrawString(txt, big_font, Brushes.Black, layout_rect, string_format) e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect)) End Sub
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5