"Simplification" *[RESOLVED]*

[RealNickyDude]

I have the following code (quite a lot of it actually):

Case "Misc Quick Tips"
                Dim docPath As String = IO.Path.Combine(Application.StartupPath, "code\tips\tips.rtf")
                rtbcodewindow.LoadFile(docPath, RichTextBoxStreamType.RichText)
                rtbcodewindow.Focus()
                StatusBar1.Text = "Code Section: Misc / Quick Tips"
 
                'Internet
            Case "Web graphic into picbox"
                Dim docPath As String = IO.Path.Combine(Application.StartupPath, "code\internet\urlpicbox.rtf")
                rtbcodewindow.LoadFile(docPath, RichTextBoxStreamType.RichText)
                rtbcodewindow.Focus()
                StatusBar1.Text = "Code Section: Internet / How to get a picture from a URL into a picturebox"
 
                'Tutorials
            Case "Menus"
                Dim docPath As String = IO.Path.Combine(Application.StartupPath, "code\tutorials\menus.rtf")
                rtbcodewindow.LoadFile(docPath, RichTextBoxStreamType.RichText)
                rtbcodewindow.Focus()
                StatusBar1.Text = "Code Section: Tutorials / Menus"

and as you can see 90% of it is repeated in each Case statement. I wish to simplyfy this be calling a routine outside of the case statement by passing two arguments, something like this:

LoadCode(<path to text to load>,<what to display in status bar>)

I know you need a function and pass arguments, but how? Anybody help with this one?

Thanks yall

[nswan]

Case "Misc Quick Tips"
                doStuff("code\tips\tips.rtf","Code Section: Misc / Quick Tips")
 Case "Web graphic into picbox"
                doStuff("code\internet\urlpicbox.rtf","Code Section: Internet / How to get a picture from a URL into a picturebox")

 Case "Menus"
                doStuff("code\tutorials\menus.rtf","Code Section: Tutorials / Menus")

'in a seperate subroutine
public sub doStuff(string1 as string, string2 as string)

Dim docPath As String = IO.Path.Combine(Application.StartupPath, string1)
rtbcodewindow.LoadFile(docPath,RichTextBoxStreamType.RichText)
rtbcodewindow.Focus()
StatusBar1.Text = string2

end sub

hope this is what u r looking for!

Nick

[RealNickyDude]

Absolutlely spot on

Excellent, thanks!!

Beta Release 5 of the VBCodebook .NET is now available!