'------------------------------------------------------------------------------ ' ' 這段程式碼是由工具產生的。 ' ' 變更這個檔案可能會導致不正確的行為,而且如果已重新產生 ' 程式碼,變更將會遺失。 ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My.Resources '這個類別是自動產生的,是利用 StronglyTypedResourceBuilder '類別透過 ResGen 或 Visual Studio 這類工具產生。 '若要加入或移除成員,請編輯您的 .ResX 檔,然後重新執行 ResGen '(利用 /str 選項),或重建您的 VS 專案。 ' ' 用於查詢當地語系化字串等的強型別資源類別 ' _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceManager Private resourceCulture As Global.System.Globalization.CultureInfo ' ' 傳回這個類別使用的快取的 ResourceManager 執行個體。 ' _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ExcelWebAddIn1Web.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan End Get End Property ' ' 覆寫目前執行緒的 CurrentUICulture 屬性,對象是所有 ' 使用這個強型別資源類別的資源查閱。 ' _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get Set(ByVal value As Global.System.Globalization.CultureInfo) resourceCulture = value End Set End Property End Module End Namespace