'------------------------------------------------------------------------------ ' ' 這段程式碼是由工具產生的。 ' 執行階段版本:2.0.50727.5456 ' ' 對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼, ' 變更將會遺失。 ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System 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("HKWTC.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 resourceCulture = value End Set End Property Friend ReadOnly Property BG1() As System.Drawing.Bitmap Get Dim obj As Object = ResourceManager.GetObject("BG1", resourceCulture) Return CType(obj,System.Drawing.Bitmap) End Get End Property Friend ReadOnly Property BG2() As System.Drawing.Bitmap Get Dim obj As Object = ResourceManager.GetObject("BG2", resourceCulture) Return CType(obj,System.Drawing.Bitmap) End Get End Property Friend ReadOnly Property BG3() As System.Drawing.Bitmap Get Dim obj As Object = ResourceManager.GetObject("BG3", resourceCulture) Return CType(obj,System.Drawing.Bitmap) End Get End Property End Module End Namespace