range.frm

扫描软件

      Begin VB.TextBox txtMaxWidth 
         Height          =   315
         Left            =   1440
         Locked          =   -1  'True
         TabIndex        =   10
         TabStop         =   0   'False
         Top             =   840
         Width           =   1095
      End
      Begin VB.TextBox txtMaxHeight 
         Height          =   315
         Left            =   1440
         Locked          =   -1  'True
         TabIndex        =   9
         TabStop         =   0   'False
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label lblMaxWidth 
         Caption         =   "最宽"
         Height          =   255
         Left            =   240
         TabIndex        =   12
         Top             =   840
         Width           =   975
      End
      Begin VB.Label lblMaxHeight 
         Caption         =   "最高"
         Height          =   255
         Left            =   240
         TabIndex        =   11
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭"
      Default         =   -1  'True
      Height          =   375
      Left            =   7920
      TabIndex        =   0
      Top             =   2400
      Width           =   1095
   End
   Begin VB.Frame fraImageTypesAvailable 
      Caption         =   "支持图象类型"
      Height          =   1575
      Left            =   240
      TabIndex        =   2
      Top             =   240
      Width           =   5775
      Begin VB.CheckBox chkImageTypesAvailable 
         Caption         =   "16位真彩色"
         Height          =   195
         Index           =   4
         Left            =   2400
         TabIndex        =   43
         TabStop         =   0   'False
         Top             =   720
         Width           =   2295
      End
      Begin VB.CheckBox chkImageTypesAvailable 
         Caption         =   "未知"
         Height          =   195
         Index           =   6
         Left            =   4440
         TabIndex        =   7
         TabStop         =   0   'False
         Top             =   360
         Width           =   1095
      End
      Begin VB.CheckBox chkImageTypesAvailable 
         Caption         =   "黑白"
         Height          =   195
         Index           =   0
         Left            =   240
         TabIndex        =   6
         TabStop         =   0   'False
         Top             =   360
         Width           =   1935
      End
      Begin VB.CheckBox chkImageTypesAvailable 
         Caption         =   "16级灰度"
         Height          =   195
         Index           =   1
         Left            =   240
         TabIndex        =   5
         TabStop         =   0   'False
         Top             =   720
         Width           =   2055
      End
      Begin VB.CheckBox chkImageTypesAvailable 
         Caption         =   "256级灰度"
         Height          =   195
         Index           =   2
         Left            =   240
         TabIndex        =   4
         TabStop         =   0   'False
         Top             =   1080
         Width           =   2175
      End
      Begin VB.CheckBox chkImageTypesAvailable 
         Caption         =   "256色"
         Height          =   195
         Index           =   3
         Left            =   2400
         TabIndex        =   3
         TabStop         =   0   'False
         Top             =   360
         Width           =   1575
      End
      Begin VB.CheckBox chkImageTypesAvailable 
         Caption         =   "24位真彩色"
         Height          =   195
         Index           =   5
         Left            =   2400
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   1080
         Width           =   2295
      End
   End
End
Attribute VB_Name = "frmRangeCaps"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClose_Click()
'**************************************************************
' PRIVATE SUB cmdOK_Click:  Unload the form.
'**************************************************************

    Unload Me

End Sub

Private Sub Form_Load()
'**************************************************************
' PRIVATE SUB Form_Load
'**************************************************************
'** Integers
    Dim intIndex As Integer
'** Variants
    Dim vntCapability As Variant
        
    '----------------------------------------------------------
    ' If the range of capabilities has not yet been called and
    ' stored, get it.
    '----------------------------------------------------------
    If gblnGetCapabilityRangeDone = False Then
        Call GetRangeOfCapabilities
    End If
    
    '----------------------------------------------------------
    ' Get the Image Types Available.
    '----------------------------------------------------------
    For intIndex = 0 To 6
        chkImageTypesAvailable(intIndex).Value = _
            Abs(gblnImageTypesAvailable(intIndex))
    Next intIndex
                
    '----------------------------------------------------------
    ' Get the Height/Width capabilities.
    '----------------------------------------------------------
    If gblnGetMaxHeightSupported = True Then
        txtMaxHeight.Text = CStr(gsngMaxHeight)
    Else
        txtMaxHeight.Text = "Unsupported"
    End If
        
    If gblnGetMaxWidthSupported = True Then
        txtMaxWidth.Text = CStr(gsngMaxWidth)
    Else
        txtMaxWidth.Text = "Unsupported"
    End If
    
    '----------------------------------------------------------
    ' Get the Resolution capabilities.
    '----------------------------------------------------------
    If gblnGetMinResolutionSupported = True Then
        txtMinResolution.Text = CStr(glngMinResolution)
    Else
        txtMinResolution.Text = "Unsupported"
    End If
    
    If gblnGetMaxResolutionSupported = True Then
        txtMaxResolution.Text = CStr(glngMaxResolution)
    Else
        txtMaxResolution.Text = "Unsupported"
    End If
    
    If gblnGetResolutionStepSupported = True Then
        txtResolutionStep.Text = CStr(glngResolutionStep)
        'what about variant?
    Else
        txtResolutionStep.Text = "Unsupported"
    End If
           
    '----------------------------------------------------------
    ' Get the Brightness capabilities.
    '----------------------------------------------------------
    If gblnGetMinBrightnessSupported = True Then
        txtMinBrightness.Text = CStr(glngMinBrightness)
    Else
        txtMinBrightness.Text = "Unsupported"
    End If
    
    If gblnGetMaxBrightnessSupported = True Then
        txtMaxBrightness.Text = CStr(glngMaxBrightness)
    Else
        txtMaxBrightness.Text = "Unsupported"
    End If
    
    If gblnGetBrightnessStepSupported = True Then
        txtBrightnessStep.Text = CLng(glngBrightnessStep)
        'What about variant?
    Else
        txtBrightnessStep.Text = "Unsupported"
    End If
    
    If gblnGetAutoBrightnessSupported = True Then
        txtAutoBrightness.Text = gstrAutoBrightness
    Else
        txtAutoBrightness.Text = "Unsupported"
    End If
    
    '----------------------------------------------------------
    ' Get the Contrast capabilities.
    '----------------------------------------------------------
    If gblnGetMinContrastSupported = True Then
        txtMinContrast.Text = CStr(glngMinContrast)
    Else
        txtMinContrast.Text = "Unsupported"
    End If
    
    If gblnGetMaxContrastSupported = True Then
        txtMaxContrast.Text = CStr(glngMaxContrast)
    Else
        txtMaxContrast.Text = "Unsupported"
    End If
    
    If gblnGetContrastStepSupported = True Then
        txtContrastStep.Text = CLng(glngContrastStep)
        'What about variant?
    Else
        txtContrastStep.Text = "Unsupported"
    End If
    
    If gblnGetAutoContrastSupported = True Then
        txtAutoContrast.Text = gstrAutoContrast
    Else
        txtAutoContrast.Text = "Unsupported"
    End If
    
    '----------------------------------------------------------
    ' Get the ADF capabilities.
    '----------------------------------------------------------
    If gblnGetADFAvailableSupported = True Then
        txtADFAvailable.Text = gstrADFAvailable
    Else
        txtADFAvailable.Text = "Unsupported"
    End If

    If gblnGetMaxHeightADFSupported = True Then
        txtMaxHeightADF.Text = CStr(gsngMaxHeightADF)
    Else
        txtMaxHeightADF.Text = "Unsupported"
    End If
    
End Sub