提供用來存取應用程式資源的屬性和類別。
備註
物件 My.Resources 可讓您存取應用程式的資源,並可讓您動態擷取應用程式的資源。 如需詳細資訊,請參閱管理應用程式資源(.NET)。
物件 My.Resources 只會公開全域資源。 它不提供與表單相關聯的資源檔存取權。 您必須從表單存取表單資源。
您可以從物件存取應用程式的文化特性特定資源檔案 My.Resources 。 根據預設, My.Resources 物件會從符合 屬性中 UICulture 文化特性的資源檔查閱資源。 不過,您可以覆寫此行為,並指定要用於資源的特定文化特性。 如需詳細資訊,請參閱 .NET 應用程式中的資源。
屬性
對象的屬性 My.Resources 提供應用程式的資源的唯讀存取權。 若要新增或移除資源,請使用 項目設計工具。 您可以使用 resourceName 存取透過項目設計工具My.Resources.新增的資源。
您也可以在方案總管中選取專案,然後按下 [專案] 功能表中的 [新增專案] 或 [新增現有專案],以新增或移除資源檔。 您可以使用 resourceFileName resourceName. 存取以這種方式My.Resources.新增的資源。
每個資源都有名稱、類別和值,而這些資源設定會決定屬性存取資源的方式出現在物件中 My.Resources 。 針對在 項目設計工具中新增的資源:
名稱會決定屬性的名稱,
資源數據是 屬性的值,
類別會決定屬性的類型:
| 類別 | 屬性資料類型 |
|---|---|
| 字串 | String |
| 圖片 | Bitmap |
| 圖示 | Icon |
| 音訊 | UnmanagedMemoryStream 類別 UnmanagedMemoryStream 衍生自 Stream 類別,因此可以搭配採用數據流的方法使用,例如 Play 方法。 |
| 檔案 |
-
文字檔的字串 。 - Bitmap 適用於影像檔案。 - Icon 表示圖示檔案。 - UnmanagedMemoryStream 適用於聲音檔案。 |
| 其他 | 由設計工具的 [類型 ] 資料行中的資訊決定。 |
班級
物件 My.Resources 會將每個資源文件公開為具有共用屬性的類別。 類別名稱與資源檔的名稱相同。 如上一節所述,資源檔中的資源會公開為 類別中的屬性。
範例 1
本範例會將表單的標題設定為應用程式資源檔中名為 Form1Title 的字串資源。 若要讓範例能夠運作,應用程式必須在其資源檔中具有名為 Form1Title 的字串。
Sub SetFormTitle()
Me.Text = My.Resources.Form1Title
End Sub
範例 2
本範例會將表單的圖示設定為儲存 Form1Icon 在應用程式資源檔中的圖示。 若要讓範例運作,應用程式在其資源檔中必須有名為 Form1Icon 的圖示。
Sub SetFormIcon()
Me.Icon = My.Resources.Form1Icon
End Sub
範例 3
本範例會將表單的背景影像設定為名為 Form1Background的影像資源,也就是在應用程式資源檔中。 若要讓此範例運作,應用程式在其資源檔中必須有名為 Form1Background 的映像資源。
Sub SetFormBackgroundImage()
Me.BackgroundImage = My.Resources.Form1Background
End Sub
範例 4
這個範例會播放儲存為應用程式資源檔中名為 Form1Greeting 之音訊資源的聲音。 若要讓範例運作,應用程式在其資源檔中必須有名為的 Form1Greeting 音訊資源。 方法 My.Computer.Audio.Play 僅適用於 Windows Forms 應用程式。
Sub PlayFormGreeting()
My.Computer.Audio.Play(My.Resources.Form1Greeting,
AudioPlayMode.Background)
End Sub
範例 5
此範例會擷取應用程式的字串資源法文文化特性版本。 資源的名稱為 Message。 若要變更物件所使用的文化特性 My.Resources ,此範例會使用 ChangeUICulture。
若要讓此範例運作,應用程式在其資源檔中必須有名為 Message 的字串,而且應用程式應該具有該資源檔 Resources 的法文文化特性版本。fr-FR.resx。 如果應用程式沒有資源檔的法文文化特性版本,物件 My.Resource 會從預設文化特性資源檔擷取資源。
Sub ShowLocalizedMessage()
Dim culture As String = My.Application.UICulture.Name
My.Application.ChangeUICulture("fr-FR")
MsgBox(My.Resources.Message)
My.Application.ChangeUICulture(culture)
End Sub