VB.Net/GUI/Print Setup Dialog

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

Print Page Setup Dialog

Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Printing
Public Class MainClass
    Shared Sub Main()
       Dim form1 As Form = 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