共用方式為


My.Resources 物件

提供用來存取應用程式資源的屬性和類別。

備註

物件 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

另請參閱