Help with OOP Concept

[BukHix]

I find myself with a lot of code (sub procedures) similar to the one below, which I know is not good. I think if I can be shown how this should be handled in an OOP world I can figure out how to do some of the other stuff in my applications OOP like (I am still trying to make the transition from Event driven programming to OOP).

For instance, say I have two buttons to open two different reports. I want to eliminate the redundant code and only put the report name (the only variable) behind the button.

I know this is not a very pratical way to handle opening multiple reports but I am only interested in getting the code into an OOP model.

Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
 
        CrystalReportViewer1.ReportSource = _
            "C:\testreport_Number1.rpt"
        CrystalReportViewer1.RefreshReport()
        CrystalReportViewer1.Show()
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button2.Click
 
        CrystalReportViewer1.ReportSource = _
               "C:\testreport_Number2.rpt"
        CrystalReportViewer1.RefreshReport()
        CrystalReportViewer1.Show()
 
    End Sub

[Bloged]

Function:

Public Function CrystalReportViewer(ByVal sPath As String)
        CrystalReportViewer1.ReportSource = sPath
        CrystalReportViewer1.RefreshReport()
        CrystalReportViewer1.Show()
End Sub

Call it with

CrystalReportViewer("C:\testreport_Number1.rpt")

Grtz,

Bloged

[BukHix]

Thank you. That was very helpful.

I remember that screen in you sig. How about a SYS64738 or a Load "Zork",8,1?

[taxes]

HI bloged,

Re. your signature.

The original ancestor of the Comodore 64k was the Comodore PET (Personal Electronic Transactor) which had just 4k of RAM. Boy, we had to be economic with code in those days!! It looked amazingly like a modern Desktop PC except that the keyboard was multi, translucent coloured! That was in the early '70 s.