form2.frm

一个很好用的报表控件

         EndProperty
         Height          =   225
         Left            =   4215
         TabIndex        =   9
         Top             =   1560
         Value           =   1  'Checked
         Width           =   2145
      End
      Begin VB.CheckBox chkSelectExpertButton 
         Caption         =   "&Select Expert Button"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4215
         TabIndex        =   8
         Top             =   570
         Value           =   1  'Checked
         Width           =   2145
      End
      Begin VB.CheckBox chkSearchExpertButton 
         Caption         =   "&Search Expert Button"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   4215
         TabIndex        =   7
         Top             =   240
         Value           =   1  'Checked
         Width           =   2145
      End
      Begin VB.CheckBox chkPopupMenu 
         Caption         =   "&Pop-up Menu"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   2145
         TabIndex        =   6
         Top             =   585
         Value           =   1  'Checked
         Width           =   1860
      End
      Begin VB.CheckBox chkNavigationControls 
         Caption         =   "&Navigation Controls"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Left            =   2145
         TabIndex        =   5
         Top             =   255
         Value           =   1  'Checked
         Width           =   1935
      End
      Begin VB.CheckBox chkHelpButton 
         Caption         =   "&Help Button"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   120
         TabIndex        =   4
         Top             =   1860
         Value           =   1  'Checked
         Width           =   2010
      End
      Begin VB.CheckBox chkExportButton 
         Caption         =   "&Export Button"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   120
         TabIndex        =   3
         Top             =   1215
         Value           =   1  'Checked
         Width           =   2010
      End
      Begin VB.CheckBox chkAnimationControl 
         Caption         =   "&Animation Control"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Value           =   1  'Checked
         Width           =   2010
      End
   End
   Begin CRVIEWERLibCtl.CRViewer CRViewer1 
      Height          =   4845
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   10485
      DisplayGroupTree=   -1  'True
      DisplayToolbar  =   -1  'True
      EnableGroupTree =   -1  'True
      EnableNavigationControls=   -1  'True
      EnableStopButton=   -1  'True
      EnablePrintButton=   -1  'True
      EnableZoomControl=   -1  'True
      EnableCloseButton=   -1  'True
      EnableProgressControl=   -1  'True
      EnableSearchControl=   -1  'True
      EnableRefreshButton=   -1  'True
      EnableDrillDown =   -1  'True
      EnableAnimationControl=   -1  'True
      EnableSelectExpertButton=   -1  'True
      EnableToolbar   =   -1  'True
      DisplayBorder   =   -1  'True
      DisplayTabs     =   -1  'True
      DisplayBackgroundEdge=   -1  'True
      SelectionFormula=   ""
      EnablePopupMenu =   -1  'True
      EnableExportButton=   -1  'True
      EnableSearchExpertButton=   -1  'True
      EnableHelpButton=   -1  'True
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Report As New CrystalReport1
Dim IgnoreEvent As Boolean             ' Used to prevent undesired events from
                                       ' triggering when toggling the Group Tree checkbox
Option Explicit


Private Sub chkAnimationControl_Click()
CRViewer1.EnableAnimationCtrl = Not CRViewer1.EnableAnimationCtrl
End Sub

Private Sub chkDisplayBackgroundEdge_Click()
CRViewer1.DisplayBackgroundEdge = Not CRViewer1.DisplayBackgroundEdge
End Sub

Private Sub chkDisplayBorder_Click()
CRViewer1.DisplayBorder = Not CRViewer1.DisplayBorder
End Sub

Private Sub chkDisplayGroupTree_Click()
If IgnoreEvent = False Then _
        CRViewer1.DisplayGroupTree = Not CRViewer1.DisplayGroupTree
    IgnoreEvent = False
End Sub

Private Sub chkDisplayTabs_Click()
 CRViewer1.DisplayTabs = Not CRViewer1.DisplayTabs
End Sub

Private Sub chkDisplayToolbar_Click()
If IgnoreEvent = False Then _
        CRViewer1.DisplayToolbar = Not CRViewer1.DisplayToolbar
    IgnoreEvent = False
End Sub

Private Sub chkEnableCloseButton_Click()
CRViewer1.EnableCloseButton = Not CRViewer1.EnableCloseButton
End Sub

Private Sub chkEnableDrillDown_Click()
CRViewer1.EnableDrillDown = Not CRViewer1.EnableDrillDown
End Sub

Private Sub chkEnableGroupTree_Click()
CRViewer1.EnableGroupTree = Not CRViewer1.EnableGroupTree
End Sub

Private Sub chkEnablePrintButton_Click()
CRViewer1.EnablePrintButton = Not CRViewer1.EnablePrintButton
End Sub

Private Sub chkEnableProgressControl_Click()
CRViewer1.EnableProgressControl = Not CRViewer1.EnableProgressControl
End Sub

Private Sub chkEnableRefreshButton_Click()
CRViewer1.EnableRefreshButton = Not CRViewer1.EnableRefreshButton
End Sub

Private Sub chkEnableSearchControl_Click()
CRViewer1.EnableSearchControl = Not CRViewer1.EnableSearchControl
End Sub

Private Sub chkEnableStopButton_Click()
CRViewer1.EnableStopButton = Not CRViewer1.EnableStopButton
End Sub

Private Sub chkEnableToolbar_Click()
CRViewer1.EnableToolbar = Not CRViewer1.EnableToolbar
End Sub

Private Sub chkEnableZoomControl_Click()
CRViewer1.EnableZoomControl = Not CRViewer1.EnableZoomControl
End Sub

Private Sub chkExportButton_Click()
CRViewer1.EnableExportButton = Not CRViewer1.EnableExportButton
End Sub

Private Sub chkHelpButton_Click()
CRViewer1.EnableHelpButton = Not CRViewer1.EnableHelpButton
End Sub

Private Sub chkNavigationControls_Click()
CRViewer1.EnableNavigationControls = Not CRViewer1.EnableNavigationControls
End Sub

Private Sub chkPopupMenu_Click()
CRViewer1.EnablePopupMenu = Not CRViewer1.EnablePopupMenu
End Sub

Private Sub chkSearchExpertButton_Click()
CRViewer1.EnableSearchExpertButton = Not CRViewer1.EnableSearchExpertButton
End Sub

Private Sub chkSelectExpertButton_Click()
CRViewer1.EnableSelectExpertButton = Not CRViewer1.EnableSelectExpertButton
End Sub

Private Sub CRViewer1_GroupTreeButtonClicked(ByVal Visible As Boolean)
  ' Ensure that the chkDisplayGroupTree event doesn't trigger
    IgnoreEvent = True
    chkDisplayGroupTree.Value = Abs(CRViewer1.DisplayGroupTree)
End Sub

Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = Report
    CRViewer1.ViewReport
    Screen.MousePointer = vbDefault
    IgnoreEvent = False
End Sub

Private Sub Form_Resize()
'CRViewer1.Top = 0
'CRViewer1.Left = 0
'CRViewer1.Height = ScaleHeight
'CRViewer1.Width = ScaleWidth

End Sub