基本信息
源码名称：winform 以报表方式打印表单
源码大小：0.08M
文件格式：.zip
开发语言：ASP
更新时间：2019-01-18
友情提示：（无需注册或充值，赞助后即可获取资源下载链接）
嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300
本次赞助数额为： 2 元×
微信扫码支付：2 元
×
请留下您的邮箱，我们将在2小时内将文件发到您的邮箱
源码介绍
Public Class DemoForm
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.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.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ButtonPrintMe As System.Windows.Forms.Button
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents Label5Hide As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents CheckBoxTextBoxBoxed As System.Windows.Forms.CheckBox
Friend WithEvents CheckBoxTabControlBoxed As System.Windows.Forms.CheckBox
Friend WithEvents CheckBoxLabelInBold As System.Windows.Forms.CheckBox
Friend WithEvents RadioButtonPortrait As System.Windows.Forms.RadioButton
Friend WithEvents RadioButtonLandscape As System.Windows.Forms.RadioButton
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents ListBox2 As System.Windows.Forms.ListBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents CheckBoxDisabledControlsInGray As System.Windows.Forms.CheckBox
Friend WithEvents RadioButtonAutomatic As System.Windows.Forms.RadioButton
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
Friend WithEvents NumericUpDown2 As System.Windows.Forms.NumericUpDown
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents NumericUpDown3 As System.Windows.Forms.NumericUpDown
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents CheckBoxPageNumbering As System.Windows.Forms.CheckBox
Friend WithEvents CheckBoxPrintPreview As System.Windows.Forms.CheckBox
Friend WithEvents DataGrid As System.Windows.Forms.DataGrid
Friend WithEvents NumericUpDown4 As System.Windows.Forms.NumericUpDown
Friend WithEvents ButtonTrace As System.Windows.Forms.Button
Friend WithEvents ButtonTif As System.Windows.Forms.Button
Friend WithEvents CheckBoxMyOwn As System.Windows.Forms.CheckBox
Friend WithEvents ButtonPrintTab As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(DemoForm))
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.Label7 = New System.Windows.Forms.Label
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.Label5 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.NumericUpDown3 = New System.Windows.Forms.NumericUpDown
Me.Label14 = New System.Windows.Forms.Label
Me.ListBox3 = New System.Windows.Forms.ListBox
Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown
Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown
Me.Label13 = New System.Windows.Forms.Label
Me.Label12 = New System.Windows.Forms.Label
Me.Label11 = New System.Windows.Forms.Label
Me.ListBox2 = New System.Windows.Forms.ListBox
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.Panel3 = New System.Windows.Forms.Panel
Me.TabPage4 = New System.Windows.Forms.TabPage
Me.NumericUpDown4 = New System.Windows.Forms.NumericUpDown
Me.DataGrid = New System.Windows.Forms.DataGrid
Me.TabPage3 = New System.Windows.Forms.TabPage
Me.Panel2 = New System.Windows.Forms.Panel
Me.Label10 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.ButtonPrintMe = New System.Windows.Forms.Button
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
Me.Panel1 = New System.Windows.Forms.Panel
Me.Label6 = New System.Windows.Forms.Label
Me.Label5Hide = New System.Windows.Forms.Label
Me.Label4 = New System.Windows.Forms.Label
Me.TextBox4 = New System.Windows.Forms.TextBox
Me.Label8 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.ButtonPrintTab = New System.Windows.Forms.Button
Me.CheckBoxMyOwn = New System.Windows.Forms.CheckBox
Me.ButtonTif = New System.Windows.Forms.Button
Me.ButtonTrace = New System.Windows.Forms.Button
Me.CheckBoxPrintPreview = New System.Windows.Forms.CheckBox
Me.RadioButtonAutomatic = New System.Windows.Forms.RadioButton
Me.RadioButtonLandscape = New System.Windows.Forms.RadioButton
Me.RadioButtonPortrait = New System.Windows.Forms.RadioButton
Me.CheckBoxPageNumbering = New System.Windows.Forms.CheckBox
Me.CheckBoxLabelInBold = New System.Windows.Forms.CheckBox
Me.CheckBoxDisabledControlsInGray = New System.Windows.Forms.CheckBox
Me.CheckBoxTabControlBoxed = New System.Windows.Forms.CheckBox
Me.CheckBoxTextBoxBoxed = New System.Windows.Forms.CheckBox
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
CType(Me.NumericUpDown3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
CType(Me.NumericUpDown4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataGrid, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 8)
Me.Label1.Name = "Label1"
Me.Label1.TabIndex = 0
Me.Label1.Text = "Name :"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(152, 8)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(216, 20)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = "TextBox1 (multi-lines)"
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TabControl1.ItemSize = New System.Drawing.Size(62, 30)
Me.TabControl1.Location = New System.Drawing.Point(16, 40)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(400, 152)
Me.TabControl1.TabIndex = 2
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.Label7)
Me.TabPage1.Controls.Add(Me.ComboBox1)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.Button1)
Me.TabPage1.Controls.Add(Me.TextBox2)
Me.TabPage1.Controls.Add(Me.Label2)
Me.TabPage1.Location = New System.Drawing.Point(4, 34)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(392, 114)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Alignment"
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(8, 40)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(112, 23)
Me.Label7.TabIndex = 7
Me.Label7.Text = "Item:"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ComboBox1
'
Me.ComboBox1.Items.AddRange(New Object() {"first item", "second item", "third item"})
Me.ComboBox1.Location = New System.Drawing.Point(128, 40)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(152, 21)
Me.ComboBox1.TabIndex = 6
Me.ComboBox1.Text = "ComboBox1"
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(16, 72)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(360, 23)
Me.Label5.TabIndex = 5
Me.Label5.Text = "Label5 - Centered"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(296, 40)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 4
Me.Button1.Text = "Button1"
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(128, 8)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(248, 20)
Me.TextBox2.TabIndex = 3
Me.TextBox2.Text = "TextBox2 - RightAlign"
Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(8, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(112, 23)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Name 1 Right:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.NumericUpDown3)
Me.TabPage2.Controls.Add(Me.Label14)
Me.TabPage2.Controls.Add(Me.ListBox3)
Me.TabPage2.Controls.Add(Me.NumericUpDown2)
Me.TabPage2.Controls.Add(Me.NumericUpDown1)
Me.TabPage2.Controls.Add(Me.Label13)
Me.TabPage2.Controls.Add(Me.Label12)
Me.TabPage2.Controls.Add(Me.Label11)
Me.TabPage2.Controls.Add(Me.ListBox2)
Me.TabPage2.Controls.Add(Me.ListBox1)
Me.TabPage2.Controls.Add(Me.Panel3)
Me.TabPage2.Location = New System.Drawing.Point(4, 34)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(392, 114)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "ListBox Sample"
'
'NumericUpDown3
'
Me.NumericUpDown3.Location = New System.Drawing.Point(328, 88)
Me.NumericUpDown3.Name = "NumericUpDown3"
Me.NumericUpDown3.Size = New System.Drawing.Size(40, 20)
Me.NumericUpDown3.TabIndex = 22
Me.NumericUpDown3.Value = New Decimal(New Integer() {10, 0, 0, 0})
'
'Label14
'
Me.Label14.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(184, 64)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(16, 23)
Me.Label14.TabIndex = 21
Me.Label14.Text = "3"
'
'ListBox3
'
Me.ListBox3.Location = New System.Drawing.Point(208, 64)
Me.ListBox3.Name = "ListBox3"
Me.ListBox3.Size = New System.Drawing.Size(112, 43)
Me.ListBox3.TabIndex = 20
'
'NumericUpDown2
'
Me.NumericUpDown2.Location = New System.Drawing.Point(136, 88)
Me.NumericUpDown2.Name = "NumericUpDown2"
Me.NumericUpDown2.Size = New System.Drawing.Size(40, 20)
Me.NumericUpDown2.TabIndex = 19
Me.NumericUpDown2.Value = New Decimal(New Integer() {40, 0, 0, 0})
'
'NumericUpDown1
'
Me.NumericUpDown1.Location = New System.Drawing.Point(224, 32)
Me.NumericUpDown1.Name = "NumericUpDown1"
Me.NumericUpDown1.Size = New System.Drawing.Size(40, 20)
Me.NumericUpDown1.TabIndex = 18
Me.NumericUpDown1.Value = New Decimal(New Integer() {40, 0, 0, 0})
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(224, 8)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(160, 23)
Me.Label13.TabIndex = 17
Me.Label13.Text = "Set number of items in list box"
'
'Label12
'
Me.Label12.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(0, 64)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(16, 23)
Me.Label12.TabIndex = 16
Me.Label12.Text = "2"
'
'Label11
'
Me.Label11.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(0, 8)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(16, 23)
Me.Label11.TabIndex = 15
Me.Label11.Text = "1"
'
'ListBox2
'
Me.ListBox2.Location = New System.Drawing.Point(24, 64)
Me.ListBox2.Name = "ListBox2"
Me.ListBox2.Size = New System.Drawing.Size(104, 43)
Me.ListBox2.TabIndex = 14
'
'ListBox1
'
Me.ListBox1.Location = New System.Drawing.Point(24, 8)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(192, 43)
Me.ListBox1.TabIndex = 13
'
'Panel3
'
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Location = New System.Drawing.Point(8, 56)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(376, 2)
Me.Panel3.TabIndex = 14
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.NumericUpDown4)
Me.TabPage4.Controls.Add(Me.DataGrid)
Me.TabPage4.Location = New System.Drawing.Point(4, 34)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(392, 114)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "DataGrid Sample"
'
'NumericUpDown4
'
Me.NumericUpDown4.Location = New System.Drawing.Point(344, 80)
Me.NumericUpDown4.Maximum = New Decimal(New Integer() {10000, 0, 0, 0})
Me.NumericUpDown4.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.NumericUpDown4.Name = "NumericUpDown4"
Me.NumericUpDown4.Size = New System.Drawing.Size(40, 20)
Me.NumericUpDown4.TabIndex = 23
Me.NumericUpDown4.Value = New Decimal(New Integer() {10, 0, 0, 0})
'
'DataGrid
'
Me.DataGrid.DataMember = ""
Me.DataGrid.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid.Location = New System.Drawing.Point(8, 8)
Me.DataGrid.Name = "DataGrid"
Me.DataGrid.Size = New System.Drawing.Size(328, 96)
Me.DataGrid.TabIndex = 0
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.Panel2)
Me.TabPage3.Controls.Add(Me.Label3)
Me.TabPage3.Controls.Add(Me.PictureBox1)
Me.TabPage3.Location = New System.Drawing.Point(4, 34)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(392, 114)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "FlexGrid Sample"
'
'Panel2
'
Me.Panel2.Controls.Add(Me.Label10)
Me.Panel2.Location = New System.Drawing.Point(8, 24)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(264, 80)
Me.Panel2.TabIndex = 2
'
'Label10
'
Me.Label10.Enabled = False
Me.Label10.Location = New System.Drawing.Point(16, 16)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(248, 40)
Me.Label10.TabIndex = 0
Me.Label10.Text = "FlexGrid Removed in this Demo because reference could not be loaded on other comp" & _
"uter."
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(8, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(256, 23)
Me.Label3.TabIndex = 1
Me.Label3.Text = "(flexGrid form Component One)"
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(288, 40)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(96, 64)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 13
Me.PictureBox1.TabStop = False
'
'ButtonPrintMe
'
Me.ButtonPrintMe.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ButtonPrintMe.ForeColor = System.Drawing.SystemColors.Highlight
Me.ButtonPrintMe.Location = New System.Drawing.Point(16, 24)
Me.ButtonPrintMe.Name = "ButtonPrintMe"
Me.ButtonPrintMe.Size = New System.Drawing.Size(96, 24)
Me.ButtonPrintMe.TabIndex = 4
Me.ButtonPrintMe.Text = "Print me"
'
'DateTimePicker1
'
Me.DateTimePicker1.Location = New System.Drawing.Point(56, 200)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(160, 20)
Me.DateTimePicker1.TabIndex = 7
'
'Panel1
'
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.Label5Hide)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Enabled = False
Me.Panel1.Location = New System.Drawing.Point(224, 200)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(192, 96)
Me.Panel1.TabIndex = 8
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(24, 56)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(122, 32)
Me.Label6.TabIndex = 2
Me.Label6.Text = "Label4 with more than one line of text"
'
'Label5Hide
'
Me.Label5Hide.Location = New System.Drawing.Point(24, 32)
Me.Label5Hide.Name = "Label5Hide"
Me.Label5Hide.TabIndex = 1
Me.Label5Hide.Text = "Label5Hidden"
Me.Label5Hide.Visible = False
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(24, 8)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(152, 23)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Label4 in disabled panel"
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(56, 224)
Me.TextBox4.Multiline = True
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.TextBox4.Size = New System.Drawing.Size(160, 72)
Me.TextBox4.TabIndex = 9
Me.TextBox4.Text = "TextBox4 multiline with more than one line"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(16, 200)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(112, 23)
Me.Label8.TabIndex = 10
Me.Label8.Text = "Date:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(16, 224)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(112, 23)
Me.Label9.TabIndex = 11
Me.Label9.Text = "Note:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.ButtonPrintTab)
Me.GroupBox1.Controls.Add(Me.CheckBoxMyOwn)
Me.GroupBox1.Controls.Add(Me.ButtonTif)
Me.GroupBox1.Controls.Add(Me.ButtonTrace)
Me.GroupBox1.Controls.Add(Me.CheckBoxPrintPreview)
Me.GroupBox1.Controls.Add(Me.RadioButtonAutomatic)
Me.GroupBox1.Controls.Add(Me.RadioButtonLandscape)
Me.GroupBox1.Controls.Add(Me.RadioButtonPortrait)
Me.GroupBox1.Controls.Add(Me.CheckBoxPageNumbering)
Me.GroupBox1.Controls.Add(Me.CheckBoxLabelInBold)
Me.GroupBox1.Controls.Add(Me.CheckBoxDisabledControlsInGray)
Me.GroupBox1.Controls.Add(Me.CheckBoxTabControlBoxed)
Me.GroupBox1.Controls.Add(Me.CheckBoxTextBoxBoxed)
Me.GroupBox1.Controls.Add(Me.ButtonPrintMe)
Me.GroupBox1.Location = New System.Drawing.Point(8, 304)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(408, 144)
Me.GroupBox1.TabIndex = 13
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Print Me - Choose options..."
'
'ButtonPrintTab
'
Me.ButtonPrintTab.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ButtonPrintTab.ForeColor = System.Drawing.SystemColors.Highlight
Me.ButtonPrintTab.Location = New System.Drawing.Point(16, 72)
Me.ButtonPrintTab.Name = "ButtonPrintTab"
Me.ButtonPrintTab.Size = New System.Drawing.Size(96, 24)
Me.ButtonPrintTab.TabIndex = 18
Me.ButtonPrintTab.Text = "Print Tab"
'
'CheckBoxMyOwn
'
Me.CheckBoxMyOwn.Location = New System.Drawing.Point(152, 104)
Me.CheckBoxMyOwn.Name = "CheckBoxMyOwn"
Me.CheckBoxMyOwn.Size = New System.Drawing.Size(232, 16)
Me.CheckBoxMyOwn.TabIndex = 16
Me.CheckBoxMyOwn.Text = "Use my Own function to print report title"
'
'ButtonTif
'
Me.ButtonTif.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ButtonTif.ForeColor = System.Drawing.SystemColors.Highlight
Me.ButtonTif.Location = New System.Drawing.Point(16, 48)
Me.ButtonTif.Name = "ButtonTif"
Me.ButtonTif.Size = New System.Drawing.Size(96, 24)
Me.ButtonTif.TabIndex = 15
Me.ButtonTif.Text = """Tif"" me"
'
'ButtonTrace
'
Me.ButtonTrace.Enabled = False
Me.ButtonTrace.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ButtonTrace.ForeColor = System.Drawing.SystemColors.Highlight
Me.ButtonTrace.Location = New System.Drawing.Point(16, 112)
Me.ButtonTrace.Name = "ButtonTrace"
Me.ButtonTrace.Size = New System.Drawing.Size(96, 24)
Me.ButtonTrace.TabIndex = 14
Me.ButtonTrace.Text = "Trace"
'
'CheckBoxPrintPreview
'
Me.CheckBoxPrintPreview.Checked = True
Me.CheckBoxPrintPreview.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBoxPrintPreview.Location = New System.Drawing.Point(152, 120)
Me.CheckBoxPrintPreview.Name = "CheckBoxPrintPreview"
Me.CheckBoxPrintPreview.Size = New System.Drawing.Size(96, 15)
Me.CheckBoxPrintPreview.TabIndex = 13
Me.CheckBoxPrintPreview.Text = "Print Preview"
'
'RadioButtonAutomatic
'
Me.RadioButtonAutomatic.Checked = True
Me.RadioButtonAutomatic.Location = New System.Drawing.Point(304, 56)
Me.RadioButtonAutomatic.Name = "RadioButtonAutomatic"
Me.RadioButtonAutomatic.Size = New System.Drawing.Size(80, 15)
Me.RadioButtonAutomatic.TabIndex = 12
Me.RadioButtonAutomatic.TabStop = True
Me.RadioButtonAutomatic.Text = "Automatic"
'
'RadioButtonLandscape
'
Me.RadioButtonLandscape.Location = New System.Drawing.Point(304, 40)
Me.RadioButtonLandscape.Name = "RadioButtonLandscape"
Me.RadioButtonLandscape.Size = New System.Drawing.Size(80, 15)
Me.RadioButtonLandscape.TabIndex = 10
Me.RadioButtonLandscape.Text = "Landscape"
'
'RadioButtonPortrait
'
Me.RadioButtonPortrait.Location = New System.Drawing.Point(304, 24)
Me.RadioButtonPortrait.Name = "RadioButtonPortrait"
Me.RadioButtonPortrait.Size = New System.Drawing.Size(72, 15)
Me.RadioButtonPortrait.TabIndex = 9
Me.RadioButtonPortrait.Text = "Portrait"
'
'CheckBoxPageNumbering
'
Me.CheckBoxPageNumbering.Checked = True
Me.CheckBoxPageNumbering.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBoxPageNumbering.Location = New System.Drawing.Point(152, 88)
Me.CheckBoxPageNumbering.Name = "CheckBoxPageNumbering"
Me.CheckBoxPageNumbering.Size = New System.Drawing.Size(112, 16)
Me.CheckBoxPageNumbering.TabIndex = 8
Me.CheckBoxPageNumbering.Text = "Page numbering"
'
'CheckBoxLabelInBold
'
Me.CheckBoxLabelInBold.Checked = True
Me.CheckBoxLabelInBold.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBoxLabelInBold.Location = New System.Drawing.Point(152, 72)
Me.CheckBoxLabelInBold.Name = "CheckBoxLabelInBold"
Me.CheckBoxLabelInBold.Size = New System.Drawing.Size(104, 15)
Me.CheckBoxLabelInBold.TabIndex = 7
Me.CheckBoxLabelInBold.Text = "Label in bold"
'
'CheckBoxDisabledControlsInGray
'
Me.CheckBoxDisabledControlsInGray.Location = New System.Drawing.Point(152, 56)
Me.CheckBoxDisabledControlsInGray.Name = "CheckBoxDisabledControlsInGray"
Me.CheckBoxDisabledControlsInGray.Size = New System.Drawing.Size(152, 15)
Me.CheckBoxDisabledControlsInGray.TabIndex = 11
Me.CheckBoxDisabledControlsInGray.Text = "Disabled controls in gray"
'
'CheckBoxTabControlBoxed
'
Me.CheckBoxTabControlBoxed.Checked = True
Me.CheckBoxTabControlBoxed.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBoxTabControlBoxed.Location = New System.Drawing.Point(152, 40)
Me.CheckBoxTabControlBoxed.Name = "CheckBoxTabControlBoxed"
Me.CheckBoxTabControlBoxed.Size = New System.Drawing.Size(120, 15)
Me.CheckBoxTabControlBoxed.TabIndex = 6
Me.CheckBoxTabControlBoxed.Text = "TabControl Boxed"
'
'CheckBoxTextBoxBoxed
'
Me.CheckBoxTextBoxBoxed.Location = New System.Drawing.Point(152, 24)
Me.CheckBoxTextBoxBoxed.Name = "CheckBoxTextBoxBoxed"
Me.CheckBoxTextBoxBoxed.Size = New System.Drawing.Size(104, 15)
Me.CheckBoxTextBoxBoxed.TabIndex = 5
Me.CheckBoxTextBoxBoxed.Text = "TextBox Boxed"
'
'DemoForm
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(432, 453)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label9)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "DemoForm"
Me.Text = "This is my test Form"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
CType(Me.NumericUpDown3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False)
CType(Me.NumericUpDown4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataGrid, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage3.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
'Create FormPrinting object
Dim fp As FormPrinting.FormPrinting
Private Sub ButtonPrintMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrintMe.Click
CreateFormPrintingObject(Me)
SetProperties()
' Print!
fp.Print()
Me.ButtonTrace.Enabled = True
End Sub
Private Sub ButtonTifMe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTif.Click
CreateFormPrintingObject(Me)
SetProperties()
' Print!
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
fp.PrintToTifFile("Form")
Me.Cursor = System.Windows.Forms.Cursors.Default
MsgBox("Image has been saved in file Form.tif (Application folder)")
Me.ButtonTrace.Enabled = True
End Sub
Private Sub ButtonPrintTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPrintTab.Click
CreateFormPrintingObject(Me.TabControl1.SelectedTab)
SetProperties()
' Print!
fp.Print()
Me.ButtonTrace.Enabled = True
End Sub
Private Sub CreateFormPrintingObject(ByVal c As System.Windows.Forms.Control)
fp = New FormPrinting.FormPrinting(c)
'FlexGrid (Need a reference to C1.FlexGrid)
'Dim fgp As FlexGridPrinting.FlexGridPrinting
'fp.AddDelegateToPrintControl("FlexGrid", AddressOf fgp.PrintIt)
End Sub
Private Sub SetProperties()
' Set printing options
fp.TextBoxBoxed = Me.CheckBoxTextBoxBoxed.Checked
fp.TabControlBoxed = Me.CheckBoxTabControlBoxed.Checked
fp.LabelInBold = Me.CheckBoxLabelInBold.Checked
fp.PrintPreview = Me.CheckBoxPrintPreview.Checked
fp.DisabledControlsInGray = Me.CheckBoxDisabledControlsInGray.Checked
fp.PageNumbering = Me.CheckBoxPageNumbering.Checked
fp.Orientation = FormPrinting.FormPrinting.OrientationENum.Automatic
If Me.RadioButtonPortrait.Checked Then
fp.Orientation = FormPrinting.FormPrinting.OrientationENum.Portrait
ElseIf Me.RadioButtonLandscape.Checked Then
fp.Orientation = FormPrinting.FormPrinting.OrientationENum.Lanscape
End If
If Me.CheckBoxMyOwn.Checked Then
fp.DelegatePrintingReportTitle = AddressOf MrOwnPrintReportTitle
Else
fp.DelegatePrintingReportTitle = Nothing
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTrace.Click
MsgBox(fp.GetTrace())
End Sub
Private Sub DemoForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadListBox1()
LoadListBox2()
LoadListBox3()
LoadDataGrid()
'LoadFlexGrid() 'FlexGrid (Need a reference to C1.FlexGrid)
End Sub
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
LoadListBox1()
End Sub
Private Sub NumericUpDown1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.Leave
LoadListBox1()
End Sub
Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
LoadListBox2()
End Sub
Private Sub NumericUpDown2_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.Leave
LoadListBox2()
End Sub
Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
LoadListBox3()
End Sub
Private Sub NumericUpDown3_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.Leave
LoadListBox3()
End Sub
Private Sub NumericUpDown4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
LoadDataGrid()
End Sub
Private Sub NumericUpDown4_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.Leave
LoadDataGrid()
End Sub
Private Sub LoadListBox1()
Dim dt As New DataTable
Dim dc As New DataColumn
dc.ColumnName = "Col"
dc.Caption = dc.ColumnName
dt.Columns.Add(dc)
For i As Integer = 1 To Me.NumericUpDown1.Value
Dim values() As Object = {"Item #" & i}
dt.Rows.Add(values)
Next
ListBox1.DataSource = dt
ListBox1.DisplayMember = "Col"
End Sub
Private Sub LoadListBox2()
Dim dt As New DataTable
Dim dc As New DataColumn
dc.ColumnName = "Col"
dc.Caption = dc.ColumnName
dt.Columns.Add(dc)
For i As Integer = 1 To Me.NumericUpDown2.Value
Dim values() As Object = {"Item #" & i}
dt.Rows.Add(values)
Next
ListBox2.DataSource = dt
ListBox2.DisplayMember = "Col"
End Sub
Private Sub LoadListBox3()
Dim dt As New DataTable
Dim dc As New DataColumn
dc.ColumnName = "Col"
dc.Caption = dc.ColumnName
dt.Columns.Add(dc)
For i As Integer = 1 To Me.NumericUpDown3.Value
Dim values() As Object = {"Item #" & i}
dt.Rows.Add(values)
Next
ListBox3.DataSource = dt
ListBox3.DisplayMember = "Col"
End Sub
Private Sub LoadDataGrid()
'Create a data table
Dim dt As New DataTable
For i As Integer = 1 To 5
Dim dc As New DataColumn
dc.ColumnName = "Col-" & i
dc.Caption = dc.ColumnName
dc.DefaultValue = i * i
dt.Columns.Add(dc)
Next
For i As Integer = 1 To Me.NumericUpDown4.Value
Dim values() As Object = {"Item #" & i, i * 3, 1000 - (i * i)}
dt.Rows.Add(values)
Next
Me.DataGrid.DataSource = dt
End Sub
'FlexGrid (Need a reference to C1.FlexGrid)
'Private Sub LoadFlexGrid()
' 'Create a data table
' Dim dt As New DataTable
' For i As Integer = 1 To 5
' Dim dc As New DataColumn
' dc.ColumnName = "Col-" & i
' dc.Caption = dc.ColumnName
' dc.DefaultValue = i * i
' dt.Columns.Add(dc)
' Next
' For i As Integer = 0 To 68
' Dim values() As Object = {"Item #" & i, i * 3, 1000 - (i * i)}
' dt.Rows.Add(values)
' Next
' Fill(Flexgrid)
' C1FlexGrid1.DataSource = dt
' C1FlexGrid1.Cols(0).Visible = False
'End Sub
' Define my own title printer
Private Sub MrOwnPrintReportTitle(ByVal c As System.Windows.Forms.Control, _
ByVal typePrint As FormPrinting.FormPrinting.ParentControlPrinting, _
ByVal mp As FormPrinting.FormPrinting.MultiPageManagement, _
ByVal x As Single, ByVal y As Single, _
ByRef extendedHeight As Single, ByRef ScanForChildControls As Boolean)
ScanForChildControls = False
Dim printFont As Font = New Font(c.Font.Name, CSng(c.Font.Size * 2.1), FontStyle.Bold)
Dim fontHeight As Single = mp.FontHeight(printFont)
Dim Pen As Pen = New Pen(Color.Black, 2)
extendedHeight = fontHeight 3 Pen.Width 1
mp.BeginPrintUnit(y, extendedHeight)
Dim sf As StringFormat = New StringFormat
sf.Alignment = StringAlignment.Center
mp.DrawString(c.Text, printFont, Brushes.Gold, x, y, c.Width, fontHeight, sf)
y = fontHeight 3
mp.DrawLines(Pen, x, y, x c.Size.Width, y)
y = 3
mp.DrawLines(Pen, x, y, x c.Size.Width, y)
y = 1
mp.DrawLines(Pen, x, y, x c.Size.Width, y)
mp.EndPrintUnit()
End Sub
End Class