自作したソフトのアイコンをVBAで設定する ： Access
アプリケーションのアイコンは、メニューの「ツール」-「起動時の設定」で可能ですが、Access VBAで設定してみます。
設定するには、Propertiesコレクションの、AppIconプロパティに指定します。■ Access実行画面
株式売買データベースソフトです。
設定前のタスクバーには既定のAccessのアイコンが表示されています。
プログラムでアプリケーションのアイコンを設定しました。
タスクバーのアイコンが変わりました。
■ Access VBA 実行コード
Option Compare Database
Option Explicit
'アプリケーションのアイコンを設定
Private Sub MySetPrpty()
Dim db As Database
Dim pr As DAO.Property
Set db = CurrentDb
On Error GoTo Err
db.Properties("AppIcon") = "c:\feedsoft.ico"
Set db = Nothing
Exit Sub
Err:
'起動時の設定がまだ設定されていない場合、エラーが発生するのでプロパティを作成し設定します。
Set pr = db.CreateProperty("AppIcon", dbText, "c:\feedsoft.ico")
db.Properties.Append pr
Set pr = Nothing
Set db = Nothing
End Sub
Private Sub Form_Load()
MySetPrpty
End Sub
Option Explicit
'アプリケーションのアイコンを設定
Private Sub MySetPrpty()
Dim db As Database
Dim pr As DAO.Property
Set db = CurrentDb
On Error GoTo Err
db.Properties("AppIcon") = "c:\feedsoft.ico"
Set db = Nothing
Exit Sub
Err:
'起動時の設定がまだ設定されていない場合、エラーが発生するのでプロパティを作成し設定します。
Set pr = db.CreateProperty("AppIcon", dbText, "c:\feedsoft.ico")
db.Properties.Append pr
Set pr = Nothing
Set db = Nothing
End Sub
Private Sub Form_Load()
MySetPrpty
End Sub
Home 
Tipsへ メニューへCopyright(C) FeedSoft