1. Description

    This is a sample how to read "MaxPagePerEnvelope" from PMachine.ini. Define sSection and sKey to get the entries from ini file. These entries can be made manually or using the function WritePrivateProfileString.

  2. Answer

    Example of PMachine.ini entry:

    [CustomerSettings]
    MaxPagePerEnvelope=9
    VB Application.BAS

    Public lMaxPagePerEnvelope As Long
     'this variable can be used in all VB sheets. Example is executed on event 'OnApplicationStart'.
    Public Declare Function GetPrivateProfileString Lib "Kernel32" _
     Alias "GetPrivateProfileStringA" ( _
     ByVal lpApplicationName As String,
     ByVal lpKeyName As String, _
     ByVal lpDefault As String, _
     ByVal lpReturnString As String, _
     ByVal nSize As Long, _
     ByVal lpFilename As String) As Long

    Public Function Get_Ini(sSection As String, sKey As String) As String
     Dim sLine As String
     sLine = Space(100)
     Get_Ini = Left(sLine, getPrivateProfileString(sSection, sKey, "", sLine, 100, App.INIFile))
    End Function

    Private Sub OnApplicationStart()
     lMaxPagePerEnvelope = Val(Get_Ini("CustomerSettings","MaxPagePerEnvelope"))
    End Sub

    More info about GetPrivateProfileString

Date created:
01/22/2015 11:38:32
Last updated:
02/11/2015 10:25:44
Product(range):
OMS-500
Print