evntscan.frm

扫描软件

VERSION 5.00
Begin VB.Form frmEventImgScan 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "扫描事件"
   ClientHeight    =   3120
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6345
   Icon            =   "EvntScan.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3120
   ScaleWidth      =   6345
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame fraScanCapabilities 
      Caption         =   "扫描性能参数"
      Height          =   1215
      Left            =   2760
      TabIndex        =   10
      Top             =   1680
      Width           =   2295
      Begin VB.CheckBox chkImgScanEvent 
         Caption         =   "SetScanCapability"
         Height          =   375
         Index           =   7
         Left            =   120
         TabIndex        =   12
         Tag             =   "ImgScan_SetScanCapability"
         Top             =   720
         Width           =   2055
      End
      Begin VB.CheckBox chkImgScanEvent 
         Caption         =   "GetScanCapability"
         Height          =   375
         Index           =   6
         Left            =   120
         TabIndex        =   11
         Tag             =   "ImgScan_GetScanCapability"
         Top             =   360
         Width           =   2055
      End
   End
   Begin VB.Frame fraUniqueEvents 
      Caption         =   "唯一事件"
      Height          =   2175
      Left            =   240
      TabIndex        =   9
      Top             =   720
      Width           =   2295
      Begin VB.CheckBox chkImgScanEvent 
         Caption         =   "ScanUIDone"
         Height          =   375
         Index           =   4
         Left            =   360
         TabIndex        =   4
         Tag             =   "ImgScan_ScanUIDone"
         Top             =   1680
         Width           =   1575
      End
      Begin VB.CheckBox chkImgScanEvent 
         Caption         =   "FileNameRequest"
         Height          =   375
         Index           =   0
         Left            =   360
         TabIndex        =   0
         Tag             =   "ImgScan_FileNameRequest"
         Top             =   240
         Width           =   1575
      End
      Begin VB.CheckBox chkImgScanEvent 
         Caption         =   "ScanStarted"
         Height          =   375
         Index           =   3
         Left            =   360
         TabIndex        =   3
         Tag             =   "ImgScan_ScanStarted"
         Top             =   1320
         Width           =   1575
      End
      Begin VB.CheckBox chkImgScanEvent 
         Caption         =   "PageDone"
         Height          =   375
         Index           =   1
         Left            =   360
         TabIndex        =   1
         Tag             =   "ImgScan_PageDone"
         Top             =   600
         Width           =   1575
      End
      Begin VB.CheckBox chkImgScanEvent 
         Caption         =   "ScanDone"
         Height          =   375
         Index           =   2
         Left            =   360
         TabIndex        =   2
         Tag             =   "ImgScan_ScanDone"
         Top             =   960
         Width           =   1575
      End
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   5280
      TabIndex        =   6
      Top             =   2520
      Width           =   855
   End
   Begin VB.Frame fraStandardEvents 
      Caption         =   "标准事件"
      Height          =   735
      Left            =   2760
      TabIndex        =   7
      Top             =   720
      Width           =   2295
      Begin VB.CheckBox chkImgScanEvent 
         Caption         =   "error"
         Height          =   375
         Index           =   5
         Left            =   360
         TabIndex        =   5
         Tag             =   "ImgScan_Error"
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.Label lblInstructions 
      Caption         =   "选择要跟踪扫描事件"
      Height          =   375
      Left            =   240
      TabIndex        =   8
      Top             =   120
      Width           =   4815
   End
End
Attribute VB_Name = "frmEventImgScan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'**************************************************************
' Module (Private) Variables
'**************************************************************
    
    Private mstrItemDescription As String
    
Private Sub chkImgScanEvent_Click(Index As Integer)
'**************************************************************
' PRIVATE SUB chkImgScanEvent_Click:  Select/deselect the
' event.
'**************************************************************

    mstrItemDescription = chkImgScanEvent(Index).Tag

    If chkImgScanEvent(Index).Value = Checked Then
        gblnTrackImgScanEvent(Index) = True
        frmEventLog.lstEventsTracked.AddItem mstrItemDescription
    ElseIf chkImgScanEvent(Index).Value = Unchecked Then
        gblnTrackImgScanEvent(Index) = False
        Call frmEventLog.RemoveTrackedEvent(mstrItemDescription)
    End If
    
End Sub

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

    frmEventImgScan.Hide

End Sub