VB.Net by API/System.Drawing.Text/TextRenderingHint
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>