Progress Controle in Crystal Report 10.5

Question

Hi All,
I am moving from crystal report 9.x to 10.5. In crystal report 9.0 some usefull properies such as EnableProgressControle to see your crstal report progress. I am trying hrad to find these properties. I am working on migration project and my client need exact replica of all features.
I searching any way to show some progress bar on crystal report viewer. I have to populate 300000 records.
Thanks In Advance.
Thanks
Ramit Singh

Answer 1

Below is an example of my code for a work around in a vb.net application by using the example given by Shweta Sharma.
This helps users know that the CrystalReportViewer1 control is still busy generating the report.
' Code for frmReportViewer Class (My Windows form that contains the CrystalReportViewer1 control)
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class frmReportViewer
   Private WithEvents rs As New clsReportStatus
   Private Delegate Sub BarUpdate(ByVal val As Integer)
   Private Delegate Sub ChangeCursor(ByVal myCursor As Windows.Forms.Cursor)
   Private Delegate Sub ctrlVisible(ByVal meVisible As Boolean)
   Private Sub Report_ProgressBarValue(ByVal val As Integer) Handles rs.ProgressBarValue
       Try
           If Me.InvokeRequired Then
               Dim bu As New BarUpdate(AddressOf Me.Report_ProgressBarValue)
               Me.Invoke(bu, New Object() )
           Else
               ProgressBar1.Value = val
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
   Private Sub Report_ctrlVisible(ByVal meVisible As Boolean) Handles rs.ctrlVisible
       Try
           If Me.InvokeRequired Then
               Dim lv As New ctrlVisible(AddressOf Me.Report_ctrlVisible)
               Me.Invoke(lv, New Object() )
           Else
               lblWait.Visible = meVisible
               ProgressBar1.Visible = meVisible
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
   Private Sub Report_mCursor(ByVal myCursor As Windows.Forms.Cursor) Handles rs.mCursor
       Try
           If Me.InvokeRequired Then
               Dim mc As New ChangeCursor(AddressOf Me.Report_mCursor)
               Me.Invoke(mc, New Object() )
           Else
               Cursor = myCursor
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
   Private Sub frmReportViewer_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       Try
           If Not rs.Running Then
               rs.StartThread()
           End If
           Application.DoEvents()
           Dim nPages As Integer
           Dim rep As New ReportDocument
           'To be continued in next post. You do NOT need to include this line in your code