本文整理汇总了VB.NET中System.Windows.Forms.PrintPreviewControl.UseAntiAlias属性的典型用法代码示例。如果您正苦于以下问题：VB.NET PrintPreviewControl.UseAntiAlias属性的具体用法？VB.NET PrintPreviewControl.UseAntiAlias怎么用？VB.NET PrintPreviewControl.UseAntiAlias使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Windows.Forms.PrintPreviewControl的用法示例。
在下文中一共展示了PrintPreviewControl.UseAntiAlias属性的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: InitializePrintPreviewControl
'Declare the PrintPreviewControl object and the PrintDocument object.
Friend WithEvents PrintPreviewControl1 As PrintPreviewControl
Private WithEvents docToPrint As New Printing.PrintDocument
Private Sub InitializePrintPreviewControl()
' Construct the PrintPreviewControl.
Me.PrintPreviewControl1 = New PrintPreviewControl
' Set location, name, and dock style for PrintPreviewControl1.
Me.PrintPreviewControl1.Location = New Point(88, 80)
Me.PrintPreviewControl1.Name = "PrintPreviewControl1"
Me.PrintPreviewControl1.Dock = DockStyle.Fill
' Set the Document property to the PrintDocument
' for which the PrintPage event has been handled.
Me.PrintPreviewControl1.Document = docToPrint
' Set the zoom to 25 percent.
Me.PrintPreviewControl1.Zoom = 0.25
' Set the document name. This will show be displayed when
' the document is loading into the control.
Me.PrintPreviewControl1.Document.DocumentName = "c:\someFile"
' Set the UseAntiAlias property to true so fonts are smoothed
' by the operating system.
Me.PrintPreviewControl1.UseAntiAlias = True
' Add the control to the form.
Me.Controls.Add(Me.PrintPreviewControl1)
End Sub
' The PrintPreviewControl will display the document
' by handling the documents PrintPage event
Private Sub docToPrint_PrintPage(ByVal sender As Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
Handles docToPrint.PrintPage
' Insert code to render the page here.
' This code will be called when the control is drawn.
' The following code will render a simple
' message on the document in the control.
Dim text As String = "In docToPrint_PrintPage method."
Dim printFont As New Font _
("Arial", 35, System.Drawing.FontStyle.Regular)
e.Graphics.DrawString(text, printFont, _
System.Drawing.Brushes.Black, 10, 10)
End Sub