current.frm

扫描软件

    Dim lngResolutionY As Long
'** Singles
    Dim sngImageLayout(4) As Single
'** Variants
    Dim vntWorkingString As Variant
    
    On Error GoTo ScanError
    
    '----------------------------------------------------------
    ' Make sure that a GetScanCapabilities was done.  If not,
    ' declare a message and exit the subroutine.
    '----------------------------------------------------------
    If mblnGetCapabilitiesDone = False Then
        MsgBox GET_CAPABILITIES_FIRST, vbExclamation
        Exit Sub
    End If
    
    '----------------------------------------------------------
    ' Validate ResolutionX.
    '----------------------------------------------------------
    vntWorkingString = txtSetResolutionX.Text
    If IsNumeric(Trim(vntWorkingString)) Then
        lngResolutionX = CLng(Trim(vntWorkingString))
        If (lngResolutionX >= glngMinResolution) And _
            (lngResolutionX <= glngMaxResolution) Then
            glngSetResolutionX = lngResolutionX
        Else
            MsgBox RESOLUTION_BETWEEN_1 & glngMinResolution & " and " & _
                glngMaxResolution & RESOLUTION_BETWEEN_2, vbCritical
        End If
    Else
        MsgBox RESOLUTION_NUMERIC, vbCritical
        Exit Sub
    End If
    
    '----------------------------------------------------------
    ' Validate ResolutionY.
    '----------------------------------------------------------
    vntWorkingString = txtSetResolutionY.Text
    If IsNumeric(Trim(vntWorkingString)) Then
        lngResolutionY = CLng(Trim(vntWorkingString))
        If (lngResolutionY >= glngMinResolution) And _
            (lngResolutionY <= glngMaxResolution) Then
            glngSetResolutionY = lngResolutionY
        Else
            MsgBox RESOLUTION_BETWEEN_1 & glngMinResolution & " and " & _
                glngMaxResolution & RESOLUTION_BETWEEN_2, vbCritical
        End If
    Else
        MsgBox RESOLUTION_NUMERIC, vbCritical
        Exit Sub
    End If
    
'    '----------------------------------------------------------
'    ' Validate Brightness.
'    '----------------------------------------------------------
'    vntWorkingString = txtSetBrightness.Text
'    If IsNumeric(Trim(vntWorkingString)) Then
'        lngBrightness = CLng(Trim(vntWorkingString))
'        If (lngBrightness >= glngMinBrightness) And _
'            (lngBrightness <= glngMaxBrightness) Then
'            glngSetBrightness = lngBrightness
'        Else
'            MsgBox BRIGHTNESS_BETWEEN_1 & glngMinBrightness & " and " & _
'                glngMaxBrightness & BRIGHTNESS_BETWEEN_2, vbCritical
'        End If
'    Else
'        MsgBox BRIGHTNESS_NUMERIC, vbCritical
'        Exit Sub
'    End If
'
'    '----------------------------------------------------------
'    ' Validate Contrast.
'    '----------------------------------------------------------
'    vntWorkingString = txtSetContrast.Text
'    If IsNumeric(Trim(vntWorkingString)) Then
'        lngContrast = CLng(Trim(vntWorkingString))
'        If (lngContrast >= glngMinContrast) And _
'            (lngContrast <= glngMaxContrast) Then
'            glngSetContrast = lngContrast
'        Else
'            MsgBox CONTRAST_BETWEEN_1 & glngMinContrast & " and " & _
'                glngMaxContrast & CONTRAST_BETWEEN_2, vbCritical
'        End If
'    Else
'        MsgBox CONTRAST_NUMERIC, vbCritical
'        Exit Sub
'    End If
'
'    '----------------------------------------------------------
'    ' Validate Left.
'    '----------------------------------------------------------
'    vntWorkingString = txtSetLeft.Text
'    If IsNumeric(Trim(vntWorkingString)) Then
'        gsngSetLeft = CSng(Trim(vntWorkingString))
'    Else
'        MsgBox LEFT_NUMERIC, vbCritical
'        Exit Sub
'    End If
'
'    '----------------------------------------------------------
'    ' Validate Top.
'    '----------------------------------------------------------
'    vntWorkingString = txtSetTop.Text
'    If IsNumeric(Trim(vntWorkingString)) Then
'        gsngSetTop = CSng(Trim(vntWorkingString))
'    Else
'        MsgBox TOP_NUMERIC, vbCritical
'        Exit Sub
'    End If
'
'    '----------------------------------------------------------
'    ' Validate Width.
'    '----------------------------------------------------------
'    vntWorkingString = txtSetWidth.Text
'    If IsNumeric(Trim(vntWorkingString)) Then
'        gsngSetWidth = CSng(Trim(vntWorkingString))
'    Else
'        MsgBox WIDTH_NUMERIC, vbCritical
'        Exit Sub
'    End If
'
'    '----------------------------------------------------------
'    ' Validate Height.
'    '----------------------------------------------------------
'    vntWorkingString = txtSetHeight.Text
'    If IsNumeric(Trim(vntWorkingString)) Then
'        gsngSetHeight = CSng(Trim(vntWorkingString))
'    Else
'        MsgBox HEIGHT_NUMERIC, vbCritical
'        Exit Sub
'    End If
    
    '----------------------------------------------------------
    ' Set Image Type (100).
    '----------------------------------------------------------
        
    '----------------------------------------------------------
    ' Set Scan Resolution X (Width) (101).  Note that the X
    ' and Y capability IDs are not sequential:  101 and 109.
    '----------------------------------------------------------
    frmMain.ImgScan1.SetScanCapability 101, glngSetResolutionX
    
    If Err.Number = 5 Then
        gblnSetResolutionXSupported = False
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        gblnSetResolutionXSupported = True
    End If
    
    '----------------------------------------------------------
    ' Set Scan Resolution Y (Height) (109).  Note that the X
    ' and Y capability IDs are not sequential:  101 and 109.
    '----------------------------------------------------------
    frmMain.ImgScan1.SetScanCapability 109, glngSetResolutionY
    
    If Err.Number = 5 Then
        gblnSetResolutionYSupported = False
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        gblnSetResolutionYSupported = True
    End If
    
'    '----------------------------------------------------------
'    ' Set Brightness Mode (102).
'    '----------------------------------------------------------
'    frmMain.ImgScan1.SetScanCapability 102, gintSetBrightnessMode
'
'    If Err.Number = 5 Then
'        gblnSetBrightnessModeSupported = False
'        Err.Clear
'    ElseIf Err.Number > 0 Then
'        GoTo ScanError
'    Else
'        gblnSetBrightnessModeSupported = True
'    End If
'
'    '----------------------------------------------------------
'    ' Set Brightness (103).
'    '----------------------------------------------------------
'    frmMain.ImgScan1.SetScanCapability 103, glngSetBrightness
'
'    If Err.Number = 5 Then
'        gblnSetBrightnessSupported = False
'        Err.Clear
'    ElseIf Err.Number > 0 Then
'        GoTo ScanError
'    Else
'        gblnSetBrightnessSupported = True
'    End If
'
'    '----------------------------------------------------------
'    ' Set Contrast Mode (104).
'    '----------------------------------------------------------
'    frmMain.ImgScan1.SetScanCapability 104, gintSetContrastMode
'
'    If Err.Number = 5 Then
'        gblnSetContrastModeSupported = False
'        Err.Clear
'    ElseIf Err.Number > 0 Then
'        GoTo ScanError
'    Else
'        gblnSetContrastModeSupported = True
'    End If
'
'    '----------------------------------------------------------
'    ' Set Contrast (105).
'    '----------------------------------------------------------
'    frmMain.ImgScan1.SetScanCapability 105, glngSetContrast
'
'    If Err.Number = 5 Then
'        gblnSetContrastSupported = False
'        Err.Clear
'    ElseIf Err.Number > 0 Then
'        GoTo ScanError
'    Else
'        gblnSetContrastSupported = True
'    End If
'
'    '----------------------------------------------------------
'    ' Set Image Layout (106).
'    '----------------------------------------------------------
'    sngImageLayout(0) = gsngSetLeft
'    sngImageLayout(1) = gsngSetTop
'    sngImageLayout(2) = gsngSetWidth
'    sngImageLayout(3) = gsngSetHeight
'
'    frmMain.ImgScan1.SetScanCapability 106, sngImageLayout
'
'    If Err.Number = 5 Then
'        gblnSetImageLayoutSupported = False
'        Err.Clear
'    ElseIf Err.Number > 0 Then
'        GoTo ScanError
'    Else
'        gblnSetImageLayoutSupported = True
'    End If
'
'    '----------------------------------------------------------
'    ' Set Scan Mode (107).
'    '----------------------------------------------------------
'    frmMain.ImgScan1.SetScanCapability 107, gintSetScanMode
'
'    If Err.Number = 5 Then
'        gblnSetScanModeSupported = False
'        Err.Clear
'    ElseIf Err.Number > 0 Then
'        GoTo ScanError
'    Else
'        gblnSetScanModeSupported = True
'    End If
    
    '----------------------------------------------------------
    ' If logging has been turned on for SetScanCapability,
    ' initialize mstrPMEType and mstrEventName.  Otherwise,
    ' exit the subroutine.  Note that this logging is here to
    ' aid in debugging and analysis; logging wouldn't usually
    ' be included in a production application.
    '----------------------------------------------------------
    If gblnTrackImgScanEvent(iseGetScanCapability) = True Then
        mstrPMEType = METHOD_LEGEND
        mstrEventName = "ImgScan_SetScanCapability"
    Else
        Exit Sub
    End If
    
    '----------------------------------------------------------
    ' Log Image Type.
    '----------------------------------------------------------
    If gblnGetImageTypesAvailableSupported = True Then
        mstrParameters = "SetImageType=" & GetImageTypeLegend(gintSetImageType)
    Else
        mstrParameters = "SetImageType:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    '----------------------------------------------------------
    ' Log ResolutionX.
    '----------------------------------------------------------
    If gblnSetResolutionXSupported = True Then
        mstrParameters = "SetResolutionX=" & glngSetResolutionX
    Else
        mstrParameters = "SetResolutionX:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    '----------------------------------------------------------
    ' Log ResolutionY.
    '----------------------------------------------------------
    If gblnSetResolutionYSupported = True Then
        mstrParameters = "SetResolutionY=" & glngSetResolutionY
    Else
        mstrParameters = "SetResolutionY:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    '----------------------------------------------------------
    ' Log Brightness Mode.
    '----------------------------------------------------------
    If gblnSetBrightnessModeSupported = True Then
        mstrParameters = "SetBrightnessMode=" & gintSetBrightnessMode
    Else
        mstrParameters = "SetBrightnessMode:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
          
    '----------------------------------------------------------
    ' Log Brightness.
    '----------------------------------------------------------
    If gblnSetBrightnessSupported = True Then
        mstrParameters = "SetBrightness=" & glngSetBrightness
    Else
        mstrParameters = "SetBrightness:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    '----------------------------------------------------------
    ' Log Contrast Mode.
    '----------------------------------------------------------
    If gblnSetContrastModeSupported = True Then
        mstrParameters = "SetContrastMode=" & gintSetContrastMode
    Else
        mstrParameters = "SetContrastMode:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
          
    '----------------------------------------------------------
    ' Log Contrast.
    '----------------------------------------------------------
    If gblnSetContrastSupported = True Then
        mstrParameters = "SetContrast=" & glngSetContrast
    Else
        mstrParameters = "SetContrast:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    '----------------------------------------------------------
    ' Log Image Layout.
    '----------------------------------------------------------
    If gblnSetImageLayoutSupported = True Then
        mstrParameters = "SetImageLayout=Left " & _
            sngImageLayout(0) & "; Top " & _
            sngImageLayout(1) & "; Width " & _
            sngImageLayout(2) & "; Height " & _
            sngImageLayout(3)
    Else
        mstrParameters = "SetImageLayout:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    '----------------------------------------------------------
    ' Log Scan Mode.
    '----------------------------------------------------------
    If gblnSetScanModeSupported = True Then
        mstrParameters = "SetScanMode=" & gintSetScanMode
    Else
        mstrParameters = "SetScanMode:  Unsupported"
    End If
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    Exit Sub
    
ScanError:
    If frmMain.ImgScan1.StatusCode <> 0 Then
        MsgBox Err.Description & " (ImgScan error " & _
            Hex(frmMain.ImgScan1.StatusCode) & ")", vbCritical
    End If
    
End Sub

Private Sub Form_Load()
'**************************************************************
' PRIVATE SUB Form_Load:
'**************************************************************
'** Integers
    Dim intIndex As Integer
    
    '----------------------------------------------------------
    ' If the range of capabilities has not yet been called and
    ' stored, get it.
    '----------------------------------------------------------
    If gblnGetCapabilityRangeDone = False Then
        Call GetRangeOfCapabilities
    End If
    
    '----------------------------------------------------------
    ' Open the scanner.  The scanner will stay open while the
    ' form is displayed.
    '----------------------------------------------------------
    frmMain.ImgScan1.OpenScanner
    
    '----------------------------------------------------------
    ' Populate the combo boxes.
    '----------------------------------------------------------
    For intIndex = 0 To 5
        If gblnImageTypesAvailable(intIndex) = True Then
            cboSetImageType.AddItem gstrImageTypeStrings(intIndex)
        End If
    Next intIndex
                        
    cboSetBrightnessMode.AddItem "Normal"
    cboSetBrightnessMode.AddItem "Automatic"
    
    cboSetContrastMode.AddItem "Normal"
    cboSetContrastMode.AddItem "Automatic"
    
    cboSetScanMode.AddItem "Flatbed"
    cboSetScanMode.AddItem "ADF"
        
End Sub