form1.frm

本文件包含200个visual baisc实例

VERSION 5.00
Object = "{84926CA3-2941-101C-816F-0E6013114B7F}#1.0#0"; "IMGSCAN.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{6D940288-9F11-11CE-83FD-02608C3EC08A}#2.1#0"; "IMGEDIT.OCX"
Begin VB.Form Form1 
   Caption         =   "图片扫描"
   ClientHeight    =   4065
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6300
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4065
   ScaleWidth      =   6300
   StartUpPosition =   1  '所有者中心
   Begin ScanLibCtl.ImgScan ImgScan1 
      Left            =   -90
      Top             =   1410
      _Version        =   65536
      _ExtentX        =   847
      _ExtentY        =   820
      _StockProps     =   0
      DestImageControl=   "ImgEdit1"
   End
   Begin ImgeditLibCtl.ImgEdit ImgEdit1 
      Height          =   2940
      Left            =   495
      TabIndex        =   4
      Top             =   105
      Width           =   5325
      _Version        =   131073
      _ExtentX        =   9393
      _ExtentY        =   5186
      _StockProps     =   96
      BorderStyle     =   1
      ImageControl    =   "ImgEdit1"
      BeginProperty AnnotationFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      UndoBufferSize  =   116589312
      OcrZoneVisibility=   -4028
      AnnotationOcrType=   88
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   3
      Top             =   3690
      Width           =   6300
      _ExtentX        =   11113
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   8819
            MinWidth        =   8819
         EndProperty
      EndProperty
   End
   Begin VB.CommandButton Command2 
      Caption         =   "停止扫描"
      Height          =   435
      Left            =   2430
      TabIndex        =   2
      Top             =   3165
      Width           =   1425
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      Height          =   435
      Left            =   4185
      TabIndex        =   1
      Top             =   3165
      Width           =   1425
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始扫描"
      Height          =   435
      Left            =   675
      TabIndex        =   0
      Top             =   3165
      Width           =   1425
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ImgEdit1_KeyDown(KeyCode As Integer, Shift As Integer)
  ImgAnnTool1.AnnotationTextFile = ImgEdit1.AnnotationTextFile
End Sub

Private Sub ImgScan1_PageDone(ByVal PageNumber As Long)
  '显示完成页数
  StatusBar1.Panels(1).Text = "状态：已完成" & PageNumber & "页"
End Sub

Private Sub ImgScan1_ScanDone()
  '显示完成扫描
  StatusBar1.Panels(1).Text = "状态：完成扫描"
End Sub

Private Sub ImgScan1_ScanStarted()
  StatusBar1.Panels(1).Text = "状态：开始扫描"
End Sub

Private Sub Command1_Click()
  '扫描仪可用
  ImgScan1.ScannerAvailable
  '打开扫描仪端口
  On Error Resume Next
  ImgScan1.OpenScanner
  ImgScan1.StartScan
End Sub

Private Sub Command2_Click()
'停止扫描
  ImgScan1.StopScan
End Sub

Private Sub Command3_Click()
  End
End Sub