学步园

http://www.cnblogs.com/batoosai/category/60213.html 

        Public Sub New(ByRef report As DataDynamics.ActiveReports.ActiveReport)
            MyBase.New()

           InitializeComponent()

            ' InitializeComponent()

            gApp.SetCursorWait()

            vieReportViewer.Document = report.Document
            report.Run(True)

            gApp.SetCursorDefault()
        End Sub

        Private mintWidth As Integer
        Private mintHeight As Integer
        Private Const mcWidthForm As Integer = 1024
        Private Const mcHeightForm As Integer = 768
        Private Const mcWidthViewer As Integer = 1016
        Private Const mcHeightViewer As Integer = 741
        Private Const mcWidth As Integer = 0
        Private Const mcHeight As Integer = 0

        Private Sub ReportViewForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Width = mcWidthForm
            Height = mcHeightForm

            vieReportViewer.Width = mcWidthViewer
            vieReportViewer.Height = mcHeightViewer

            mintWidth = Width - vieReportViewer.Width + mcWidth
            mintHeight = Height - vieReportViewer.Height + mcHeight

            vieReportViewer.Width = Width - mintWidth
            vieReportViewer.Height = Height - mintHeight
        End Sub

        Private Sub ReportViewForm_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
            vieReportViewer.Width = Width - mintWidth
            vieReportViewer.Height = Height - mintHeight
        End Sub