Attribute VB_Name = "xGetProfileInt関数"





' @(h) xGetProfileInt関数.bas                     ver 1.1 ( '98.10.08  )

' @(s)
'  WIN.INI初期設定ファイルから指定されたエントリの整数値を取得する関数モジュール
'  本モジュールはテスト用コードモジュールです。
'
Option Explicit
Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Long) As Long
Attribute GetProfileInt.VB_ProcData.VB_Invoke_Func = " \n14"

Sub xGetProfileIntのテスト()  'ExcelまたはVisual Basicで実行してください。
Attribute xGetProfileIntのテスト.VB_ProcData.VB_Invoke_Func = " \n14"
    MsgBox xGetProfileInt("Desktop", "TileWallpaper", 12345)
    MsgBox xGetProfileInt("Desktop", "TileWallpaper2", 12345)
End Sub

' @(f)
'
' 機能      : WIN.INI初期設定ファイルから指定されたエントリの整数値を取得する関数
'
' 返り値    : 検索されたエントリの値。指定されたエントリが見付からなかった場合はデフォルト値を返す。
'
' 引き数    : lpApplicationName$    - エントリを検索するセクションを表す文字列。
'             lpKeyName$            - 検索するキー名またはエントリを表す文字列。
'             xnDefault             - 指定されたエントリが見付からなかったときに返すデフォルト値。
'
' 機能説明  : WIN.INI初期設定ファイルから指定されたエントリの整数値を取得する関数
'
' 備考      : 特になし
'
Function xGetProfileInt(lpApplicationName$, lpKeyName$, Optional xnDefault) As Long
Attribute xGetProfileInt.VB_ProcData.VB_Invoke_Func = " \n14"
    Dim nDefault&
 
    If IsMissing(xnDefault) Then
        nDefault& = 0
    Else
        nDefault& = xnDefault
    End If
    xGetProfileInt = GetProfileInt(lpApplicationName$, lpKeyName$, nDefault&)
End Function