📄 frmmain.frm
字号:
VERSION 5.00
Object = "{00140709-B1BA-11CE-ABC6-F5B2E79D9E3F}#1.0#0"; "LTRVW14N.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmMain
Caption = "Lead Tools 14.5 Test Routines"
ClientHeight = 6204
ClientLeft = 48
ClientTop = 432
ClientWidth = 11040
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6204
ScaleWidth = 11040
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Reenable Scanning"
Height = 420
Left = 6696
TabIndex = 66
Top = 5616
Width = 1404
End
Begin VB.Frame Frame6
Caption = "Scanning Operation "
Height = 708
Left = 120
TabIndex = 65
Top = 5424
Width = 5844
Begin VB.CommandButton cmdAcquire
Caption = "Start Scan"
Height = 372
Left = 4176
TabIndex = 24
Top = 216
Width = 1476
End
Begin VB.CheckBox chkShowTwainUI
Caption = "Show Twain Scanning GUI"
Height = 348
Left = 1896
TabIndex = 23
Top = 216
Width = 2364
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 6168
Top = 5448
_ExtentX = 677
_ExtentY = 677
_Version = 393216
End
Begin VB.Frame Frame3
Caption = "Scanned Image "
Height = 4884
Left = 6168
TabIndex = 56
Top = 480
Width = 4692
Begin VB.Frame Frame5
Caption = " Save Scanned Image "
Height = 1164
Left = 120
TabIndex = 61
Top = 3648
Width = 4476
Begin VB.CommandButton cmdSaveImage
Caption = "Save image"
Height = 348
Left = 3168
TabIndex = 27
Top = 648
Width = 1236
End
Begin VB.TextBox txtPath
Height = 288
Left = 528
TabIndex = 25
Text = "c:\tmpImage"
Top = 264
Width = 1860
End
Begin VB.ComboBox Combo6
Height = 288
Left = 3144
TabIndex = 26
Text = "Combo6"
Top = 264
Width = 1236
End
Begin VB.Label Label24
Caption = "Path: "
Height = 204
Left = 96
TabIndex = 63
Top = 312
Width = 420
End
Begin VB.Label Label23
Caption = "Format: "
Height = 204
Left = 2496
TabIndex = 62
Top = 312
Width = 588
End
End
Begin VB.CommandButton cmdDuplexPage1
Caption = "Page 1"
Height = 444
Left = 3120
TabIndex = 59
Top = 3216
Width = 708
End
Begin VB.CommandButton cmdDuplexPage2
Caption = "Page 2"
Height = 444
Left = 3888
TabIndex = 58
Top = 3216
Width = 708
End
Begin LTRASTERVIEWLibCtl.LEADRasterView LEADRasterView1
Height = 2796
Left = 96
OleObjectBlob = "frmMain.frx":014A
TabIndex = 57
Top = 264
Width = 4380
End
Begin LTRASTERVIEWLibCtl.LEADRasterView LEADRasterView2
Height = 2748
Left = 168
OleObjectBlob = "frmMain.frx":0360
TabIndex = 64
Top = 408
Width = 4428
End
Begin VB.Label Label22
Caption = "If you scanned a duplex image, click page 2 to see second side."
Height = 396
Left = 120
TabIndex = 60
Top = 3192
Width = 2892
End
End
Begin VB.Frame fraTranslation
Caption = " Get and Set Properties "
Height = 4884
Left = 120
TabIndex = 29
Top = 456
Width = 5844
Begin VB.CheckBox chkShowUI
Caption = "Show UI"
Height = 195
Left = 6528
TabIndex = 53
Top = 3648
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "Twain Acquire Test"
Height = 348
Left = 6528
TabIndex = 52
Top = 3888
Width = 2580
End
Begin VB.Frame Frame1
Caption = " Duplex / Feeder "
Height = 2868
Left = 72
TabIndex = 38
Top = 216
Width = 3012
Begin VB.ComboBox Combo5
Height = 288
Left = 72
TabIndex = 6
Text = "Combo4"
Top = 2472
Width = 2820
End
Begin VB.ComboBox Combo4
Height = 288
Left = 72
TabIndex = 4
Text = "Combo4"
Top = 1200
Width = 1284
End
Begin VB.TextBox txtXferPages
Alignment = 1 'Right Justify
Height = 276
Left = 2352
TabIndex = 5
Text = "-1"
Top = 1224
Width = 540
End
Begin VB.CheckBox chkAutoFeed
Caption = "AutoFeed"
Height = 255
Left = 72
TabIndex = 2
Top = 576
Width = 1455
End
Begin VB.CheckBox chkDuplexEnabled
Caption = "Duplex Enabled"
Height = 255
Left = 72
TabIndex = 1
Top = 264
Width = 1455
End
Begin VB.CheckBox chkFeederEnabled
Caption = "Feeder Enabled"
Enabled = 0 'False
Height = 255
Left = 72
TabIndex = 3
Top = 888
Width = 1455
End
Begin VB.Label Label20
Caption = "Paper Size"
Height = 300
Left = 72
TabIndex = 55
Top = 2232
Width = 924
End
Begin VB.Label Label21
Caption = "Label21"
Height = 300
Left = 1320
TabIndex = 54
Top = 2208
Width = 996
End
Begin VB.Label Label2
Caption = "Feed Pages"
Height = 228
Left = 1416
TabIndex = 42
Top = 1248
Width = 1020
End
End
Begin VB.Frame Frame2
Caption = " Image Properties "
Height = 2916
Left = 3168
TabIndex = 35
Top = 192
Width = 2580
Begin VB.HScrollBar HScroll1
Height = 228
Left = 120
Max = 100
Min = -100
TabIndex = 11
Top = 1992
Width = 2316
End
Begin VB.HScrollBar HScroll2
Height = 238
Left = 120
Max = 100
Min = -100
TabIndex = 12
Top = 2544
Width = 2316
End
Begin VB.ComboBox Combo3
Height = 288
Left = 1584
TabIndex = 10
Text = "Combo3"
Top = 1320
Width = 852
End
Begin VB.ComboBox Combo2
Height = 288
Left = 1584
TabIndex = 7
Text = "Combo2"
Top = 216
Width = 852
End
Begin VB.TextBox txtTwainRotation
Alignment = 1 'Right Justify
Enabled = 0 'False
Height = 288
Left = 1584
TabIndex = 9
Top = 936
Width = 852
End
Begin VB.TextBox txtTwainMaxPages
Alignment = 1 'Right Justify
Height = 288
Left = 1584
TabIndex = 8
Top = 576
Width = 852
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "Contrast"
Height = 192
Left = 120
TabIndex = 47
Top = 2328
Width = 588
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "Brightness"
Height = 192
Left = 120
TabIndex = 46
Top = 1776
Width = 756
End
Begin VB.Label Label3
Caption = "Label3"
Height = 192
Left = 1584
TabIndex = 45
Top = 1776
Width = 396
End
Begin VB.Label Label4
Caption = "Label3"
Height = 192
Left = 1584
TabIndex = 44
Top = 2328
Width = 396
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "TwainRes"
Height = 192
Left = 120
TabIndex = 43
Top = 1368
Width = 1248
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "Image Rotation"
Enabled = 0 'False
Height = 192
Left = 120
TabIndex = 41
Top = 984
Width = 1248
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Bits Per Pixel"
Height = 192
Left = 120
TabIndex = 37
Top = 264
Width = 1248
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Max Pages"
Height = 192
Left = 120
TabIndex = 36
Top = 624
Width = 1248
End
End
Begin VB.Frame Frame4
Caption = " Scanner Frame Image Selection Margins "
Height = 1692
Left = 96
TabIndex = 30
Top = 3120
Width = 5652
Begin VB.TextBox txtSelTop
Height = 285
Left = 4920
TabIndex = 20
Top = 585
Width = 615
End
Begin VB.TextBox txtSelLeft
Height = 285
Left = 4920
TabIndex = 19
Top = 225
Width = 615
End
Begin VB.TextBox txtSelRight
Height = 285
Left = 4920
TabIndex = 21
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -