.net - 使用传递的字符串作为资源名称的一部分

Question

我发现自己写了一个这样的函数：

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
...

与其重复case语句，有没有办法使用传递的变量'passedWord'来完成资源名称，以便可以直接使用它？所以它看起来像：

My.Resources.rptPfr9Common.passedWord

我进行了广泛的搜索，但显然我不知道如何充分描述它以找到解决方案。

谢谢，

马修

Answer 1

马修，这对你有用吗：

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

Answer 2

正如上面提到的 the_lotus，这有效（在 C# 中）

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

抱歉，我没有安装 VB，但您应该很容易找到在 VB 中进行调整的方法。