項目

バージョン情報ダイアログの表示

概要

APIを使用して簡単にバージョン情報ダイアログを表示できます

例

Option Compare Database
Option Explicit

'------------------------------------------
'API宣言領域
'------------------------------------------
'バージョン情報ダイアログの表示
Private Declare Function ShellAbout Lib "shell32" Alias "ShellAboutA" _
                                        (ByVal hWnd As Long, _
                                        ByVal szApp As String, _
                                        ByVal szOtherStuff As String, _
                                        ByVal hIcon As Long) As Long

'アイコンハンドル取得
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" _
                                        (ByVal lpszFile As String, _
                                        ByVal nIconIndex As Long, _
                                        phiconLarge As Long, _
                                        phiconSmall As Long, _
                                        ByVal nIcons As Long) As Long

'------------------------------------------
'バージョン情報ダイアログを表示します
'------------------------------------------
Private Sub btVersion_Click()

    Dim szApp           As String
    Dim szOtherStuff    As String

    Dim path            As String
    Dim phiconLarge     As Long
    Dim phiconSmall     As Long
    Dim rt              As Long
    
    
    szApp = "TIPSサンプル Ver 1.0.0"            'タイトルバー
    szOtherStuff = "Copyright (C) 2006 H.HOGE"  '表示内容

    '-----------------------------------------------------------
    'アイコンのパスを指定（自分で用意してください）
    'アイコンがない場合にはhIconに0を設定するとWindowsのアイコン
    '-----------------------------------------------------------
    path = CurrentProject.path & "\hoge.ico"
    
    'アイコンのハンドル取得
    rt = ExtractIconEx(path, 0, phiconLarge, phiconSmall, 1)
    
    'バージョン情報ダイアログを表示
    Call ShellAbout(Application.hWndAccessApp, szApp, szOtherStuff, phiconLarge)

End Sub