www.pudn.com > 档案管理系统源码VB.zip > main.frm

VERSION 5.00 
Object = "{6D940288-9F11-11CE-83FD-02608C3EC08A}#2.1#0"; "IMGEDIT.OCX" 
Object = "{009541A3-3B81-101C-92F3-040224009C02}#2.0#0"; "IMGADMIN.OCX" 
Object = "{84926CA3-2941-101C-816F-0E6013114B7F}#1.0#0"; "IMGSCAN.OCX" 
Begin VB.Form frmScan  
   BackColor       =   &H00C0C0C0& 
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "进行扫描档案入库 ：-) Scan Files To Cabinet" 
   ClientHeight    =   5355 
   ClientLeft      =   150 
   ClientTop       =   720 
   ClientWidth     =   7590 
   Icon            =   "main.frx":0000 
   LinkTopic       =   "Form1" 
   LockControls    =   -1  'True 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   5355 
   ScaleWidth      =   7590 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   3  '窗口缺省 
   Begin ScanLibCtl.ImgScan ImgScan1  
      Left            =   300 
      Top             =   2790 
      _Version        =   65536 
      _ExtentX        =   847 
      _ExtentY        =   767 
      _StockProps     =   0 
      DestImageControl=   "ImgEdit1" 
   End 
   Begin ImgeditLibCtl.ImgEdit ImgEdit1  
      Height          =   5175 
      Left            =   90 
      TabIndex        =   0 
      Top             =   75 
      Width           =   7410 
      _Version        =   131073 
      _ExtentX        =   13070 
      _ExtentY        =   9128 
      _StockProps     =   96 
      ImageControl    =   "ImgEdit1" 
      BeginProperty AnnotationFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      BorderStyle     =   0 
      UndoBufferSize  =   39585792 
      OcrZoneVisibility=   -4044 
      AnnotationOcrType=   127 
   End 
   Begin VB.Line Line4  
      BorderColor     =   &H00FFFFFF& 
      X1              =   7545 
      X2              =   7545 
      Y1              =   30 
      Y2              =   5295 
   End 
   Begin VB.Line Line3  
      BorderColor     =   &H00FFFFFF& 
      X1              =   30 
      X2              =   7560 
      Y1              =   5295 
      Y2              =   5295 
   End 
   Begin VB.Line Line2  
      BorderColor     =   &H00808080& 
      X1              =   45 
      X2              =   7545 
      Y1              =   15 
      Y2              =   15 
   End 
   Begin VB.Line Line1  
      BorderColor     =   &H00808080& 
      X1              =   45 
      X2              =   45 
      Y1              =   15 
      Y2              =   5295 
   End 
   Begin AdminLibCtl.ImgAdmin ImgAdmin1  
      Left            =   360 
      Top             =   2295 
      _Version        =   131072 
      _ExtentX        =   714 
      _ExtentY        =   661 
      _StockProps     =   0 
      PrintStartPage  =   0 
      PrintEndPage    =   0 
   End 
   Begin VB.Menu MnuFile  
      Caption         =   "扫描操作(&F)" 
      Begin VB.Menu MnuScan  
         Caption         =   "扫描文件(&C) ..." 
         Shortcut        =   ^C 
      End 
      Begin VB.Menu step10  
         Caption         =   "-" 
      End 
      Begin VB.Menu MnuOpen  
         Caption         =   "打开文件(&O) ..." 
         Shortcut        =   ^O 
      End 
      Begin VB.Menu MnuSave  
         Caption         =   "保存文件(&S) ..." 
         Shortcut        =   ^S 
      End 
      Begin VB.Menu step11  
         Caption         =   "-" 
      End 
      Begin VB.Menu MnuExit  
         Caption         =   "关闭窗口(&X)" 
         Shortcut        =   ^X 
      End 
   End 
End 
Attribute VB_Name = "frmScan" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
Private Sub Form_Load() 
 
 Me.Left = Val(GetSetting(App.EXEName, "ScanForm", "Left")) 
 Me.Top = Val(GetSetting(App.EXEName, "ScanForm", "Top")) 
 
 End Sub 
 
 
Private Sub Form_Unload(Cancel As Integer) 
 
 SaveSetting App.EXEName, "ScanForm", "Left", Me.Left 
 SaveSetting App.EXEName, "ScanForm", "Top", Me.Top 
  
End Sub 
 
Private Sub MnuExit_Click() 
  
 '文件名送回 
 Unload Me 
  
End Sub 
 
Private Sub MnuOpen_Click() 
  
 ImgAdmin1.DialogTitle = "打开已经存在的图像文件" 
 ImgAdmin1.CancelError = True 
 ImgAdmin1.InitDir = App.Path + "\File" 
 On Error GoTo CancelF 
 ImgAdmin1.Image = "" 
 ImgAdmin1.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist 
 ImgAdmin1.ShowFileDialog OpenDlg 
 ImgEdit1.Image = ImgAdmin1.Image 
 ImgEdit1.Display 
 ScanFileName = ImgAdmin1.Image 
  
 Exit Sub 
CancelF: 
 If Err.Number <> 32755 Then 
    MsgBox "非法操作，不能继续操作！", vbOKOnly + vbQuestion, "不能打开" 
    Else 
    ImgAdmin1.Image = "" 
 End If 
  
End Sub 
 
Private Sub MnuSave_Click() 
 
 ImgAdmin1.DialogTitle = "保存图像文件" 
 ImgAdmin1.CancelError = True 
 ImgAdmin1.InitDir = App.Path + "\File" 
 On Error GoTo CancelF 
 ImgAdmin1.Image = "" 
 ImgAdmin1.Filter = "压缩图片(*.bmp)|*.bmp|" 
 ImgAdmin1.ShowFileDialog SaveDlg 
 If InStr(1, UCase(ImgAdmin1.Image), UCase(".bmp"), vbTextCompare) Then 
   ImgEdit1.SaveAs ImgAdmin1.Image, 3, 7, 1, 0, False 
   ScanFileName = ImgAdmin1.Image 
  Else 
   ImgEdit1.SaveAs ImgAdmin1.Image & ".bmp", 3, 7, 1, 0, False 
   ScanFileName = ImgAdmin1.Image & ".bmp" 
 End If 
  
 Exit Sub 
CancelF: 
 If Err.Number <> 32755 Then 
    MsgBox "非法操作，不能继续操作！    ", vbOKOnly + vbQuestion, "不能保存" 
    Else 
    ImgAdmin1.Image = "" 
 End If 
     
End Sub 
 
Private Sub MnuScan_Click() 
  
 ImgScan1.DestImageControl = "ImgEdit1" 
 On Error GoTo NoDevice 
 ImgScan1.StartScan 
  
 Exit Sub 
NoDevice: 
   If Err.Number = 1117 Then 
      MsgBox "扫描设备没有找到，请重新安装！", vbOKOnly + vbCritical, "没有寻找到扫描设备" 
      Exit Sub 
      Else 
      MsgBox "系统未知错误，不能继续！", vbOKOnly + vbCritical, "未知错误" 
      Exit Sub 
   End If 
End Sub