(Access) 的 Application.AppIcon 屬性

使用 AppIcon 屬性來指定點陣圖 (.bmp 的名稱) 或圖示 (.ico) 包含應用程式圖示的檔案。 例如，您可以使用 AppIcon 屬性指定包含汽車圖片的 .bmp 檔，以代表汽車零件應用程式。

語法

運算式。AppIcon

expression 代表 Application 物件的變數。

設定

AppIcon屬性是字串運算式，是有效的點陣圖或圖示檔案名， (/包括路徑) 。

設定此屬性最簡單的方式是使用 [存取選項] 對話方塊中的 [應用程式圖示] 選項。 您也可以使用宏或 Visual Basic 來設定這個屬性。

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

• 在 Microsoft Access 資料庫中，您可以使用 CreateProperty 方法並將它附加到 Database 物件的 Properties 集合中的方式新增屬性。

• 在 Microsoft Access 專案 (.adp) 中，您可以使用Add方法，將它新增至 CurrentProject 物件的AccessObjectProperties集合。

您也必須使用 RefreshTitleBar 方法，立即顯示任何變更。

註解

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

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

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

範例

下列範例示範如何變更 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。