开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
StartForm.vb
资源名称：SALEOUTSYSTEM.rar　[点击查看]
上传用户：wj57717022
上传日期：2014-12-16
资源大小：4093k
文件大小：68k
源码类别：

医药行业

开发平台：

Visual Basic

StartForm.vb：源码内容
  1. Imports DataDynamics.ActiveReports.Design
  2. Imports System.ComponentModel
  3. Imports System.Collections
  4. Imports System
  5. Imports System.Drawing
  6. Imports System.Windows.Forms.ToolBarButtonClickEventArgs
  8. 'Demonstrates a custom end-user report designer that can be integrated in your applications 
  9. ' to allow users to modify report layouts.
  10. Public Class StartForm
  11.     Inherits System.Windows.Forms.Form
  13. #Region " Windows Form Designer generated code "
  15.     Public Sub New()
  16.         MyBase.New()
  18.         'This call is required by the Windows Form Designer.
  19.         InitializeComponent()
  21.         'Add any initialization after the InitializeComponent() call
  23.     End Sub
  25.     'Form overrides dispose to clean up the component list.
  26.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  27.         If disposing Then
  28.             If Not (components Is Nothing) Then
  29.                 components.Dispose()
  30.             End If
  31.         End If
  32.         MyBase.Dispose(disposing)
  33.     End Sub
  35.     'Required by the Windows Form Designer
  36.     Private components As System.ComponentModel.IContainer
  38.     'NOTE: The following procedure is required by the Windows Form Designer
  39.     'It can be modified using the Windows Form Designer.  
  40.     'Do not modify it using the code editor.
  41.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  42.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  43.     Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
  44.     Friend WithEvents Designer1 As DataDynamics.ActiveReports.Design.Designer
  45.     Friend WithEvents Panel3 As System.Windows.Forms.Panel
  46.     Friend WithEvents Panel4 As System.Windows.Forms.Panel
  47.     Friend WithEvents Splitter2 As System.Windows.Forms.Splitter
  48.     Friend WithEvents Panel5 As System.Windows.Forms.Panel
  49.     Friend WithEvents ReportExplorer1 As DataDynamics.ActiveReports.Design.ReportExplorer
  50.     Friend WithEvents PropertyGrid1 As System.Windows.Forms.PropertyGrid
  51.     Friend WithEvents Label1 As System.Windows.Forms.Label
  52.     Friend WithEvents Imgtoolbox As System.Windows.Forms.ImageList
  53.     Friend WithEvents ImgLayout As System.Windows.Forms.ImageList
  54.     Friend WithEvents ImgReport As System.Windows.Forms.ImageList
  55.     Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
  56.     Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
  57.     Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
  58.     Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
  59.     Friend WithEvents mnuFile As System.Windows.Forms.MenuItem
  60.     Friend WithEvents mnuPrintPreview As System.Windows.Forms.MenuItem
  61.     Friend WithEvents mnuLoadLayout As System.Windows.Forms.MenuItem
  62.     Friend WithEvents mnuSaveLayout As System.Windows.Forms.MenuItem
  63.     Friend WithEvents mnuPageSetup As System.Windows.Forms.MenuItem
  64.     Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
  65.     Friend WithEvents cmbFontSize As System.Windows.Forms.ComboBox
  66.     Friend WithEvents cmbFonts As System.Windows.Forms.ComboBox
  67.     Friend WithEvents cmbClassName As System.Windows.Forms.ComboBox
  68.     Friend WithEvents tlbLayout As System.Windows.Forms.ToolBar
  69.     Friend WithEvents tlbReport As System.Windows.Forms.ToolBar
  70.     Friend WithEvents tbbAligntoGrid As System.Windows.Forms.ToolBarButton
  71.     Private WithEvents tbbLine1 As System.Windows.Forms.ToolBarButton
  72.     Friend WithEvents tbbAlignLefts As System.Windows.Forms.ToolBarButton
  73.     Friend WithEvents tbbAlignCenters As System.Windows.Forms.ToolBarButton
  74.     Friend WithEvents tbbAlignRights As System.Windows.Forms.ToolBarButton
  75.     Private WithEvents tbbLine2 As System.Windows.Forms.ToolBarButton
  76.     Friend WithEvents tbbAlignTops As System.Windows.Forms.ToolBarButton
  77.     Friend WithEvents tbbAlignMiddles As System.Windows.Forms.ToolBarButton
  78.     Friend WithEvents tbbAlignBottoms As System.Windows.Forms.ToolBarButton
  79.     Private WithEvents tbbLine3 As System.Windows.Forms.ToolBarButton
  80.     Friend WithEvents tbbMakeSameWidth As System.Windows.Forms.ToolBarButton
  81.     Friend WithEvents tbbSizeToGrid As System.Windows.Forms.ToolBarButton
  82.     Friend WithEvents tbbMakeSameHeight As System.Windows.Forms.ToolBarButton
  83.     Friend WithEvents tbbMakeSameSize As System.Windows.Forms.ToolBarButton
  84.     Private WithEvents tbbLine4 As System.Windows.Forms.ToolBarButton
  85.     Private WithEvents tbbLine5 As System.Windows.Forms.ToolBarButton
  86.     Private WithEvents tbbLine6 As System.Windows.Forms.ToolBarButton
  87.     Private WithEvents tbbLine7 As System.Windows.Forms.ToolBarButton
  88.     Friend WithEvents tbbBringToFront As System.Windows.Forms.ToolBarButton
  89.     Friend WithEvents tbbSendToBack As System.Windows.Forms.ToolBarButton
  90.     Friend WithEvents tbbMakeHorizSpaceEqual As System.Windows.Forms.ToolBarButton
  91.     Friend WithEvents tbbIncreaseHorizSpace As System.Windows.Forms.ToolBarButton
  92.     Friend WithEvents tbbDecreaseHorizSpace As System.Windows.Forms.ToolBarButton
  93.     Friend WithEvents tbbRemoveHorizSpace As System.Windows.Forms.ToolBarButton
  94.     Friend WithEvents tbbMakeVertSpaceEqual As System.Windows.Forms.ToolBarButton
  95.     Friend WithEvents tbbIncreaseVertSpace As System.Windows.Forms.ToolBarButton
  96.     Friend WithEvents tbbDecreaseVertSpace As System.Windows.Forms.ToolBarButton
  97.     Friend WithEvents tbbRemoveVertSpace As System.Windows.Forms.ToolBarButton
  98.     Friend WithEvents tbbCenterHoriz As System.Windows.Forms.ToolBarButton
  99.     Friend WithEvents tbbCenterVert As System.Windows.Forms.ToolBarButton
  100.     Friend WithEvents tlbARToolbox As System.Windows.Forms.ToolBar
  101.     Private WithEvents tbbLine8 As System.Windows.Forms.ToolBarButton
  102.     Friend WithEvents tbbViewGrid As System.Windows.Forms.ToolBarButton
  103.     Friend WithEvents tbbReorderGroups As System.Windows.Forms.ToolBarButton
  104.     Friend WithEvents tbbEditScript As System.Windows.Forms.ToolBarButton
  105.     Private WithEvents tbbLine9 As System.Windows.Forms.ToolBarButton
  106.     Friend WithEvents tbbBold As System.Windows.Forms.ToolBarButton
  107.     Friend WithEvents tbbItalic As System.Windows.Forms.ToolBarButton
  108.     Friend WithEvents tbbUnderline As System.Windows.Forms.ToolBarButton
  109.     Private WithEvents tbbLine10 As System.Windows.Forms.ToolBarButton
  110.     Friend WithEvents tbbAlignLeft As System.Windows.Forms.ToolBarButton
  111.     Friend WithEvents tbbCenter As System.Windows.Forms.ToolBarButton
  112.     Friend WithEvents tbbAlignRight As System.Windows.Forms.ToolBarButton
  113.     Friend WithEvents tbbJustify As System.Windows.Forms.ToolBarButton
  114.     Private WithEvents tbbLine11 As System.Windows.Forms.ToolBarButton
  115.     Friend WithEvents tbbBullets As System.Windows.Forms.ToolBarButton
  116.     Friend WithEvents tbbDecreaseIndent As System.Windows.Forms.ToolBarButton
  117.     Friend WithEvents tbbIncreaseIndent As System.Windows.Forms.ToolBarButton
  118.     Friend WithEvents tbbPointer As System.Windows.Forms.ToolBarButton
  119.     Friend WithEvents tbbLabel As System.Windows.Forms.ToolBarButton
  120.     Friend WithEvents tbbTextBox As System.Windows.Forms.ToolBarButton
  121.     Friend WithEvents tbbCheckBox As System.Windows.Forms.ToolBarButton
  122.     Friend WithEvents tbbPicture As System.Windows.Forms.ToolBarButton
  123.     Friend WithEvents tbbShape As System.Windows.Forms.ToolBarButton
  124.     Friend WithEvents tbbLine As System.Windows.Forms.ToolBarButton
  125.     Friend WithEvents tbbSubreport As System.Windows.Forms.ToolBarButton
  126.     Friend WithEvents tbbPageBreak As System.Windows.Forms.ToolBarButton
  127.     Friend WithEvents tbbBarcode As System.Windows.Forms.ToolBarButton
  128.     Friend WithEvents tbbRichTextBox As System.Windows.Forms.ToolBarButton
  129.     Friend WithEvents btnLoad As System.Windows.Forms.ToolBarButton
  130.     Friend WithEvents btnSave As System.Windows.Forms.ToolBarButton
  131.     Friend WithEvents btnPrintview As System.Windows.Forms.ToolBarButton
  132.     Friend WithEvents btnPrintSetup As System.Windows.Forms.ToolBarButton
  133.     Friend WithEvents btnExit As System.Windows.Forms.ToolBarButton
  134.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  135.         Me.components = New System.ComponentModel.Container
  136.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(StartForm))
  137.         Me.tlbLayout = New System.Windows.Forms.ToolBar
  138.         Me.tbbAligntoGrid = New System.Windows.Forms.ToolBarButton
  139.         Me.tbbLine1 = New System.Windows.Forms.ToolBarButton
  140.         Me.tbbAlignLefts = New System.Windows.Forms.ToolBarButton
  141.         Me.tbbAlignCenters = New System.Windows.Forms.ToolBarButton
  142.         Me.tbbAlignRights = New System.Windows.Forms.ToolBarButton
  143.         Me.tbbLine2 = New System.Windows.Forms.ToolBarButton
  144.         Me.tbbAlignTops = New System.Windows.Forms.ToolBarButton
  145.         Me.tbbAlignMiddles = New System.Windows.Forms.ToolBarButton
  146.         Me.tbbAlignBottoms = New System.Windows.Forms.ToolBarButton
  147.         Me.tbbLine3 = New System.Windows.Forms.ToolBarButton
  148.         Me.tbbMakeSameWidth = New System.Windows.Forms.ToolBarButton
  149.         Me.tbbSizeToGrid = New System.Windows.Forms.ToolBarButton
  150.         Me.tbbMakeSameHeight = New System.Windows.Forms.ToolBarButton
  151.         Me.tbbMakeSameSize = New System.Windows.Forms.ToolBarButton
  152.         Me.tbbLine4 = New System.Windows.Forms.ToolBarButton
  153.         Me.tbbMakeHorizSpaceEqual = New System.Windows.Forms.ToolBarButton
  154.         Me.tbbIncreaseHorizSpace = New System.Windows.Forms.ToolBarButton
  155.         Me.tbbDecreaseHorizSpace = New System.Windows.Forms.ToolBarButton
  156.         Me.tbbRemoveHorizSpace = New System.Windows.Forms.ToolBarButton
  157.         Me.tbbLine5 = New System.Windows.Forms.ToolBarButton
  158.         Me.tbbMakeVertSpaceEqual = New System.Windows.Forms.ToolBarButton
  159.         Me.tbbIncreaseVertSpace = New System.Windows.Forms.ToolBarButton
  160.         Me.tbbDecreaseVertSpace = New System.Windows.Forms.ToolBarButton
  161.         Me.tbbRemoveVertSpace = New System.Windows.Forms.ToolBarButton
  162.         Me.tbbLine6 = New System.Windows.Forms.ToolBarButton
  163.         Me.tbbCenterHoriz = New System.Windows.Forms.ToolBarButton
  164.         Me.tbbCenterVert = New System.Windows.Forms.ToolBarButton
  165.         Me.tbbLine7 = New System.Windows.Forms.ToolBarButton
  166.         Me.tbbBringToFront = New System.Windows.Forms.ToolBarButton
  167.         Me.tbbSendToBack = New System.Windows.Forms.ToolBarButton
  168.         Me.btnLoad = New System.Windows.Forms.ToolBarButton
  169.         Me.btnSave = New System.Windows.Forms.ToolBarButton
  170.         Me.btnPrintview = New System.Windows.Forms.ToolBarButton
  171.         Me.btnPrintSetup = New System.Windows.Forms.ToolBarButton
  172.         Me.btnExit = New System.Windows.Forms.ToolBarButton
  173.         Me.ImgLayout = New System.Windows.Forms.ImageList(Me.components)
  174.         Me.Panel1 = New System.Windows.Forms.Panel
  175.         Me.tlbARToolbox = New System.Windows.Forms.ToolBar
  176.         Me.tbbPointer = New System.Windows.Forms.ToolBarButton
  177.         Me.tbbLabel = New System.Windows.Forms.ToolBarButton
  178.         Me.tbbTextBox = New System.Windows.Forms.ToolBarButton
  179.         Me.tbbCheckBox = New System.Windows.Forms.ToolBarButton
  180.         Me.tbbPicture = New System.Windows.Forms.ToolBarButton
  181.         Me.tbbShape = New System.Windows.Forms.ToolBarButton
  182.         Me.tbbLine = New System.Windows.Forms.ToolBarButton
  183.         Me.tbbRichTextBox = New System.Windows.Forms.ToolBarButton
  184.         Me.tbbSubreport = New System.Windows.Forms.ToolBarButton
  185.         Me.tbbPageBreak = New System.Windows.Forms.ToolBarButton
  186.         Me.tbbBarcode = New System.Windows.Forms.ToolBarButton
  187.         Me.Imgtoolbox = New System.Windows.Forms.ImageList(Me.components)
  188.         Me.Label1 = New System.Windows.Forms.Label
  189.         Me.Panel2 = New System.Windows.Forms.Panel
  190.         Me.Panel5 = New System.Windows.Forms.Panel
  191.         Me.ReportExplorer1 = New DataDynamics.ActiveReports.Design.ReportExplorer
  192.         Me.Designer1 = New DataDynamics.ActiveReports.Design.Designer
  193.         Me.Splitter2 = New System.Windows.Forms.Splitter
  194.         Me.Panel4 = New System.Windows.Forms.Panel
  195.         Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid
  196.         Me.Splitter1 = New System.Windows.Forms.Splitter
  197.         Me.Panel3 = New System.Windows.Forms.Panel
  198.         Me.tlbReport = New System.Windows.Forms.ToolBar
  199.         Me.tbbViewGrid = New System.Windows.Forms.ToolBarButton
  200.         Me.tbbReorderGroups = New System.Windows.Forms.ToolBarButton
  201.         Me.tbbLine8 = New System.Windows.Forms.ToolBarButton
  202.         Me.tbbEditScript = New System.Windows.Forms.ToolBarButton
  203.         Me.tbbLine9 = New System.Windows.Forms.ToolBarButton
  204.         Me.tbbBold = New System.Windows.Forms.ToolBarButton
  205.         Me.tbbItalic = New System.Windows.Forms.ToolBarButton
  206.         Me.tbbUnderline = New System.Windows.Forms.ToolBarButton
  207.         Me.tbbLine10 = New System.Windows.Forms.ToolBarButton
  208.         Me.tbbAlignLeft = New System.Windows.Forms.ToolBarButton
  209.         Me.tbbCenter = New System.Windows.Forms.ToolBarButton
  210.         Me.tbbAlignRight = New System.Windows.Forms.ToolBarButton
  211.         Me.tbbJustify = New System.Windows.Forms.ToolBarButton
  212.         Me.tbbLine11 = New System.Windows.Forms.ToolBarButton
  213.         Me.tbbBullets = New System.Windows.Forms.ToolBarButton
  214.         Me.tbbDecreaseIndent = New System.Windows.Forms.ToolBarButton
  215.         Me.tbbIncreaseIndent = New System.Windows.Forms.ToolBarButton
  216.         Me.ImgReport = New System.Windows.Forms.ImageList(Me.components)
  217.         Me.cmbFontSize = New System.Windows.Forms.ComboBox
  218.         Me.cmbFonts = New System.Windows.Forms.ComboBox
  219.         Me.cmbClassName = New System.Windows.Forms.ComboBox
  220.         Me.MainMenu1 = New System.Windows.Forms.MainMenu
  221.         Me.mnuFile = New System.Windows.Forms.MenuItem
  222.         Me.mnuPrintPreview = New System.Windows.Forms.MenuItem
  223.         Me.MenuItem4 = New System.Windows.Forms.MenuItem
  224.         Me.mnuLoadLayout = New System.Windows.Forms.MenuItem
  225.         Me.mnuSaveLayout = New System.Windows.Forms.MenuItem
  226.         Me.MenuItem7 = New System.Windows.Forms.MenuItem
  227.         Me.mnuPageSetup = New System.Windows.Forms.MenuItem
  228.         Me.MenuItem10 = New System.Windows.Forms.MenuItem
  229.         Me.mnuExit = New System.Windows.Forms.MenuItem
  230.         Me.Panel1.SuspendLayout()
  231.         Me.Panel2.SuspendLayout()
  232.         Me.Panel5.SuspendLayout()
  233.         Me.Panel4.SuspendLayout()
  234.         Me.Panel3.SuspendLayout()
  235.         Me.SuspendLayout()
  236.         '
  237.         'tlbLayout
  238.         '
  239.         Me.tlbLayout.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  240.         Me.tlbLayout.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbAligntoGrid, Me.tbbLine1, Me.tbbAlignLefts, Me.tbbAlignCenters, Me.tbbAlignRights, Me.tbbLine2, Me.tbbAlignTops, Me.tbbAlignMiddles, Me.tbbAlignBottoms, Me.tbbLine3, Me.tbbMakeSameWidth, Me.tbbSizeToGrid, Me.tbbMakeSameHeight, Me.tbbMakeSameSize, Me.tbbLine4, Me.tbbMakeHorizSpaceEqual, Me.tbbIncreaseHorizSpace, Me.tbbDecreaseHorizSpace, Me.tbbRemoveHorizSpace, Me.tbbLine5, Me.tbbMakeVertSpaceEqual, Me.tbbIncreaseVertSpace, Me.tbbDecreaseVertSpace, Me.tbbRemoveVertSpace, Me.tbbLine6, Me.tbbCenterHoriz, Me.tbbCenterVert, Me.tbbLine7, Me.tbbBringToFront, Me.tbbSendToBack, Me.btnLoad, Me.btnSave, Me.btnPrintview, Me.btnPrintSetup, Me.btnExit})
  241.         Me.tlbLayout.DropDownArrows = True
  242.         Me.tlbLayout.ImageList = Me.ImgLayout
  243.         Me.tlbLayout.Location = New System.Drawing.Point(0, 0)
  244.         Me.tlbLayout.Name = "tlbLayout"
  245.         Me.tlbLayout.ShowToolTips = True
  246.         Me.tlbLayout.Size = New System.Drawing.Size(1028, 41)
  247.         Me.tlbLayout.TabIndex = 0
  248.         '
  249.         'tbbAligntoGrid
  250.         '
  251.         Me.tbbAligntoGrid.ImageIndex = 0
  252.         Me.tbbAligntoGrid.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  253.         Me.tbbAligntoGrid.Tag = "AligntoGrid"
  254.         Me.tbbAligntoGrid.ToolTipText = "AligntoGrid"
  255.         '
  256.         'tbbLine1
  257.         '
  258.         Me.tbbLine1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  259.         '
  260.         'tbbAlignLefts
  261.         '
  262.         Me.tbbAlignLefts.ImageIndex = 1
  263.         Me.tbbAlignLefts.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  264.         Me.tbbAlignLefts.Tag = "AlignLefts"
  265.         Me.tbbAlignLefts.ToolTipText = "AlignLefts"
  266.         '
  267.         'tbbAlignCenters
  268.         '
  269.         Me.tbbAlignCenters.ImageIndex = 2
  270.         Me.tbbAlignCenters.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  271.         Me.tbbAlignCenters.Tag = "AlignCenters"
  272.         Me.tbbAlignCenters.ToolTipText = "AlignCenters"
  273.         '
  274.         'tbbAlignRights
  275.         '
  276.         Me.tbbAlignRights.ImageIndex = 3
  277.         Me.tbbAlignRights.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  278.         Me.tbbAlignRights.Tag = "AlignRights"
  279.         Me.tbbAlignRights.ToolTipText = "AlignRights"
  280.         '
  281.         'tbbLine2
  282.         '
  283.         Me.tbbLine2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  284.         '
  285.         'tbbAlignTops
  286.         '
  287.         Me.tbbAlignTops.ImageIndex = 4
  288.         Me.tbbAlignTops.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  289.         Me.tbbAlignTops.Tag = "AlignTops"
  290.         Me.tbbAlignTops.ToolTipText = "AlignTops"
  291.         '
  292.         'tbbAlignMiddles
  293.         '
  294.         Me.tbbAlignMiddles.ImageIndex = 5
  295.         Me.tbbAlignMiddles.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  296.         Me.tbbAlignMiddles.Tag = "AlignMiddles"
  297.         Me.tbbAlignMiddles.ToolTipText = "AlignMiddles"
  298.         '
  299.         'tbbAlignBottoms
  300.         '
  301.         Me.tbbAlignBottoms.ImageIndex = 6
  302.         Me.tbbAlignBottoms.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  303.         Me.tbbAlignBottoms.Tag = "AlignBottoms"
  304.         Me.tbbAlignBottoms.ToolTipText = "AlignBottoms"
  305.         '
  306.         'tbbLine3
  307.         '
  308.         Me.tbbLine3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  309.         '
  310.         'tbbMakeSameWidth
  311.         '
  312.         Me.tbbMakeSameWidth.ImageIndex = 7
  313.         Me.tbbMakeSameWidth.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  314.         Me.tbbMakeSameWidth.Tag = "MakeSameWidth"
  315.         Me.tbbMakeSameWidth.ToolTipText = "MakeSameWidth"
  316.         '
  317.         'tbbSizeToGrid
  318.         '
  319.         Me.tbbSizeToGrid.ImageIndex = 8
  320.         Me.tbbSizeToGrid.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  321.         Me.tbbSizeToGrid.Tag = "SizeToGrid"
  322.         Me.tbbSizeToGrid.ToolTipText = "SizeToGrid"
  323.         '
  324.         'tbbMakeSameHeight
  325.         '
  326.         Me.tbbMakeSameHeight.ImageIndex = 9
  327.         Me.tbbMakeSameHeight.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  328.         Me.tbbMakeSameHeight.Tag = "MakeSameHeight"
  329.         Me.tbbMakeSameHeight.ToolTipText = "MakeSameHeight"
  330.         '
  331.         'tbbMakeSameSize
  332.         '
  333.         Me.tbbMakeSameSize.ImageIndex = 10
  334.         Me.tbbMakeSameSize.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  335.         Me.tbbMakeSameSize.Tag = "MakeSameSize"
  336.         Me.tbbMakeSameSize.ToolTipText = "MakeSameSize"
  337.         '
  338.         'tbbLine4
  339.         '
  340.         Me.tbbLine4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  341.         '
  342.         'tbbMakeHorizSpaceEqual
  343.         '
  344.         Me.tbbMakeHorizSpaceEqual.ImageIndex = 11
  345.         Me.tbbMakeHorizSpaceEqual.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  346.         Me.tbbMakeHorizSpaceEqual.Tag = "MakeHorizSpaceEqual"
  347.         Me.tbbMakeHorizSpaceEqual.ToolTipText = "MakeHorizSpaceEqual"
  348.         '
  349.         'tbbIncreaseHorizSpace
  350.         '
  351.         Me.tbbIncreaseHorizSpace.ImageIndex = 12
  352.         Me.tbbIncreaseHorizSpace.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  353.         Me.tbbIncreaseHorizSpace.Tag = "IncreaseHorizSpace"
  354.         Me.tbbIncreaseHorizSpace.ToolTipText = "IncreaseHorizSpace"
  355.         '
  356.         'tbbDecreaseHorizSpace
  357.         '
  358.         Me.tbbDecreaseHorizSpace.ImageIndex = 13
  359.         Me.tbbDecreaseHorizSpace.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  360.         Me.tbbDecreaseHorizSpace.Tag = "DecreaseHorizSpace"
  361.         Me.tbbDecreaseHorizSpace.ToolTipText = "DecreaseHorizSpace"
  362.         '
  363.         'tbbRemoveHorizSpace
  364.         '
  365.         Me.tbbRemoveHorizSpace.ImageIndex = 14
  366.         Me.tbbRemoveHorizSpace.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  367.         Me.tbbRemoveHorizSpace.Tag = "RemoveHorizSpace"
  368.         Me.tbbRemoveHorizSpace.ToolTipText = "RemoveHorizSpace"
  369.         '
  370.         'tbbLine5
  371.         '
  372.         Me.tbbLine5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  373.         '
  374.         'tbbMakeVertSpaceEqual
  375.         '
  376.         Me.tbbMakeVertSpaceEqual.ImageIndex = 15
  377.         Me.tbbMakeVertSpaceEqual.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  378.         Me.tbbMakeVertSpaceEqual.Tag = "MakeVertSpaceEqual"
  379.         Me.tbbMakeVertSpaceEqual.ToolTipText = "MakeVertSpaceEqual"
  380.         '
  381.         'tbbIncreaseVertSpace
  382.         '
  383.         Me.tbbIncreaseVertSpace.ImageIndex = 16
  384.         Me.tbbIncreaseVertSpace.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  385.         Me.tbbIncreaseVertSpace.Tag = "IncreaseVertSpace"
  386.         Me.tbbIncreaseVertSpace.ToolTipText = "IncreaseVertSpace"
  387.         '
  388.         'tbbDecreaseVertSpace
  389.         '
  390.         Me.tbbDecreaseVertSpace.ImageIndex = 17
  391.         Me.tbbDecreaseVertSpace.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  392.         Me.tbbDecreaseVertSpace.Tag = "DecreaseVertSpace"
  393.         Me.tbbDecreaseVertSpace.ToolTipText = "DecreaseVertSpace"
  394.         '
  395.         'tbbRemoveVertSpace
  396.         '
  397.         Me.tbbRemoveVertSpace.ImageIndex = 18
  398.         Me.tbbRemoveVertSpace.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  399.         Me.tbbRemoveVertSpace.Tag = "RemoveVertSpace"
  400.         Me.tbbRemoveVertSpace.ToolTipText = "RemoveVertSpace"
  401.         '
  402.         'tbbLine6
  403.         '
  404.         Me.tbbLine6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  405.         '
  406.         'tbbCenterHoriz
  407.         '
  408.         Me.tbbCenterHoriz.ImageIndex = 19
  409.         Me.tbbCenterHoriz.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  410.         Me.tbbCenterHoriz.Tag = "CenterHoriz"
  411.         Me.tbbCenterHoriz.ToolTipText = "CenterHoriz"
  412.         '
  413.         'tbbCenterVert
  414.         '
  415.         Me.tbbCenterVert.ImageIndex = 20
  416.         Me.tbbCenterVert.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  417.         Me.tbbCenterVert.Tag = "CenterVert"
  418.         Me.tbbCenterVert.ToolTipText = "CenterVert"
  419.         '
  420.         'tbbLine7
  421.         '
  422.         Me.tbbLine7.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  423.         '
  424.         'tbbBringToFront
  425.         '
  426.         Me.tbbBringToFront.ImageIndex = 21
  427.         Me.tbbBringToFront.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  428.         Me.tbbBringToFront.Tag = "BringToFront"
  429.         Me.tbbBringToFront.ToolTipText = "BringToFront"
  430.         '
  431.         'tbbSendToBack
  432.         '
  433.         Me.tbbSendToBack.ImageIndex = 22
  434.         Me.tbbSendToBack.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  435.         Me.tbbSendToBack.Tag = "SendToBack"
  436.         Me.tbbSendToBack.ToolTipText = "SendToBack"
  437.         '
  438.         'btnLoad
  439.         '
  440.         Me.btnLoad.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  441.         Me.btnLoad.Tag = "加载报表"
  442.         Me.btnLoad.Text = "加载报表"
  443.         '
  444.         'btnSave
  445.         '
  446.         Me.btnSave.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  447.         Me.btnSave.Tag = "保存报表"
  448.         Me.btnSave.Text = "保存报表"
  449.         '
  450.         'btnPrintview
  451.         '
  452.         Me.btnPrintview.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  453.         Me.btnPrintview.Tag = "报表预览"
  454.         Me.btnPrintview.Text = "报表预览"
  455.         '
  456.         'btnPrintSetup
  457.         '
  458.         Me.btnPrintSetup.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  459.         Me.btnPrintSetup.Tag = "打印设置"
  460.         Me.btnPrintSetup.Text = "打印设置"
  461.         '
  462.         'btnExit
  463.         '
  464.         Me.btnExit.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  465.         Me.btnExit.Tag = "退出"
  466.         Me.btnExit.Text = "退出"
  467.         '
  468.         'ImgLayout
  469.         '
  470.         Me.ImgLayout.ImageSize = New System.Drawing.Size(16, 16)
  471.         Me.ImgLayout.ImageStream = CType(resources.GetObject("ImgLayout.ImageStream"), System.Windows.Forms.ImageListStreamer)
  472.         Me.ImgLayout.TransparentColor = System.Drawing.Color.Transparent
  473.         '
  474.         'Panel1
  475.         '
  476.         Me.Panel1.Controls.Add(Me.tlbARToolbox)
  477.         Me.Panel1.Controls.Add(Me.Label1)
  478.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
  479.         Me.Panel1.Location = New System.Drawing.Point(0, 66)
  480.         Me.Panel1.Name = "Panel1"
  481.         Me.Panel1.Size = New System.Drawing.Size(125, 667)
  482.         Me.Panel1.TabIndex = 2
  483.         '
  484.         'tlbARToolbox
  485.         '
  486.         Me.tlbARToolbox.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  487.         Me.tlbARToolbox.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbPointer, Me.tbbLabel, Me.tbbTextBox, Me.tbbCheckBox, Me.tbbPicture, Me.tbbShape, Me.tbbLine, Me.tbbRichTextBox, Me.tbbSubreport, Me.tbbPageBreak, Me.tbbBarcode})
  488.         Me.tlbARToolbox.Divider = False
  489.         Me.tlbARToolbox.Dock = System.Windows.Forms.DockStyle.Fill
  490.         Me.tlbARToolbox.DropDownArrows = True
  491.         Me.tlbARToolbox.ImageList = Me.Imgtoolbox
  492.         Me.tlbARToolbox.Location = New System.Drawing.Point(0, 17)
  493.         Me.tlbARToolbox.Name = "tlbARToolbox"
  494.         Me.tlbARToolbox.ShowToolTips = True
  495.         Me.tlbARToolbox.Size = New System.Drawing.Size(125, 224)
  496.         Me.tlbARToolbox.TabIndex = 1
  497.         Me.tlbARToolbox.TextAlign = System.Windows.Forms.ToolBarTextAlign.Right
  498.         '
  499.         'tbbPointer
  500.         '
  501.         Me.tbbPointer.ImageIndex = 0
  502.         Me.tbbPointer.Tag = "Pointer"
  503.         Me.tbbPointer.Text = "Pointer"
  504.         Me.tbbPointer.ToolTipText = "Pointer"
  505.         '
  506.         'tbbLabel
  507.         '
  508.         Me.tbbLabel.ImageIndex = 1
  509.         Me.tbbLabel.Tag = "Label"
  510.         Me.tbbLabel.Text = "Label"
  511.         Me.tbbLabel.ToolTipText = "Label"
  512.         '
  513.         'tbbTextBox
  514.         '
  515.         Me.tbbTextBox.ImageIndex = 2
  516.         Me.tbbTextBox.Tag = "TextBox"
  517.         Me.tbbTextBox.Text = "TextBox"
  518.         Me.tbbTextBox.ToolTipText = "TextBox"
  519.         '
  520.         'tbbCheckBox
  521.         '
  522.         Me.tbbCheckBox.ImageIndex = 3
  523.         Me.tbbCheckBox.Tag = "CheckBox"
  524.         Me.tbbCheckBox.Text = "CheckBox"
  525.         Me.tbbCheckBox.ToolTipText = "CheckBox"
  526.         '
  527.         'tbbPicture
  528.         '
  529.         Me.tbbPicture.ImageIndex = 4
  530.         Me.tbbPicture.Tag = "Picture"
  531.         Me.tbbPicture.Text = "Picture"
  532.         Me.tbbPicture.ToolTipText = "Picture"
  533.         '
  534.         'tbbShape
  535.         '
  536.         Me.tbbShape.ImageIndex = 5
  537.         Me.tbbShape.Tag = "Shape"
  538.         Me.tbbShape.Text = "Shape"
  539.         Me.tbbShape.ToolTipText = "Shape"
  540.         '
  541.         'tbbLine
  542.         '
  543.         Me.tbbLine.ImageIndex = 6
  544.         Me.tbbLine.Tag = "Line"
  545.         Me.tbbLine.Text = "Line"
  546.         Me.tbbLine.ToolTipText = "Line"
  547.         '
  548.         'tbbRichTextBox
  549.         '
  550.         Me.tbbRichTextBox.ImageIndex = 7
  551.         Me.tbbRichTextBox.Tag = "RichText"
  552.         Me.tbbRichTextBox.Text = "RichTextBox"
  553.         Me.tbbRichTextBox.ToolTipText = "RichTextBox"
  554.         '
  555.         'tbbSubreport
  556.         '
  557.         Me.tbbSubreport.ImageIndex = 8
  558.         Me.tbbSubreport.Tag = "Subreport"
  559.         Me.tbbSubreport.Text = "Subreport"
  560.         Me.tbbSubreport.ToolTipText = "Subreport"
  561.         '
  562.         'tbbPageBreak
  563.         '
  564.         Me.tbbPageBreak.ImageIndex = 9
  565.         Me.tbbPageBreak.Tag = "PageBreak"
  566.         Me.tbbPageBreak.Text = "PageBreak"
  567.         Me.tbbPageBreak.ToolTipText = "PageBreak"
  568.         '
  569.         'tbbBarcode
  570.         '
  571.         Me.tbbBarcode.ImageIndex = 10
  572.         Me.tbbBarcode.Tag = "Barcode"
  573.         Me.tbbBarcode.Text = "Barcode"
  574.         Me.tbbBarcode.ToolTipText = "Barcode"
  575.         '
  576.         'Imgtoolbox
  577.         '
  578.         Me.Imgtoolbox.ImageSize = New System.Drawing.Size(16, 16)
  579.         Me.Imgtoolbox.ImageStream = CType(resources.GetObject("Imgtoolbox.ImageStream"), System.Windows.Forms.ImageListStreamer)
  580.         Me.Imgtoolbox.TransparentColor = System.Drawing.Color.Transparent
  581.         '
  582.         'Label1
  583.         '
  584.         Me.Label1.BackColor = System.Drawing.SystemColors.ControlDark
  585.         Me.Label1.Dock = System.Windows.Forms.DockStyle.Top
  586.         Me.Label1.ForeColor = System.Drawing.SystemColors.ControlLightLight
  587.         Me.Label1.Location = New System.Drawing.Point(0, 0)
  588.         Me.Label1.Name = "Label1"
  589.         Me.Label1.Size = New System.Drawing.Size(125, 17)
  590.         Me.Label1.TabIndex = 0
  591.         Me.Label1.Text = "ActiveReports"
  592.         '
  593.         'Panel2
  594.         '
  595.         Me.Panel2.Controls.Add(Me.Panel5)
  596.         Me.Panel2.Controls.Add(Me.Splitter2)
  597.         Me.Panel2.Controls.Add(Me.Panel4)
  598.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Right
  599.         Me.Panel2.Location = New System.Drawing.Point(856, 66)
  600.         Me.Panel2.Name = "Panel2"
  601.         Me.Panel2.Size = New System.Drawing.Size(172, 667)
  602.         Me.Panel2.TabIndex = 3
  603.         '
  604.         'Panel5
  605.         '
  606.         Me.Panel5.Controls.Add(Me.ReportExplorer1)
  607.         Me.Panel5.Dock = System.Windows.Forms.DockStyle.Fill
  608.         Me.Panel5.Location = New System.Drawing.Point(0, 0)
  609.         Me.Panel5.Name = "Panel5"
  610.         Me.Panel5.Size = New System.Drawing.Size(172, 556)
  611.         Me.Panel5.TabIndex = 2
  612.         '
  613.         'ReportExplorer1
  614.         '
  615.         Me.ReportExplorer1.Dock = System.Windows.Forms.DockStyle.Fill
  616.         Me.ReportExplorer1.Location = New System.Drawing.Point(0, 0)
  617.         Me.ReportExplorer1.Name = "ReportExplorer1"
  618.         Me.ReportExplorer1.ReportDesigner = Me.Designer1
  619.         Me.ReportExplorer1.Size = New System.Drawing.Size(172, 556)
  620.         Me.ReportExplorer1.TabIndex = 0
  621.         '
  622.         'Designer1
  623.         '
  624.         Me.Designer1.DesignUnits = DataDynamics.ActiveReports.Design.MeasurementUnits.US
  625.         Me.Designer1.Dock = System.Windows.Forms.DockStyle.Fill
  626.         Me.Designer1.DrawGrid = True
  627.         Me.Designer1.GridX = 16
  628.         Me.Designer1.GridY = 16
  629.         Me.Designer1.IsDirty = False
  630.         Me.Designer1.Location = New System.Drawing.Point(125, 66)
  631.         Me.Designer1.LockControls = False
  632.         Me.Designer1.Name = "Designer1"
  633.         Me.Designer1.ShowDataSourceIcon = True
  634.         Me.Designer1.Size = New System.Drawing.Size(727, 667)
  635.         Me.Designer1.SnapGrid = True
  636.         Me.Designer1.TabIndex = 5
  637.         Me.Designer1.ToolBoxItem = Nothing
  638.         '
  639.         'Splitter2
  640.         '
  641.         Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Bottom
  642.         Me.Splitter2.Location = New System.Drawing.Point(0, 556)
  643.         Me.Splitter2.Name = "Splitter2"
  644.         Me.Splitter2.Size = New System.Drawing.Size(172, 3)
  645.         Me.Splitter2.TabIndex = 1
  646.         Me.Splitter2.TabStop = False
  647.         '
  648.         'Panel4
  649.         '
  650.         Me.Panel4.Controls.Add(Me.PropertyGrid1)
  651.         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
  652.         Me.Panel4.Location = New System.Drawing.Point(0, 559)
  653.         Me.Panel4.Name = "Panel4"
  654.         Me.Panel4.Size = New System.Drawing.Size(172, 108)
  655.         Me.Panel4.TabIndex = 0
  656.         '
  657.         'PropertyGrid1
  658.         '
  659.         Me.PropertyGrid1.CommandsVisibleIfAvailable = True
  660.         Me.PropertyGrid1.Dock = System.Windows.Forms.DockStyle.Fill
  661.         Me.PropertyGrid1.LargeButtons = False
  662.         Me.PropertyGrid1.LineColor = System.Drawing.SystemColors.ScrollBar
  663.         Me.PropertyGrid1.Location = New System.Drawing.Point(0, 0)
  664.         Me.PropertyGrid1.Name = "PropertyGrid1"
  665.         Me.PropertyGrid1.Size = New System.Drawing.Size(172, 108)
  666.         Me.PropertyGrid1.TabIndex = 0
  667.         Me.PropertyGrid1.Text = "PropertyGrid1"
  668.         Me.PropertyGrid1.ViewBackColor = System.Drawing.SystemColors.Window
  669.         Me.PropertyGrid1.ViewForeColor = System.Drawing.SystemColors.WindowText
  670.         '
  671.         'Splitter1
  672.         '
  673.         Me.Splitter1.Dock = System.Windows.Forms.DockStyle.Right
  674.         Me.Splitter1.Location = New System.Drawing.Point(852, 66)
  675.         Me.Splitter1.Name = "Splitter1"
  676.         Me.Splitter1.Size = New System.Drawing.Size(4, 667)
  677.         Me.Splitter1.TabIndex = 4
  678.         Me.Splitter1.TabStop = False
  679.         '
  680.         'Panel3
  681.         '
  682.         Me.Panel3.Controls.Add(Me.tlbReport)
  683.         Me.Panel3.Controls.Add(Me.cmbFontSize)
  684.         Me.Panel3.Controls.Add(Me.cmbFonts)
  685.         Me.Panel3.Controls.Add(Me.cmbClassName)
  686.         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
  687.         Me.Panel3.Location = New System.Drawing.Point(0, 41)
  688.         Me.Panel3.Name = "Panel3"
  689.         Me.Panel3.Size = New System.Drawing.Size(1028, 25)
  690.         Me.Panel3.TabIndex = 6
  691.         '
  692.         'tlbReport
  693.         '
  694.         Me.tlbReport.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  695.         Me.tlbReport.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbViewGrid, Me.tbbReorderGroups, Me.tbbLine8, Me.tbbEditScript, Me.tbbLine9, Me.tbbBold, Me.tbbItalic, Me.tbbUnderline, Me.tbbLine10, Me.tbbAlignLeft, Me.tbbCenter, Me.tbbAlignRight, Me.tbbJustify, Me.tbbLine11, Me.tbbBullets, Me.tbbDecreaseIndent, Me.tbbIncreaseIndent})
  696.         Me.tlbReport.Dock = System.Windows.Forms.DockStyle.Fill
  697.         Me.tlbReport.DropDownArrows = True
  698.         Me.tlbReport.ImageList = Me.ImgReport
  699.         Me.tlbReport.Location = New System.Drawing.Point(436, 0)
  700.         Me.tlbReport.Name = "tlbReport"
  701.         Me.tlbReport.ShowToolTips = True
  702.         Me.tlbReport.Size = New System.Drawing.Size(592, 28)
  703.         Me.tlbReport.TabIndex = 3
  704.         '
  705.         'tbbViewGrid
  706.         '
  707.         Me.tbbViewGrid.ImageIndex = 12
  708.         Me.tbbViewGrid.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  709.         Me.tbbViewGrid.Tag = "ViewGrid"
  710.         Me.tbbViewGrid.ToolTipText = "ViewGrid"
  711.         '
  712.         'tbbReorderGroups
  713.         '
  714.         Me.tbbReorderGroups.ImageIndex = 11
  715.         Me.tbbReorderGroups.Tag = "ReorderGroups"
  716.         Me.tbbReorderGroups.ToolTipText = "ReorderGroups"
  717.         '
  718.         'tbbLine8
  719.         '
  720.         Me.tbbLine8.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  721.         '
  722.         'tbbEditScript
  723.         '
  724.         Me.tbbEditScript.ImageIndex = 10
  725.         Me.tbbEditScript.Tag = "EditScript"
  726.         Me.tbbEditScript.ToolTipText = "EditScript"
  727.         '
  728.         'tbbLine9
  729.         '
  730.         Me.tbbLine9.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  731.         '
  732.         'tbbBold
  733.         '
  734.         Me.tbbBold.ImageIndex = 0
  735.         Me.tbbBold.Tag = "Bold"
  736.         Me.tbbBold.ToolTipText = "Bold"
  737.         '
  738.         'tbbItalic
  739.         '
  740.         Me.tbbItalic.ImageIndex = 1
  741.         Me.tbbItalic.Tag = "Italic"
  742.         Me.tbbItalic.ToolTipText = "Italic"
  743.         '
  744.         'tbbUnderline
  745.         '
  746.         Me.tbbUnderline.ImageIndex = 2
  747.         Me.tbbUnderline.Tag = "Underline"
  748.         Me.tbbUnderline.ToolTipText = "Underline"
  749.         '
  750.         'tbbLine10
  751.         '
  752.         Me.tbbLine10.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  753.         '
  754.         'tbbAlignLeft
  755.         '
  756.         Me.tbbAlignLeft.ImageIndex = 6
  757.         Me.tbbAlignLeft.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  758.         Me.tbbAlignLeft.Tag = "AlignLeft"
  759.         Me.tbbAlignLeft.ToolTipText = "AlignLeft"
  760.         '
  761.         'tbbCenter
  762.         '
  763.         Me.tbbCenter.ImageIndex = 7
  764.         Me.tbbCenter.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  765.         Me.tbbCenter.Tag = "Center"
  766.         Me.tbbCenter.ToolTipText = "Center"
  767.         '
  768.         'tbbAlignRight
  769.         '
  770.         Me.tbbAlignRight.ImageIndex = 8
  771.         Me.tbbAlignRight.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  772.         Me.tbbAlignRight.Tag = "AlignRight"
  773.         Me.tbbAlignRight.ToolTipText = "AlignRight"
  774.         '
  775.         'tbbJustify
  776.         '
  777.         Me.tbbJustify.ImageIndex = 9
  778.         Me.tbbJustify.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  779.         Me.tbbJustify.Tag = "Justify"
  780.         Me.tbbJustify.ToolTipText = "Justify"
  781.         '
  782.         'tbbLine11
  783.         '
  784.         Me.tbbLine11.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  785.         '
  786.         'tbbBullets
  787.         '
  788.         Me.tbbBullets.ImageIndex = 5
  789.         Me.tbbBullets.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
  790.         Me.tbbBullets.Tag = "Bullets"
  791.         Me.tbbBullets.ToolTipText = "Bullets"
  792.         '
  793.         'tbbDecreaseIndent
  794.         '
  795.         Me.tbbDecreaseIndent.ImageIndex = 4
  796.         Me.tbbDecreaseIndent.Tag = "DecreaseIndent"
  797.         Me.tbbDecreaseIndent.ToolTipText = "DecreaseIndent"
  798.         '
  799.         'tbbIncreaseIndent
  800.         '
  801.         Me.tbbIncreaseIndent.ImageIndex = 3
  802.         Me.tbbIncreaseIndent.Tag = "IncreaseIndent"
  803.         Me.tbbIncreaseIndent.ToolTipText = "IncreaseIndent"
  804.         '
  805.         'ImgReport
  806.         '
  807.         Me.ImgReport.ImageSize = New System.Drawing.Size(16, 16)
  808.         Me.ImgReport.ImageStream = CType(resources.GetObject("ImgReport.ImageStream"), System.Windows.Forms.ImageListStreamer)
  809.         Me.ImgReport.TransparentColor = System.Drawing.Color.Transparent
  810.         '
  811.         'cmbFontSize
  812.         '
  813.         Me.cmbFontSize.Dock = System.Windows.Forms.DockStyle.Left
  814.         Me.cmbFontSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  815.         Me.cmbFontSize.Location = New System.Drawing.Point(290, 0)
  816.         Me.cmbFontSize.Name = "cmbFontSize"
  817.         Me.cmbFontSize.Size = New System.Drawing.Size(146, 20)
  818.         Me.cmbFontSize.TabIndex = 2
  819.         '
  820.         'cmbFonts
  821.         '
  822.         Me.cmbFonts.Dock = System.Windows.Forms.DockStyle.Left
  823.         Me.cmbFonts.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  824.         Me.cmbFonts.Location = New System.Drawing.Point(145, 0)
  825.         Me.cmbFonts.Name = "cmbFonts"
  826.         Me.cmbFonts.Size = New System.Drawing.Size(145, 20)
  827.         Me.cmbFonts.TabIndex = 1
  828.         '
  829.         'cmbClassName
  830.         '
  831.         Me.cmbClassName.Dock = System.Windows.Forms.DockStyle.Left
  832.         Me.cmbClassName.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  833.         Me.cmbClassName.Location = New System.Drawing.Point(0, 0)
  834.         Me.cmbClassName.Name = "cmbClassName"
  835.         Me.cmbClassName.Size = New System.Drawing.Size(145, 20)
  836.         Me.cmbClassName.TabIndex = 0
  837.         '
  838.         'MainMenu1
  839.         '
  840.         Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile})
  841.         '
  842.         'mnuFile
  843.         '
  844.         Me.mnuFile.Index = 0
  845.         Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuPrintPreview, Me.MenuItem4, Me.mnuLoadLayout, Me.mnuSaveLayout, Me.MenuItem7, Me.mnuPageSetup, Me.MenuItem10, Me.mnuExit})
  846.         Me.mnuFile.Text = "&File"
  847.         '
  848.         'mnuPrintPreview
  849.         '
  850.         Me.mnuPrintPreview.Index = 0
  851.         Me.mnuPrintPreview.Text = "&Print Preview"
  852.         '
  853.         'MenuItem4
  854.         '
  855.         Me.MenuItem4.Index = 1
  856.         Me.MenuItem4.Text = "-"
  857.         '
  858.         'mnuLoadLayout
  859.         '
  860.         Me.mnuLoadLayout.Index = 2
  861.         Me.mnuLoadLayout.Text = "&Load Layout"
  862.         '
  863.         'mnuSaveLayout
  864.         '
  865.         Me.mnuSaveLayout.Index = 3
  866.         Me.mnuSaveLayout.Text = "&Save Layout"
  867.         '
  868.         'MenuItem7
  869.         '
  870.         Me.MenuItem7.Index = 4
  871.         Me.MenuItem7.Text = "-"
  872.         '
  873.         'mnuPageSetup
  874.         '
  875.         Me.mnuPageSetup.Index = 5
  876.         Me.mnuPageSetup.Text = "Page Set&up"
  877.         '
  878.         'MenuItem10
  879.         '
  880.         Me.MenuItem10.Index = 6
  881.         Me.MenuItem10.Text = "-"
  882.         '
  883.         'mnuExit
  884.         '
  885.         Me.mnuExit.Index = 7
  886.         Me.mnuExit.Text = "E&xit"
  887.         '
  888.         'StartForm
  889.         '
  890.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  891.         Me.ClientSize = New System.Drawing.Size(1028, 733)
  892.         Me.Controls.Add(Me.Designer1)
  893.         Me.Controls.Add(Me.Splitter1)
  894.         Me.Controls.Add(Me.Panel2)
  895.         Me.Controls.Add(Me.Panel1)
  896.         Me.Controls.Add(Me.Panel3)
  897.         Me.Controls.Add(Me.tlbLayout)
  898.         Me.Menu = Me.MainMenu1
  899.         Me.Name = "StartForm"
  900.         Me.Text = "用户报表设计"
  901.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  902.         Me.Panel1.ResumeLayout(False)
  903.         Me.Panel2.ResumeLayout(False)
  904.         Me.Panel5.ResumeLayout(False)
  905.         Me.Panel4.ResumeLayout(False)
  906.         Me.Panel3.ResumeLayout(False)
  907.         Me.ResumeLayout(False)
  909.     End Sub
  911. #End Region
  912.     Protected Enum toolbarModes
  913.         singleControl
  914.         twoControls
  915.         multiControls
  916.         noControls
  917.     End Enum
  919.     Dim i As Integer
  920.     Dim cnt As Integer
  921.     Dim ctl As String
  923. #Region "fill comboboxes"
  924.     Private Sub fillFonts()
  925.         Me.cmbFonts.Items.Clear()
  926.         Dim fc As New System.Drawing.Text.InstalledFontCollection()
  927.         For i = 0 To fc.Families.Length - 1
  928.             Me.cmbFonts.Items.Add(fc.Families(i).Name)
  929.         Next
  930.         Me.cmbFonts.SelectedIndex = 0
  931.     End Sub
  933.     Private Sub fillFontSizes()
  934.         cmbFontSize.Items.Clear()
  935.         cmbFontSize.Items.Add(" 8")
  936.         cmbFontSize.Items.Add(" 9")
  937.         cmbFontSize.Items.Add("10")
  938.         cmbFontSize.Items.Add("11")
  939.         cmbFontSize.Items.Add("12")
  940.         cmbFontSize.Items.Add("14")
  941.         cmbFontSize.Items.Add("16")
  942.         cmbFontSize.Items.Add("18")
  943.         cmbFontSize.Items.Add("20")
  944.         cmbFontSize.Items.Add("22")
  945.         cmbFontSize.Items.Add("24")
  946.         cmbFontSize.Items.Add("26")
  947.         cmbFontSize.Items.Add("28")
  948.         cmbFontSize.Items.Add("36")
  949.         cmbFontSize.Items.Add("48")
  950.         cmbFontSize.Items.Add("72")
  951.         Me.cmbFontSize.SelectedIndex = 0
  952.     End Sub
  954.     Private Sub fillClassName()
  955.         Me.cmbClassName.Items.Clear()
  956.         For i = 0 To Designer1.Report.StyleSheet.Count - 1
  957.             Me.cmbClassName.Items.Add(Designer1.Report.StyleSheet(i).Name)
  958.         Next
  959.         Me.cmbClassName.SelectedIndex = 0
  960.     End Sub
  961. #End Region
  964.     Private Sub StartForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  965.         Me.fillClassName()
  966.         Me.fillFonts()
  967.         Me.fillFontSizes()
  969.         Me.setModes(toolbarModes.noControls)
  970.         Me.Designer1.Focus()
  971.     End Sub
  972. #Region "Selection Changed Actions for the Report Toolbar"
  973.     Private Sub selChangeReportToolbar()
  974.         Dim m_arrayFont As New ArrayList()
  975.         Dim m_arrayFontSize As New ArrayList()
  976.         Dim m_arrayClassName As New ArrayList()
  977.         Dim sFont As String
  978.         Dim sFontSize As String
  979.         Dim sClassName As String
  980.         sFont = ""
  981.         sFontSize = ""
  982.         sClassName = ""
  983.         Dim ctl As String
  984.         cnt = Designer1.Selection.Count
  985.         If cnt = 0 Then
  986.             Exit Sub
  987.         End If
  988.         For i = 0 To cnt - 1
  989.             ctl = Designer1.Selection(i).GetType().ToString
  990.             If ((ctl.IndexOf("TextBox") > 0) Or (ctl.IndexOf("CheckBox") > 0) Or (ctl.IndexOf("Label") > 0)) Then
  991.                 Select Case ctl
  992.                     Case "DataDynamics.ActiveReports.TextBox"
  993.                         sFont = CType(Designer1.Selection(i), DataDynamics.ActiveReports.TextBox).Font.Name.ToString()
  994.                         sFontSize = CType(Designer1.Selection(i), DataDynamics.ActiveReports.TextBox).Font.Size.ToString()
  995.                         sClassName = CType(Designer1.Selection(i), DataDynamics.ActiveReports.TextBox).ClassName.ToString()
  996.                         If m_arrayFont.Contains(sFont) = False Then
  997.                             m_arrayFont.Add(sFont)
  998.                             If m_arrayFontSize.Contains(sFontSize) = False Then
  999.                                 m_arrayFontSize.Add(sFontSize)
  1000.                                 If m_arrayClassName.Contains(sClassName) = False Then
  1001.                                     m_arrayClassName.Add(sClassName)
  1002.                                 End If
  1003.                             End If
  1004.                         End If
  1005.                     Case "DataDynamics.ActiveReports.Label"
  1006.                         sFont = CType(Designer1.Selection(i), DataDynamics.ActiveReports.Label).Font.Name.ToString()
  1007.                         sFontSize = CType(Designer1.Selection(i), DataDynamics.ActiveReports.Label).Font.Size.ToString()
  1008.                         sClassName = CType(Designer1.Selection(i), DataDynamics.ActiveReports.Label).ClassName.ToString()
  1009.                         If m_arrayFont.Contains(sFont) = False Then
  1010.                             m_arrayFont.Add(sFont)
  1011.                             If m_arrayFontSize.Contains(sFontSize) = False Then
  1012.                                 m_arrayFontSize.Add(sFontSize)
  1013.                                 If m_arrayClassName.Contains(sClassName) = False Then
  1014.                                     m_arrayClassName.Add(sClassName)
  1015.                                 End If
  1016.                             End If
  1017.                         End If
  1018.                     Case "DataDynamics.ActiveReports.CheckBox"
  1019.                         sFont = CType(Designer1.Selection(i), DataDynamics.ActiveReports.CheckBox).Font.Name
  1020.                         sFontSize = CType(Designer1.Selection(i), DataDynamics.ActiveReports.CheckBox).Font.Size
  1021.                         sClassName = CType(Designer1.Selection(i), DataDynamics.ActiveReports.CheckBox).ClassName
  1022.                         If m_arrayFont.Contains(sFont) = False Then
  1023.                             m_arrayFont.Add(sFont)
  1024.                             If m_arrayFontSize.Contains(sFontSize) = False Then
  1025.                                 m_arrayFontSize.Add(sFontSize)
  1026.                                 If m_arrayClassName.Contains(sClassName) = False Then
  1027.                                     m_arrayClassName.Add(sClassName)
  1028.                                 End If
  1029.                             End If
  1030.                         End If
  1031.                 End Select
  1032.             End If
  1033.         Next
  1034.         If ((m_arrayFont.Count >= 1) AndAlso (cnt > 1)) Then
  1035.             cmbFonts.Text = ""
  1036.             cmbFonts.Enabled = True
  1037.         ElseIf (m_arrayFont.Count = 0) Then
  1038.             cmbFonts.Text = ""
  1039.             cmbFonts.Enabled = False
  1040.         ElseIf (m_arrayFont.Count = 1) Then
  1041.             cmbFonts.Text = m_arrayFont(0).ToString()
  1042.             cmbFonts.Enabled = True
  1043.         End If
  1044.         If ((m_arrayFont.Count >= 1) AndAlso (cnt > 1)) Then
  1045.             cmbFontSize.Text = ""
  1046.             cmbFontSize.Enabled = True
  1047.         ElseIf (m_arrayFontSize.Count = 0) Then
  1048.             cmbFontSize.Text = ""
  1049.             cmbFontSize.Enabled = False
  1050.         ElseIf (m_arrayFontSize.Count = 1) Then
  1051.             cmbFontSize.Text = m_arrayFontSize(0).ToString()
  1052.             cmbFontSize.Enabled = True
  1053.         End If
  1054.         If ((m_arrayFont.Count >= 1) AndAlso (cnt > 1)) Then
  1055.             cmbClassName.Text = ""
  1056.             cmbClassName.Enabled = True
  1057.         ElseIf (m_arrayClassName.Count = 0) Then
  1058.             cmbClassName.Text = ""
  1059.             cmbClassName.Enabled = False
  1060.         ElseIf (m_arrayClassName.Count = 1) Then
  1061.             cmbClassName.Text = m_arrayClassName(0).ToString()
  1062.             cmbClassName.Enabled = True
  1063.         End If
  1064.     End Sub
  1065. #End Region
  1066. #Region "Selection Changed Actions for the Layout Toolbar"
  1067.     Private Sub selChangeLayoutToolbar()
  1068.         cnt = Me.Designer1.Selection.Count
  1069.         If cnt = 0 Then
  1070.             Me.setModes(toolbarModes.noControls)
  1071.         ElseIf ((cnt = 1) AndAlso ((Me.Designer1.Selection(0).GetType().BaseType.ToString() <> "DataDynamics.ActiveReports.Section") AndAlso (Me.Designer1.Selection(0).GetType().BaseType.ToString() <> "System.Object"))) Then
  1072.             Me.setModes(toolbarModes.singleControl)
  1073.         ElseIf (cnt = 2) Then
  1074.             Me.setModes(toolbarModes.twoControls)
  1075.         ElseIf (cnt > 2) Then
  1076.             Me.setModes(toolbarModes.multiControls)
  1077.         End If
  1078.     End Sub
  1079. #End Region
  1080. #Region "Selection Changed Actions for the Property Grid"
  1081.     Private Sub selChangePropGrid()
  1082.         cnt = Me.Designer1.Selection.Count - 1
  1083.         Dim selectedControls(cnt) As Object
  1084.         Try
  1085.             For i = 0 To Me.Designer1.Selection.Count - 1
  1086.                 selectedControls.SetValue(CType(Me.Designer1.Selection(i), Object), i)
  1087.             Next
  1088.             Me.PropertyGrid1.SelectedObjects = selectedControls
  1089.         Catch ex As Exception
  1090.             MessageBox.Show(Me, ex.Message + ": " + ex.Source + ": " + ex.StackTrace, "Selection Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  1091.         End Try
  1092.     End Sub
  1093. #End Region
  1095.     Private Sub tlbARToolbox_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbARToolbox.ButtonClick
  1096.         If (e.Button.Tag.ToString() <> "Pointer") Then
  1097.             Designer1.ToolBoxItem = e.Button.Tag.ToString()
  1098.         Else
  1099.             Designer1.ToolBoxItem = Nothing
  1100.         End If
  1101.     End Sub
  1104.     Private Sub tlbReport_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbReport.ButtonClick
  1105.         executeReportAction(e.Button.Tag.ToString(), e)
  1106.     End Sub
  1108. #Region "Execute Report Action method for tlbReport"
  1109.     Private Sub executeReportAction(ByVal action As String, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs)
  1110.         Try
  1111.             Select Case action
  1112.                 Case "Bold"
  1113.                     Designer1.ExecuteAction(DesignerAction.FormatFontBold)
  1114.                 Case "Italic"
  1115.                     Designer1.ExecuteAction(DesignerAction.FormatFontItalic)
  1116.                 Case "Underline"
  1117.                     Designer1.ExecuteAction(DesignerAction.FormatFontUnderline)
  1118.                 Case "AlignRight"
  1119.                     Designer1.ExecuteAction(DesignerAction.FormatTextAlignRight)
  1120.                 Case "Center"
  1121.                     Designer1.ExecuteAction(DesignerAction.FormatTextAlignCenter)
  1122.                 Case "AlignLeft"
  1123.                     Designer1.ExecuteAction(DesignerAction.FormatTextAlignLeft)
  1124.                 Case "Justify"
  1125.                     Designer1.ExecuteAction(DesignerAction.FormatTextAlignJustify)
  1126.                 Case "Bullets"
  1127.                     Designer1.ExecuteAction(DesignerAction.FormatRTFBullets)
  1128.                 Case "DecreaseIndent"
  1129.                     Designer1.ExecuteAction(DesignerAction.FormatRTFOutdent)
  1130.                 Case "IncreaseIndent"
  1131.                     Designer1.ExecuteAction(DesignerAction.FormatRTFIndent)
  1132.                 Case "EditScript"
  1133.                     Designer1.ExecuteAction(DesignerAction.EditScript)
  1134.                 
  1135.             End Select
  1136.         Catch ex As Exception
  1137.             MessageBox.Show(Me, ex.Message, "Action Failed", MessageBoxButtons.OK, MessageBoxIcon.Error)
  1138.         End Try
  1139.     End Sub
  1140. #End Region
  1142.     Private Sub cmbFonts_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbFonts.SelectedIndexChanged
  1143.         If cmbFonts.Text <> "" Then
  1144.             setFont()
  1145.         End If
  1146.     End Sub
  1148.     Private Sub cmbFontSize_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbFontSize.SelectedIndexChanged
  1149.         If cmbFontSize.Text <> "" Then
  1150.             setFont()
  1151.         End If
  1152.     End Sub
  1154.     Private Sub cmbClassName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbClassName.SelectedIndexChanged
  1155.         If cmbClassName.Text <> "" Then
  1156.             setClassName()
  1157.         End If
  1158.     End Sub
  1159. #Region "Adjusts texts in the ComboBoxes"
  1160.     Private Sub setFont()
  1161.         For i = 0 To i < Designer1.Selection.Count - 1
  1162.             ctl = Designer1.Selection(i).GetType.ToString()
  1163.             If ((ctl.IndexOf("TextBox") > 0) Or (ctl.IndexOf("CheckBox") > 0) Or (ctl.IndexOf("Label") > 0)) Then
  1164.                 Select Case ctl
  1165.                     Case "DataDynamics.ActiveReports.TextBox"
  1166.                         If cmbFontSize.Text <> "" Then
  1167.                             CType(Designer1.Selection(i), DataDynamics.ActiveReports.TextBox).Font = New Font(cmbFonts.Text, (Long.Parse(cmbFontSize.Text)))
  1168.                         Else
  1169.                             CType(Designer1.Selection(i), DataDynamics.ActiveReports.TextBox).Font = New Font(cmbFonts.Text, (Long.Parse(Font.Size.ToString)))
  1170.                         End If
  1171.                     Case "DataDynamics.ActiveReports.Label"
  1172.                         If cmbFontSize.Text <> "" Then
  1173.                             CType(Designer1.Selection(i), DataDynamics.ActiveReports.Label).Font = New Font(cmbFonts.Text, (Long.Parse(cmbFontSize.Text)))
  1174.                         Else
  1175.                             CType(Designer1.Selection(i), DataDynamics.ActiveReports.Label).Font = New Font(cmbFonts.Text, (Long.Parse(Font.Size.ToString)))
  1176.                         End If
  1177.                     Case "DataDynamics.ActiveReports.CheckBox"
  1178.                         If cmbFontSize.Text <> "" Then
  1179.                             CType(Designer1.Selection(i), DataDynamics.ActiveReports.CheckBox).Font = New Font(cmbFonts.Text, (Long.Parse(cmbFontSize.Text)))
  1180.                         Else
  1181.                             CType(Designer1.Selection(i), DataDynamics.ActiveReports.CheckBox).Font = New Font(cmbFonts.Text, (Long.Parse(Font.Size.ToString)))
  1182.                         End If
  1183.                 End Select
  1184.             End If
  1185.         Next
  1186.     End Sub
  1188.     Private Sub setClassName()
  1189.         For i = 0 To i < Designer1.Selection.Count - 1
  1190.             ctl = Designer1.Selection(i).GetType.ToString()
  1191.             If ctl.IndexOf("TextBox") > 0 Or ctl.IndexOf("CheckBox") > 0 Or ctl.IndexOf("Label") > 0 Then
  1192.                 Select Case ctl
  1193.                     Case "DataDynamics.ActiveReports.TextBox"
  1194.                         CType(Designer1.Selection(i), DataDynamics.ActiveReports.TextBox).ClassName = cmbClassName.Text
  1195.                     Case "DataDynamics.ActiveReports.Label"
  1196.                         CType(Designer1.Selection(i), DataDynamics.ActiveReports.Label).ClassName = cmbClassName.Text
  1197.                     Case "DataDynamics.ActiveReports.CheckBox"
  1198.                         CType(Designer1.Selection(i), DataDynamics.ActiveReports.CheckBox).ClassName = cmbClassName.Text
  1199.                 End Select
  1200.             End If
  1201.         Next
  1202.     End Sub
  1203. #End Region
  1206.     Private Sub Designer1_StatusChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Designer1.StatusChanged
  1207.         For i = 0 To Me.tlbReport.Buttons.Count - 1
  1208.             Dim tb As New System.Windows.Forms.ToolBarButton()
  1209.             tb = Me.tlbReport.Buttons(i)
  1210.             If tb.Tag Is Nothing = False Then
  1211.                 setStatus(tb.Tag, tb)
  1212.             End If
  1213.         Next
  1214.     End Sub
  1216.     Private Sub setStatus(ByVal action As String, ByVal toolbutton As System.Windows.Forms.ToolBarButton)
  1217.         Dim m_action As New DataDynamics.ActiveReports.Design.DesignerAction()
  1218.         m_action = getActionFromString(action)
  1219.         toolbutton.Enabled = Designer1.QueryActionEnabled(m_action)
  1220.         toolbutton.Pushed = Designer1.QueryActionChecked(m_action)
  1221.     End Sub
  1222. #Region "Designer Action returned for string value of action in function (tlbReport)"
  1223.     Private Function getActionFromString(ByVal action As String) As DataDynamics.ActiveReports.Design.DesignerAction
  1224.         Dim m_action As New DataDynamics.ActiveReports.Design.DesignerAction()
  1225.         Select Case (action)
  1226.             Case "Bold"
  1227.                 m_action = DesignerAction.FormatFontBold
  1228.             Case "Italic"
  1229.                 m_action = DesignerAction.FormatFontItalic
  1230.             Case "Underline"
  1231.                 m_action = DesignerAction.FormatFontUnderline
  1232.             Case "Bullets"
  1233.                 m_action = DesignerAction.FormatRTFBullets
  1234.             Case "IncreaseIndent"
  1235.                 m_action = DesignerAction.FormatRTFIndent
  1236.             Case "DecreaseIndent"
  1237.                 m_action = DesignerAction.FormatRTFOutdent
  1238.             Case "EditScript"
  1239.                 m_action = DesignerAction.EditScript
  1240.             Case "ReorderGroups"
  1241.                 m_action = DesignerAction.ReorderGroups
  1242.             Case "ViewGrid"
  1243.                 m_action = DesignerAction.ViewGrid
  1244.             Case "AlignLeft"
  1245.                 m_action = DesignerAction.FormatTextAlignLeft
  1246.             Case "Center"
  1247.                 m_action = DesignerAction.FormatTextAlignCenter
  1248.             Case "AlignRight"
  1249.                 m_action = DesignerAction.FormatTextAlignRight
  1250.             Case "Justify"
  1251.                 m_action = DesignerAction.FormatTextAlignJustify
  1252.         End Select
  1253.         Return m_action
  1254.     End Function
  1255. #End Region
  1257. #Region "Sets the Mode for tlbLayout"
  1258.     'Layout Toolbar stuff
  1259.     Private Sub setModes(ByVal tbModes As StartForm.toolbarModes)
  1260.         Me.SuspendLayout()
  1261.         Select Case tbModes
  1262.             Case toolbarModes.multiControls
  1263.                 Me.tbbAlignBottoms.Enabled = True
  1264.                 Me.tbbAlignCenters.Enabled = True
  1265.                 Me.tbbAlignLefts.Enabled = True
  1266.                 Me.tbbAlignMiddles.Enabled = True
  1267.                 Me.tbbAlignRights.Enabled = True
  1268.                 Me.tbbAligntoGrid.Enabled = True
  1269.                 Me.tbbAlignTops.Enabled = True
  1270.                 Me.tbbBringToFront.Enabled = True
  1271.                 Me.tbbCenterHoriz.Enabled = True
  1272.                 Me.tbbCenterVert.Enabled = True
  1273.                 Me.tbbDecreaseHorizSpace.Enabled = True
  1274.                 Me.tbbDecreaseVertSpace.Enabled = True
  1275.                 Me.tbbIncreaseHorizSpace.Enabled = True
  1276.                 Me.tbbIncreaseVertSpace.Enabled = True
  1277.                 Me.tbbMakeHorizSpaceEqual.Enabled = True
  1278.                 Me.tbbMakeSameHeight.Enabled = True
  1279.                 Me.tbbMakeSameSize.Enabled = True
  1280.                 Me.tbbMakeSameWidth.Enabled = True
  1281.                 Me.tbbMakeVertSpaceEqual.Enabled = True
  1282.                 Me.tbbRemoveHorizSpace.Enabled = True
  1283.                 Me.tbbRemoveVertSpace.Enabled = True
  1284.                 Me.tbbSendToBack.Enabled = True
  1285.                 Me.tbbSizeToGrid.Enabled = True
  1286.             Case toolbarModes.twoControls
  1287.                 Me.tbbAlignBottoms.Enabled = True
  1288.                 Me.tbbAlignCenters.Enabled = True
  1289.                 Me.tbbAlignLefts.Enabled = True
  1290.                 Me.tbbAlignMiddles.Enabled = True
  1291.                 Me.tbbAlignRights.Enabled = True
  1292.                 Me.tbbAligntoGrid.Enabled = True
  1293.                 Me.tbbAlignTops.Enabled = True
  1294.                 Me.tbbBringToFront.Enabled = True
  1295.                 Me.tbbCenterHoriz.Enabled = True
  1296.                 Me.tbbCenterVert.Enabled = True
  1297.                 Me.tbbDecreaseHorizSpace.Enabled = False
  1298.                 Me.tbbDecreaseVertSpace.Enabled = False
  1299.                 Me.tbbIncreaseHorizSpace.Enabled = False
  1300.                 Me.tbbIncreaseVertSpace.Enabled = False
  1301.                 Me.tbbMakeHorizSpaceEqual.Enabled = False
  1302.                 Me.tbbMakeSameHeight.Enabled = True
  1303.                 Me.tbbMakeSameWidth.Enabled = True
  1304.                 Me.tbbMakeSameSize.Enabled = True
  1305.                 Me.tbbMakeVertSpaceEqual.Enabled = False
  1306.                 Me.tbbRemoveHorizSpace.Enabled = True
  1307.                 Me.tbbRemoveVertSpace.Enabled = True
  1308.                 Me.tbbSendToBack.Enabled = True
  1309.                 Me.tbbSizeToGrid.Enabled = True
  1310.             Case toolbarModes.singleControl
  1311.                 Me.tbbAlignBottoms.Enabled = False
  1312.                 Me.tbbAlignCenters.Enabled = False
  1313.                 Me.tbbAlignLefts.Enabled = False
  1314.                 Me.tbbAlignMiddles.Enabled = False
  1315.                 Me.tbbAlignRights.Enabled = False
  1316.                 Me.tbbAligntoGrid.Enabled = True
  1317.                 Me.tbbAlignTops.Enabled = False
  1318.                 Me.tbbCenterHoriz.Enabled = True
  1319.                 Me.tbbCenterVert.Enabled = True
  1320.                 Me.tbbDecreaseVertSpace.Enabled = False
  1321.                 Me.tbbIncreaseVertSpace.Enabled = False
  1322.                 Me.tbbDecreaseHorizSpace.Enabled = False
  1323.                 Me.tbbIncreaseHorizSpace.Enabled = False
  1324.                 Me.tbbMakeHorizSpaceEqual.Enabled = False
  1325.                 Me.tbbMakeSameHeight.Enabled = False
  1326.                 Me.tbbMakeSameSize.Enabled = False
  1327.                 Me.tbbMakeSameWidth.Enabled = False
  1328.                 Me.tbbMakeVertSpaceEqual.Enabled = False
  1329.                 Me.tbbRemoveHorizSpace.Enabled = False
  1330.                 Me.tbbRemoveVertSpace.Enabled = False
  1331.                 Me.tbbSendToBack.Enabled = True
  1332.                 Me.tbbSizeToGrid.Enabled = True
  1333.                 Me.tbbBringToFront.Enabled = True
  1334.             Case toolbarModes.noControls
  1335.                 Me.tbbAlignBottoms.Enabled = False
  1336.                 Me.tbbAlignCenters.Enabled = False
  1337.                 Me.tbbAlignLefts.Enabled = False
  1338.                 Me.tbbAlignMiddles.Enabled = False
  1339.                 Me.tbbAlignRights.Enabled = False
  1340.                 Me.tbbAligntoGrid.Enabled = False
  1341.                 Me.tbbAlignTops.Enabled = False
  1342.                 Me.tbbBringToFront.Enabled = False
  1343.                 Me.tbbCenterHoriz.Enabled = False
  1344.                 Me.tbbCenterVert.Enabled = False
  1345.                 Me.tbbDecreaseHorizSpace.Enabled = False
  1346.                 Me.tbbDecreaseVertSpace.Enabled = False
  1347.                 Me.tbbIncreaseHorizSpace.Enabled = False
  1348.                 Me.tbbIncreaseVertSpace.Enabled = False
  1349.                 Me.tbbMakeHorizSpaceEqual.Enabled = False
  1350.                 Me.tbbMakeSameHeight.Enabled = False
  1351.                 Me.tbbMakeSameSize.Enabled = False
  1352.                 Me.tbbMakeSameWidth.Enabled = False
  1353.                 Me.tbbMakeVertSpaceEqual.Enabled = False
  1354.                 Me.tbbRemoveHorizSpace.Enabled = False
  1355.                 Me.tbbRemoveVertSpace.Enabled = False
  1356.                 Me.tbbSendToBack.Enabled = False
  1357.                 Me.tbbSizeToGrid.Enabled = False
  1358.         End Select
  1359.         Me.ResumeLayout()
  1360.     End Sub
  1361. #End Region
  1363.     Private Sub tlbLayout_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbLayout.ButtonClick
  1364.         Me.executeLayoutAction(e.Button.Tag.ToString())
  1365.       
  1366.     End Sub
  1367. #Region "Execute action code for tlbLayout"
  1368.     Private Sub executeLayoutAction(ByVal actionTool As String)
  1369.         Select Case actionTool
  1370.             Case "BringToFront"
  1371.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatOrderBringToFront)
  1372.             Case "SendToBack"
  1373.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatOrderSendToBack)
  1374.             Case "MakeSameHeight"
  1375.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSizeSameHeight)
  1376.             Case "MakeSameWidth"
  1377.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSizeSameWidth)
  1378.             Case "MakeSameSize"
  1379.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSizeBoth)
  1380.             Case "AlignTops"
  1381.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatAlignTop)
  1382.             Case "AlignBottoms"
  1383.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatAlignBottom)
  1384.             Case "AlignLefts"
  1385.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatAlignLeft)
  1386.             Case "AlignRights"
  1387.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatAlignRight)
  1388.             Case "AlignMiddles"
  1389.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatAlignMiddle)
  1390.             Case "AlignCenters"
  1391.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatAlignCenter)
  1392.             Case "SizeToGrid"
  1393.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.SnapToGrid)
  1394.             Case "MakeHorizSpaceEqual"
  1395.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSpaceEquallyHorizontal)
  1396.             Case "IncreaseHorizSpace"
  1397.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSpaceIncreaseHorizontal)
  1398.             Case "DecreaseHorizSpace"
  1399.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSpaceDecreaseHorizontal)
  1400.             Case "MakeVertSpaceEqual"
  1401.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSpaceEquallyVertical)
  1402.             Case "IncreaseVertSpace"
  1403.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSpaceIncreaseVertical)
  1404.             Case "DecreaseVertSpace"
  1405.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSpaceDecreaseVertical)
  1406.             Case "CenterHoriz"
  1407.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatCenterHorizontally)
  1408.             Case "CenterVert"
  1409.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatCenterVertically)
  1410.             Case "RemoveHorizSpace"
  1411.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSpaceRemoveHorizontal)
  1412.             Case "RemoveVertSpace"
  1413.                 Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FormatSpaceRemoveVertical)
  1415.             Case "加载报表"
  1416.                 Me.Designer1.ExecuteAction(DesignerAction.FileOpen)
  1417.             Case "保存报表"
  1418.                 Me.Designer1.ExecuteAction(DesignerAction.FileSave)
  1419.             Case "报表预览"
  1420.                 Dim rpt As New DataDynamics.ActiveReports.ActiveReport
  1421.                 Dim m_stream As New System.IO.MemoryStream
  1422.                 Me.Designer1.Report.SaveLayout(m_stream)
  1423.                 m_stream.Position = 0
  1424.                 rpt.LoadLayout(m_stream)
  1425.                 m_stream.Close()
  1426.                 Dim frm As New frmViewer
  1427.                 frm.SetReport(rpt)
  1428.                 frm.ShowDialog(Me)
  1429.             Case "打印设置"
  1430.                 Me.Designer1.ExecuteAction(DesignerAction.ReportSettings)
  1431.             Case "退出"
  1432.                 Me.Close()
  1435.         End Select
  1436.     End Sub
  1437. #End Region
  1439.     'Menu actions code
  1441.     Private Sub mnuPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPrintPreview.Click
  1442.         Dim rpt As New DataDynamics.ActiveReports.ActiveReport()
  1443.         Dim m_stream As New System.IO.MemoryStream()
  1444.         Me.Designer1.Report.SaveLayout(m_stream)
  1445.         m_stream.Position = 0
  1446.         rpt.LoadLayout(m_stream)
  1447.         m_stream.Close()
  1448.         Dim frm As New frmViewer()
  1449.         frm.SetReport(rpt)
  1450.         frm.ShowDialog(Me)
  1451.     End Sub
  1453.     Private Sub mnuLoadLayout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLoadLayout.Click
  1454.         Me.Designer1.ExecuteAction(DesignerAction.FileOpen)
  1455.     End Sub
  1457.     Private Sub mnuSaveLayout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSaveLayout.Click
  1458.         Me.Designer1.ExecuteAction(DesignerAction.FileSave)
  1459.     End Sub
  1461.     Private Sub mnuPageSetup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPageSetup.Click
  1462.         Me.Designer1.ExecuteAction(DesignerAction.ReportSettings)
  1463.     End Sub
  1466.     Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
  1467.         Me.Close()
  1468.     End Sub
  1470.     Private Sub Designer1_SelectionChanged() Handles Designer1.SelectionChanged
  1473.         selChangeReportToolbar()
  1474.         selChangeLayoutToolbar()
  1475.         selChangePropGrid()
  1476.     End Sub
  1478.     Private Sub Designer1_SystemColorsChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Designer1.SystemColorsChanged
  1480.     End Sub
  1482.     Private Sub Designer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Designer1.Load
  1484.     End Sub
  1485. End Class