Modifying the scanner settings of a form definition: Example

This example shows one way to modify the scanner settings of a form definition as you import it to a new version of FORMS.

Important: Read the warning in SaveScannerSettings before using that method.

1. Export the form definitions from the old FORMS installation.

2. Install the new version of FORMS.

3. Using Manager, add this code to the MngrFormDefImported event.

   Function OnMngrFormDefImported (FormDefName As String, Status As Integer, ArchiveOptions As Integer, FormOutName1 As String, FormOutName2 As String) As Long

    

    'This example changes ACEFunction to 0 and ACESensitivityLevel to 4

    'First get the scanner settings

    

    Dim myScanObj as object

    Set myScanObj= Application.FormDef.ScannerSettings

    

    'Change the scanner settings

    Dim PropName as string

    PropName = "cACEFunction"

    Dim newVal as long

    newVal= 0

    myScanObj.SetIntProperty(PropName, newVal)

    PropName = "cACESensitivityLevel"

    newVal= 4

    myScanObj.SetIntProperty(PropName, newVal)

    

    'Ensure that the form definition is not active

    Dim formdefState as long

    formdefState = Application.FormDef.GetStatus()

    if formdefState = 1 then

     Application.FormDef.SetStatus(2)

    end if

    

       'Save the form definitions new scanner settings

       Application.FormDef.SaveScannerSettings()

       OnMngrFormDefImported = EV_OK ' Return value to FORMS

   End Function
    

4. Import the form definitions.

5. Remove the VB code from the event.

Related topics

Another way of doing the same thing: ReplaceFormDefScannerSettings

Exporting definitions and tables (FORMS Help topic)

Importing definitions and tables (FORMS Help topic)