Option Explicit
 
Private Declare Function GetPrivateProfileInt Lib "kernel32" _
                         Alias "GetPrivateProfileIntA" ( _
                         ByVal strSection As String, _
                         ByVal strKeyName As String, _
                         ByVal lngDefault As Long, _
                         ByVal strFileName As String) As Long
 
Private Sub Command1_Click()
 
    On Error GoTo PROC_ERR
 
    Dim lngValue As Long
 
    lngValue = GetPrivateProfileInt("Section", "MyKey", 0&, App.Path & _
      "\test.ini")
 
    Me.Caption = CStr(lngValue)
 
PROC_EXIT:
    Exit Sub
 
PROC_ERR:
    MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
    "INIGetSettingInteger"
    Resume PROC_EXIT
 
End Sub

[Section]
MyKey=50

Mit freundlichen Grüßen
-Franky-

Beitrag wurde zuletzt am 11.08.21 um 13:48:45 editiert.