Using a passed string as part of a resource name

Question

I find myself writing a function like this:

Public Shared Function RiskBarTitle(ByVal passedWord As String) As String
Dim returnText As String = ""

Try
Select Case passedWord.ToLower
 Case "tobacco"
  returnText = My.Resources.rptPfr9Common.wTobacco     
Case "alcohol"
  returnText = My.Resources.rptPfr9Common.wAlcohol
 Case Else
  returnText = "Oops, no graph title available."
End Select
...

Rather then repeating the case statement is there some way to use the passed variable 'passedWord' to complete the resource name so that it can be used directly? So it would look something like:

My.Resources.rptPfr9Common.passedWord

I have searched widely but evidently I do not know how to describe it sufficiently to find a solution.

Thanks,

Matthew

Answer 1

As the_lotus mentionned above, this works (in C#)

 MessageBox.Show(ResFile.ResourceManager.GetObject("resourceName").ToString());

Sorry I don't have VB installed but you should easily find your way to adapt this in VB.

Answer 2

马修（Mathew），这样做是否可以为您解决问题：

My.Resources.ResourceManager.GetObject("nameOfResource")