Reporting

Re: CrystalReportViewer & mouse wheel

axaros — Tue, 21 Jun 2005 17:44:46 GMT

Άψογος ... Εύγε !!!

Re: CrystalReportViewer & mouse wheel

γιωργος μπακογιαννης — Sat, 18 Jun 2005 17:02:39 GMT

Ωραίος!
Δουλεύει.

Σε ευχαριστώ

Re: CrystalReportViewer & mouse wheel

raPhaeL — Sat, 18 Jun 2005 00:00:13 GMT

Μια μικρή πατέντα για όσους βιάζονται :

Βαλτε σε ένα class module το παρακάτω :

 

Imports System.Windows.Forms

Public Class SubClassing
 Inherits System.Windows.Forms.NativeWindow
 Public Event CallBackProc(ByRef m As Message)

 Private m_Subclassed As Boolean = False

 Public Sub New(ByVal handle As IntPtr)
 MyBase.AssignHandle(handle)
 End Sub

 Public Property SubClass() As Boolean
 Get
 Return m_Subclassed
 End Get
 Set(ByVal Value As Boolean)
 m_Subclassed = Value
 End Set
 End Property

 Protected Overrides Sub WndProc(ByRef m As Message)
 If m_Subclassed Then
 RaiseEvent CallBackProc(m)
 End If
 MyBase.WndProc(m)
 End Sub

 Protected Overrides Sub Finalize()
 MyBase.Finalize()
 End Sub
End Class

Προσθέτουμε μια Φορμα Form και ένα Viewer CrystalReportViewer1.

Declarations στη Φορμα:

 

 Private Const GW_CHILD = 5
 Private Const WM_VSCROLL = &H115
 Private Const SB_PAGEDOWN = 3
 Private Const SB_PAGEUP = 2
 Private Const WS_VSCROLL = &H200000
 Private Const WM_MOUSEWHEEL = &H20A

 Private Declare Auto Function GetWindow Lib "user32.dll" (ByVal hWnd As System.IntPtr, ByVal wCmd As System.Int32) As System.IntPtr
 Private Declare Auto Function SendMessage Lib "User32" (ByVal hwnd As System.IntPtr, ByVal msg As Int32, ByVal wParams As Int64, ByVal lParams As Int32) As Int32

 Dim WithEvents SubClass As SubClassing
 Dim hnd As System.IntPtr

Sub στη Φόρμα:

 

 Private Sub SubClass_CallBackProc(ByRef m As System.Windows.Forms.Message) Handles SubClass.CallBackProc

 Select Case m.Msg
 Case WM_MOUSEWHEEL
 SendMessage(hnd, WM_VSCROLL, IIf(m.WParam.ToInt64 < 0, SB_PAGEDOWN, SB_PAGEUP), Nothing)
 End Select

 End Sub

Load Event της Φόρμας:

 

 SubClass = New SubClassing(CrystalReportViewer1.Handle)
 SubClass.SubClass = True

 hnd = GetWindow(GetWindow(GetWindow(CrystalReportViewer1.Handle, GW_CHILD), GW_CHILD), GW_CHILD)

Βάζουμε και ένα Report και το κάνουμε assign στο Viewer.
Δέν ειναι 100% σωστο γιατι αυτό που κάνει τώρα ειναι PageUp (SB_UP) και PageDown (SB_PAGEDOWN) ανάλογα με το MouseWheel.
Κανονικά θα έπρεπε να χρησιμοποιησουμε τα SB_THUMBPOSITION και SB_THUMBTRACK.

Όσο για τα captions στο ΤΑΒ του Viewer αλλάζουν και αυτά με ανάλογα μηνύματα στο SysTabControl του Viewer.

Re: CrystalReportViewer & mouse wheel

axaros — Wed, 15 Jun 2005 04:03:02 GMT

Ναι Οκ ...
Αλλά για το preview στον viewer μίλαγα ...
Προφανώς εφόσον κάνεις export κατευθείαν by passάρεις το προβληματάκι ...
Ευχαριστώ πάντως για την απάντηση ...

Re: CrystalReportViewer & mouse wheel

γιωργος μπακογιαννης — Tue, 07 Jun 2005 23:58:32 GMT

Ο σχετικός κωδιχ

        Dim report As rptTest = New rptTest
        report.SetDataSource(C1DataSet1.GetExportDataSet())
        '
        Dim dfdo As New CrystalDecisions.Shared.DiskFileDestinationOptions
        dfdo.DiskFileName = "c:\test.pdf"
        '
        Dim eo As New CrystalDecisions.Shared.ExportOptions
        eo = report.ExportOptions
        eo.DestinationOptions = dfdo
        eo.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
        eo.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
        '
        report.Export()

Re: CrystalReportViewer & mouse wheel

γιωργος μπακογιαννης — Mon, 06 Jun 2005 20:37:24 GMT

Ναι και το έχω δοκιμάσει !

Re: CrystalReportViewer & mouse wheel

axaros — Mon, 06 Jun 2005 18:28:05 GMT

George σε έχασα ..
Στο preview παράθυρο ... Πριν κάνεις οποιοδήποτε είδους export ...

Συζητάς να κάνεις export κατευθείαν ?

Re: CrystalReportViewer & mouse wheel

γιωργος μπακογιαννης — Mon, 06 Jun 2005 18:08:27 GMT

Εναλλακτικά: export σε PDF.

Re: CrystalReportViewer & mouse wheel

axaros — Mon, 06 Jun 2005 17:38:37 GMT

Άσχετο μεν κι άλλο Know issue δε :
Έχεις επισης προσέξει ότι τα strings στα panels του Viewer δεν είναι customizable αλλά ο χρήστης πρέπει να βλέπει αναγκαστικά τα standard αγγλικά : ''MainReport, CurrentPage No ''κτλ

Re: CrystalReportViewer & mouse wheel

γιωργος μπακογιαννης — Mon, 06 Jun 2005 16:47:30 GMT

Re: CrystalReportViewer & mouse wheel

axaros — Mon, 06 Jun 2005 15:36:48 GMT

Kαι στα ξένα forums όλοι το ίδιο ακριβώς ρωτάνε ...
Είναι Known issue ..
Τώρα τι θα κάνουν και πότε άγνωστο ...

CrystalReportViewer & mouse wheel

γιωργος μπακογιαννης — Wed, 18 May 2005 00:11:41 GMT

Μήπως ξέρει κάποιος γιατί το CrystalReportViewer δεν κάνει scroll με το mouse wheel;