本文整理汇总了VB.NET中System.Drawing.StringFormat.Trimming属性的典型用法代码示例。如果您正苦于以下问题:VB.NET StringFormat.Trimming属性的具体用法?VB.NET StringFormat.Trimming怎么用?VB.NET StringFormat.Trimming使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。
在下文中一共展示了StringFormat.Trimming属性的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: ShowStringTrimming
Private Sub ShowStringTrimming(ByVal e As PaintEventArgs)
Dim format1 As New StringFormat
Dim quote As String = "Not everything that can be counted counts," & _
" and not everything that counts can be counted."
format1.Trimming = StringTrimming.EllipsisWord
e.Graphics.DrawString(quote, Me.Font, Brushes.Black, _
New RectangleF(10.0F, 10.0F, 90.0F, 50.0F), format1)
End Sub
示例2: MainClass
' 导入命名空间
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