VB.Net by API/System.Drawing.Text/TextRenderingHint

Материал из VB Эксперт
Версия от 15:51, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

TextRenderingHint.AntiAliasGridFit

<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1()
      Application.Run(form1)
  End Sub 

End Class

Public Class Form1

   Inherits System.Windows.Forms.Form
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.ResizeRedraw = True
   End Sub
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
       Dim txt As String
       Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel)
       Dim layout_rect As RectangleF
       e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
       layout_rect = New RectangleF(100, 0, 180, 70)
       txt = "123456789012345678901234567890"
       Dim string_format As New StringFormat
       string_format.Trimming = StringTrimming.Character
       e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format)
       e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect))
   End Sub

End Class


 </source>