0

私は次のような関数を書いていることに気づきました：

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

私は広く検索しましたが、明らかに、解決策を見つけるのに十分な方法を説明する方法がわかりません.

ありがとう、

マシュー

4

2 に答える 2

0

マシュー、これはあなたのためにトリックをしますか：

My.Resources.ResourceManager.GetObject("nameOfResource")
于 2013-09-07T08:54:41.383 に答える
0

上記の the_lotus のように、これは機能します (C# の場合)

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

申し訳ありませんが、VB がインストールされていませんが、VB でこれを適応させる方法を簡単に見つけることができます。

于 2013-09-06T21:19:47.253 に答える