current.frm

扫描软件

         Index           =   0
         Left            =   240
         TabIndex        =   27
         Top             =   2760
         Width           =   1335
      End
      Begin VB.Label lblContrastMode 
         Caption         =   "对比度模式"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   25
         Top             =   2280
         Width           =   1215
      End
      Begin VB.Label lblBrightness 
         Caption         =   "亮度级别"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   23
         Top             =   1800
         Width           =   1575
      End
      Begin VB.Label lblBrightnessMode 
         Caption         =   "亮度模式"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   21
         Top             =   1320
         Width           =   1575
      End
      Begin VB.Label lblImageTypeInUse 
         Caption         =   "图象类型"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   16
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label lblResolution 
         Caption         =   "分辨率"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   18
         Top             =   840
         Width           =   1455
      End
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭"
      Default         =   -1  'True
      Height          =   375
      Left            =   7560
      TabIndex        =   14
      Top             =   5640
      Width           =   975
   End
   Begin VB.Label lblInstructions 
      Caption         =   "注意:设置之前要获得，或者在设置之前关闭机器"
      Height          =   2055
      Left            =   7440
      TabIndex        =   56
      Top             =   360
      Width           =   1095
   End
End
Attribute VB_Name = "frmCurrentCaps"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'**************************************************************
' Module (Private) Variables
'**************************************************************

    Private mblnGetCapabilitiesDone As Boolean
        
    Private mstrPMEType As String
    Private mstrEventName As String
    Private mstrParameters As String

'**************************************************************
' Module (Private) Constants
'**************************************************************

    Private Const PROPERTY_LEGEND = "Property:  "
    Private Const METHOD_LEGEND = "Method:    "
    Private Const EVENT_LEGEND = "Event:     "

Private Sub cboSetBrightnessMode_Click()
'**************************************************************
' PRIVATE SUB cboSetBrightnessMode_Click
'**************************************************************
    
    gintSetBrightnessMode = cboSetBrightnessMode.ListIndex + 1
    
End Sub

Private Sub cboSetContrastMode_Click()
'**************************************************************
' PRIVATE SUB cboSetContrastMode_Click
'**************************************************************
    
    gintSetContrastMode = cboSetContrastMode.ListIndex + 1
    
End Sub

Private Sub cboSetScanMode_Click()
'**************************************************************
' PRIVATE SUB cboSetScanMode_Click
'**************************************************************
    
    gintSetScanMode = cboSetScanMode.ListIndex + 1
    
End Sub

Private Sub cmdClose_Click()
'**************************************************************
' PRIVATE SUB cmdClose_Click:  Close the scanner and unload
' the form.
'**************************************************************
    
    frmMain.ImgScan1.CloseScanner
    Unload Me

End Sub

Private Sub cmdGet_Click()
'**************************************************************
' PRIVATE SUB cmdGet_Click:  Get the current scanner
' capabilities.  Note that these may change during a session
' by setting the scanner capabilities (SetScanCapability).
' Also, if a specific capability is not supported by the
' scanner, an error is thrown.  This differs from the behavior
' of capability values below 100, where if a specific
' capability is not supported, a variant containing VT_ERROR
' (in Visual Basic's case, vbError) is returned.
'**************************************************************
'** Integers
    Dim intImageType As Integer
'** Singles
    Dim sngGetImageLayout(4) As Single
'** Variants
    Dim vntImageType As Variant
    Dim vntResolutionX As Variant
    Dim vntResolutionY As Variant
    Dim vntBrightness As Variant
    Dim vntBrightnessMode As Variant
    Dim vntContrast As Variant
    Dim vntContrastMode As Variant
    Dim vntImageLayout As Variant
    Dim vntScanMode As Variant
    Dim vntPaperInFeeder As Variant
    
    On Error Resume Next
    
    '----------------------------------------------------------
    ' Get the Image Type in use (100).
    '----------------------------------------------------------
    vntImageType = frmMain.ImgScan1.GetScanCapability(100)
    
    If Err.Number = 5 Then
        txtGetImageType.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        intImageType = CInt(vntImageType)
        txtGetImageType.Text = GetImageTypeLegend(intImageType)
    End If
    
    '----------------------------------------------------------
    ' Get Scan Resolution X (Width) (101).  Note that the X
    ' and Y capability IDs are not sequential:  101 and 109.
    '----------------------------------------------------------
    vntResolutionX = frmMain.ImgScan1.GetScanCapability(101)
    
    If Err.Number = 5 Then
        txtGetResolutionX.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        txtGetResolutionX.Text = Str$(vntResolutionX)
    End If
    
    '----------------------------------------------------------
    ' Get Scan Resolution Y (Height) (109).  Note that the X
    ' and Y capability IDs are not sequential:  101 and 109.
    '----------------------------------------------------------
    vntResolutionY = frmMain.ImgScan1.GetScanCapability(109)
    
    If Err.Number = 5 Then
        txtGetResolutionY.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        txtGetResolutionY.Text = Str$(vntResolutionY)
    End If
    
    '----------------------------------------------------------
    ' Get Brightness Mode (102).
    '----------------------------------------------------------
    vntBrightnessMode = frmMain.ImgScan1.GetScanCapability(102)
    
    If Err.Number = 5 Then
        txtGetBrightnessMode.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        If vntBrightnessMode = 1 Then
            txtGetBrightnessMode.Text = "Normal"
        ElseIf vntBrightnessMode = 2 Then
            txtGetBrightnessMode.Text = "Automatic"
        Else
            txtGetBrightnessMode.Text = "Unknown"
        End If
    End If
    
    '----------------------------------------------------------
    ' Get Brightness (103).
    '----------------------------------------------------------
    vntBrightness = frmMain.ImgScan1.GetScanCapability(103)
    
    If Err.Number = 5 Then
        txtGetBrightness.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        txtGetBrightness.Text = Str$(vntBrightness)
    End If
    
    '----------------------------------------------------------
    ' Get Contrast Mode (104).
    '----------------------------------------------------------
    vntContrastMode = frmMain.ImgScan1.GetScanCapability(104)
    
    If Err.Number = 5 Then
        txtGetContrastMode.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        If vntContrastMode = 1 Then
            txtGetContrastMode.Text = "Normal"
        ElseIf vntContrastMode = 2 Then
            txtGetContrastMode.Text = "Automatic"
        Else
            txtGetContrastMode.Text = "Unknown"
        End If
    End If
    
    '----------------------------------------------------------
    ' Get Contrast (105).
    '----------------------------------------------------------
    vntContrast = frmMain.ImgScan1.GetScanCapability(105)
    
    If Err.Number = 5 Then
        txtGetContrast.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        txtGetContrast.Text = Str$(vntContrast)
    End If
    
    '----------------------------------------------------------
    ' Get Image Layout (106).
    '----------------------------------------------------------
    vntImageLayout = frmMain.ImgScan1.GetScanCapability(106)
    
    If Err.Number = 5 Then
        txtGetLeft.Text = "Unsupported"
        txtGetTop.Text = "Unsupported"
        txtGetWidth.Text = "Unsupported"
        txtGetHeight.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        txtGetLeft.Text = Str$(vntImageLayout(0))
        txtGetTop.Text = Str$(vntImageLayout(1))
        txtGetWidth.Text = Str$(vntImageLayout(2))
        txtGetHeight.Text = Str$(vntImageLayout(3))
    End If
    
    '----------------------------------------------------------
    ' Get Scan Mode (107).
    '----------------------------------------------------------
    vntScanMode = frmMain.ImgScan1.GetScanCapability(107)
    
    If Err.Number = 5 Then
        txtGetScanMode.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        If vntScanMode = 1 Then
            txtGetScanMode.Text = "Flatbed"
        ElseIf vntScanMode = 2 Then
            txtGetScanMode.Text = "ADF"
        Else
            txtGetScanMode.Text = "Unknown"
        End If
    End If
    
    '----------------------------------------------------------
    ' Get Paper in Feeder.  Note that ScanMode must be set to
    ' ADF for this field to be valid.
    '----------------------------------------------------------
    vntPaperInFeeder = frmMain.ImgScan1.GetScanCapability(108)
    
    If Err.Number = 5 Then
        txtGetPaperInFeeder.Text = "Unsupported"
        Err.Clear
    ElseIf Err.Number > 0 Then
        GoTo ScanError
    Else
        If txtGetScanMode.Text = "ADF" Then
            If vntPaperInFeeder = True Then
                txtGetPaperInFeeder.Text = "True"
            ElseIf vntPaperInFeeder = False Then
                txtGetPaperInFeeder.Text = "False"
            Else
                txtGetPaperInFeeder.Text = "Unknown"
            End If
        Else
            txtGetPaperInFeeder.Text = "Invalid"
        End If
    End If
    
    '----------------------------------------------------------
    ' Set a switch saying GetScanCapabilities was done.  This
    ' is tracked to prevent a SetScanCapabilities from being
    ' done before a GetScanCapabilities.
    '----------------------------------------------------------
    mblnGetCapabilitiesDone = True
    
    '----------------------------------------------------------
    ' If logging has been turned on for GetScanCapability,
    ' 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_GetScanCapability"
    Else
        Exit Sub
    End If
    
    '----------------------------------------------------------
    ' Log Image Types Available.
    '----------------------------------------------------------
    mstrParameters = "GetImageType=" & txtGetImageType.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetResolutionX=" & txtGetResolutionX.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetResolutionY=" & txtGetResolutionY.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetBrightnessMode=" & txtGetBrightnessMode.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetBrightness=" & txtGetBrightness.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetContrastMode=" & txtGetContrastMode.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetContrast=" & txtGetContrast.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetImageLayout=Left " & txtGetLeft.Text & _
        "; Top " & txtGetTop.Text & _
        "; Width " & txtGetWidth.Text & _
        "; Height " & txtGetHeight.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetScanMode=" & txtGetScanMode.Text
    Call frmEventLog.GenerateLogEvent(mstrPMEType, mstrEventName, mstrParameters)
    
    mstrParameters = "GetPaperInFeeder=" & txtGetPaperInFeeder.Text
    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 cmdSet_Click()
'**************************************************************
' PRIVATE SUB cmdSet_Click:  Set the scanner capabilities.
'**************************************************************
'** Longs
    Dim lngBrightness As Long
    Dim lngContrast As Long
    Dim lngResolutionX As Long