次の方法で共有


Application.AppIcon プロパティ (Access)

AppIcon プロパティを使用して、アプリケーションのアイコンを含むビットマップ (.bmp) またはアイコン (.ico) ファイルの名前を指定します。 たとえば、AppIcon プロパティを使って、自動車部品に関するアプリケーションのアイコンに、自動車のピクチャを含む .bmp ファイルを指定することができます。

構文

AppIcon

expressionApplication オブジェクトを 表す変数。

Setting

AppIcon プロパティは、有効なビットマップまたはアイコン ファイル名 (/パスを含む) である文字列式です。

このプロパティを設定する最も簡単な方法は、[アクセス オプション] ダイアログ ボックスの [アプリケーション アイコン] オプションを使用することです。 マクロまたは Visual Basic を使用して、このプロパティを設定することもできます。

マクロまたは Visual Basic を使用して AppIcon プロパティを設定するには、[Access のオプション] ダイアログ ボックスでプロパティを設定するか、次の方法でプロパティを作成しておく必要があります。

  • Access データベースでは、CreateProperty メソッドを使用してプロパティを作成し、Database オブジェクトの Properties コレクションに追加します。

  • Microsoft Access プロジェクト (.adp) では、Add メソッドを使用して CurrentProject オブジェクトの AccessObjectProperties コレクションに追加できます。

また、RefreshTitleBar メソッドを使用して、変更をすぐに表示する必要があります。

注釈

アプリケーションを配布する場合、.bmp ファイルまたはアイコンを含む .ico ファイルは、Access アプリケーションと同じディレクトリに保存することをお勧めします。

AppIcon プロパティが設定されていない場合、または無効な場合は、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 のサポートおよびフィードバックを参照してください。