Oscar Sun

                  
AppIcon 屬性
全部顯示全部顯示
全部隱藏全部隱藏 

您可以使用 AppIcon 屬性指定包含應用程式圖示的點陣圖 (點陣圖：由一系列的小點組成的圖片，很像由一些方形填滿形成圖案及線條的一張圖紙。將點陣圖儲存為檔案時，其副檔名通常是 .bmp。) (.bmp) 或圖示 (.ico) 檔案名稱。例如，您可以使用 AppIcon 屬性指定包含汽車圖片的 .bmp 檔，以代表汽車零件應用程式。

設定
AppIcon 屬性是字串運算式 (字串運算式：算出一系列連續字元的運算式。運算式的元素可以是：傳回字串或字串 Variant (VarType 8) 的函數；字串文字、常數、變數或 Variant。)，其為有效的點陣圖或圖示檔案名稱 (包含路徑)。

設定此屬性的最簡單方式為使用 [Access 選項] 對話方塊中的 [應用程式圖示] 選項，只要按一下 [Office 按鈕] 按鈕圖像，然後按一下 [現用資料庫] 類別便會出現。您也可以使用巨集或 Visual Basic 來設定此屬性。

若要使用巨集或 Visual Basic 來設定 AppIcon 屬性，您必須先在 [Access 選項] 對話方塊中設定此屬性一次，或使用下列方法來建立屬性：

在 Microsoft Access 資料庫 (資料庫：與特定主旨或用途有關的資料集合。在資料庫中，特定實體的相關資訊 (如員工或訂單) 是用資料表、記錄及欄位來加以歸類。)中，您可以使用 CreateProperty 方法並將它附加到 Database 物件的 Properties 集合中的方式新增屬性。 
在 Microsoft Access 專案 (Microsoft Access 專案：連接 Microsoft SQL Server 資料庫，且用來建立主從架構應用程式的 Access 檔案。專案檔案不包含任何資料或基於資料定義的物件，如資料表及檢視。) (.adp) 中，您可以使用 Add 方法將它加入 CurrentProject 物件的 AccessObjectProperties 集合中。 
您必須同時使用 RefreshTitleBar 方法使變更立即可見。

備註
如果您正在散佈您的應用程式，建議您將包含圖示的 .bmp 或 .ico 檔案放在與您的 Microsoft Access 應用程式相同的目錄中。

如果 AppIcon 屬性未設定或無效，則會顯示 Microsoft Access 圖示。

在程式碼中設定此屬性之後 (只要程式碼包含 RefreshTitlebar 方法)，或 [Access 選項] 對話方塊關閉時，此屬性設定值便會立即生效。

範例
下列範例顯示如何在 Microsoft Access 資料庫中改變 AppIcon 和 AppTitle 屬性。如果尚未設定或建立屬性，則必須使用 CreateProperty 方法建立屬性，並將它們附加至 Properties 集合。

Sub cmdAddProp_Click()
    Dim intX As Integer
    Const DB_Text As Long = 10
    intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application")
    intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp")
    CurrentDb.Properties("UseAppIconForFrmRpt") = 1
    Application.RefreshTitleBar
End Sub

Function AddAppProperty(strName As String, _
        varType As Variant, varValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo AddProp_Err
    dbs.Properties(strName) = varValue
    AddAppProperty = True

AddProp_Bye:
    Exit Function

AddProp_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strName, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        AddAppProperty = False
        Resume AddProp_Bye
    End If
End Function 

© 2010 Microsoft Corporation. All rights reserved.