Progress Bar Control

[crimsntyd]

I'm using CR XI and RDC in VB6 (CRViewer). A couple of the reports my users are opening/viewing take about 6 seconds to load, and all I've been able to do so far to keep their attention span is put a message in the status bar at the bottom of the form saying "Retrieving data...". I found out in my previous thread that the RDC doesn't provide the expected printing status (number of records read, for example), so I can't provide the same status bar information that Crystal provides. However, I've seen numerous examples of code on Tek-Tips.com of folks using the .enableprogresscontrol property, but I can't seem to get mine to work. Here's my code so far...

Public CRReport As CRAXDRT.Report
Public CRApplication As CRAXDRT.Application
Public CRPrint As CRAXDRT.PrintingStatus
Set CRApplication = New CRAXDRT.Application
Set CRReport = CRApplication.OpenReport(Rpt)
Set CRPrint = CRReport.PrintingStatus
frmReportViewer.Show
frmReportViewer.CRViewer.EnableProgressControl = True
frmReportViewer.CRViewer.DisplayGroupTree = False
frmReportViewer.CRViewer.EnableExportButton = True
frmReportViewer.CRViewer.Height = (frmReportViewer.Height - 200)
frmReportViewer.CRViewer.Width = (frmReportViewer.Width - 200)
frmReportViewer.CRViewer.ReportSource = CRReport
CRReport.EnableParameterPrompting = True
frmReportViewer.CRViewer.ViewReport
Select Case Rpt
Case CRPath + "RecycleTop10.rpt"
frmReportViewer.sbReportViewer.Panels(1).Text = _
"Retrieving Recycle Top 10 Data..."
Case CRPath + "WarrantyTop10.rpt"
frmReportViewer.sbReportViewer.Panels(1).Text = _
"Retrieving Warranty Top 10 Data..."
End Select
Do While frmReportViewer.CRViewer.IsBusy = True
DoEvents
Loop
frmReportViewer.sbReportViewer.Panels(1).Text = ""
frmCoverPage.sbCoverPg.Panels(1).Text = ""

Do I have to pass the progress control some parameters or values, and they're just not available? Thanks in advance.

 

[IdoMillet]

afaik, the progress bar doesn't work.

Again, I suggest you use something like an animated GIF.

Sorry,
- Ido

Visual CUT & DataLink Viewer:
view, e-mail, export, burst, distribute, and schedule Crystal Reports.

http://www.MilletSoftware.com

 

[crimsntyd]

Just wanted to double check. Thanks, Ido. Just wondering, does Business Objects KNOW that the progress bar doesn't work? Why have the property if it's broken?