Question

Right now, I have code that looks something like this:

Private Sub ShowReport(ByVal reportName As String)     Select Case reportName         Case 'Security'             Me.ShowSecurityReport()         Case 'Configuration'             Me.ShowConfigurationReport()         Case 'RoleUsers'             Me.ShowRoleUsersReport()         Case Else             pnlMessage.Visible = True             litMessage.Text = 'The report name ''' + reportName + ''' is invalid.'     End Select End Sub 

Is there any way to create code that would use my method naming conventions to simplify things? Here’s some pseudocode that describes what I’m looking for:

Private Sub ShowReport(ByVal reportName As String)     Try         Call('Show' + reportName + 'Report')     Catch ex As Exception         'method not found     End Try End Sub 

Answer 1

Type type = GetType(); MethodInfo method = type.GetMethod('Show'+reportName+'Report'); if (method != null) {     method.Invoke(this, null); } 

This is C#, should be easy enough to turn it into VB. If you need to pass parameter into the method, they can be added in the 2nd argument to Invoke.