VB.Net Tutorial/GUI/PageSetupDialog

Материал из VB Эксперт
Перейти к: навигация, поиск

Print setup Dialog

<source lang="vbnet">Imports System.Drawing.Printing Imports System.Windows.Forms public class PageSetupDialogDemo

  public Shared Sub Main
       Application.Run(New Form1)
  End Sub

End class

Public Class Form1

   Private Sub btnShowDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDialog.Click
       PageSetupDialog1.Document = New PrintDocument
       If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
       End If
   End Sub

End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   "Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
       End If
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.btnShowDialog = New System.Windows.Forms.Button
       Me.PageSetupDialog1 = New System.Windows.Forms.PageSetupDialog
       Me.btnShowDialog.Location = New System.Drawing.Point(104, 56)
       Me.btnShowDialog.Name = "btnShowDialog"
       Me.btnShowDialog.Size = New System.Drawing.Size(80, 24)
       Me.btnShowDialog.TabIndex = 2
       Me.btnShowDialog.Text = "Show Dialog"
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(292, 140)
       Me.Name = "Form1"
       Me.Text = "UsePageSetupDIalog"
   End Sub
   Friend WithEvents btnShowDialog As System.Windows.Forms.Button
   Friend WithEvents PageSetupDialog1 As System.Windows.Forms.PageSetupDialog

End Class</source>

Show PageSetupDialog and display the settings

<source lang="vbnet">Imports System.IO Imports System.Windows.Forms public class PageSetupDialogSettings

  public Shared Sub Main
       Dim PageDB As New PageSetupDialog()
       PageDB.Document = New System.Drawing.Printing.PrintDocument()
       If (PageDB.ShowDialog() = DialogResult.OK) Then
           Console.WriteLine("Allow Margins: " & PageDB.AllowMargins)
           Console.WriteLine("Allow Orientation: " & PageDB.AllowOrientation)
           Console.WriteLine("Allow Paper: " & PageDB.AllowPaper)
           Console.WriteLine("Allow Printer: " & PageDB.AllowPrinter)
           Console.WriteLine("Minimum Margins: " & PageDB.MinMargins.ToString())
           Console.WriteLine("Show Network: " & PageDB.ShowNetwork)
           Console.WriteLine("Printer Settings: " & PageDB.PrinterSettings.ToString())
       End If
  End Sub

End class</source>