ReScan example

Function OnAppUserDefined1 ( ) As Long

'---------------------------------------------------------------------

' Call this function in the Manager module. Make sure the form

' definition is open and the scanner is ready.

'---------------------------------------------------------------------

    Dim intRes As Integer

        Dim intDPI As Integer

        Dim strDPI As String

        Dim objScan As Object

 

        strContrast = "cContrast"

        intContrast = 50

        strLight = "cBrightness"

        intLight = 50

 

        Set objScan = Application.FormDef.ScannerSettings

        Call objScan.SetIntProperty(strContrast,intContrast)

        Call objScan.SetIntProperty(strLight,intLight)

        intRes = Application.ReScanFormDef

        OnAppUserDefined1 = EV_OK        ' Return value to FORMS

End Function