📄 frmpreview.frm
字号:
VERSION 5.00
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmPreview
Caption = "打印预览"
ClientHeight = 6705
ClientLeft = 1050
ClientTop = 1380
ClientWidth = 10380
Icon = "frmPreview.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MinButton = 0 'False
ScaleHeight = 6705
ScaleWidth = 10380
Begin VB.PictureBox picBK
AutoRedraw = -1 'True
BackColor = &H8000000C&
Height = 5910
Left = 90
ScaleHeight = 5850
ScaleWidth = 9675
TabIndex = 7
Top = 450
Width = 9735
Begin VB.HScrollBar HScroll
Height = 285
LargeChange = 10
Left = 0
TabIndex = 9
Top = 5400
Width = 7170
End
Begin VB.PictureBox picBot
Appearance = 0 'Flat
BackColor = &H8000000A&
ForeColor = &H80000008&
Height = 330
Left = 0
ScaleHeight = 300
ScaleWidth = 7455
TabIndex = 10
Top = 5400
Visible = 0 'False
Width = 7485
End
Begin VB.VScrollBar VScroll
Height = 5955
LargeChange = 10
Left = 9315
TabIndex = 8
Top = 0
Width = 285
End
Begin VB.PictureBox picPaper
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4065
Left = 250
ScaleHeight = 4065
ScaleWidth = 7395
TabIndex = 0
Top = 250
Width = 7395
Begin MSComDlg.CommonDialog dlg
Left = 3150
Top = 2385
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
End
Begin MSComctlLib.ImageList imgWB
Left = 7335
Top = 6300
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":030A
Key = "print"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":0BE4
Key = "export"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":18BE
Key = "set"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":2598
Key = "first"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":3272
Key = "previous"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":3F4C
Key = "next"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":44E6
Key = "last"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":51C0
Key = "zoomout"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":5E9A
Key = "zoomin"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":6B74
Key = "lock"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":6F0E
Key = "key"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList imgClr
Left = 6660
Top = 6300
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":72A8
Key = "print"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":C69A
Key = "export"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":C9B4
Key = "set"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":CCCE
Key = "first"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":D268
Key = "previous"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":D802
Key = "next"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":DD9C
Key = "last"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":E336
Key = "zoomout"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":E650
Key = "zoomin"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":E96A
Key = "lock"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPreview.frx":ED04
Key = "key"
EndProperty
EndProperty
End
Begin ComCtl3.CoolBar cbTool
Align = 1 'Align Top
DragMode = 1 'Automatic
Height = 390
Left = 0
TabIndex = 1
Top = 0
Width = 10380
_ExtentX = 18309
_ExtentY = 688
FixedOrder = -1 'True
VariantHeight = 0 'False
_CBWidth = 10380
_CBHeight = 390
_Version = "6.7.8862"
Child1 = "tbPrint"
MinHeight1 = 330
Width1 = 2700
UseCoolbarColors1= 0 'False
UseCoolbarPicture1= 0 'False
NewRow1 = 0 'False
AllowVertical1 = 0 'False
Child2 = "tbTool"
MinHeight2 = 330
Width2 = 5160
NewRow2 = 0 'False
Child3 = "tbButton"
MinHeight3 = 330
Width3 = 1635
NewRow3 = 0 'False
Begin MSComctlLib.Toolbar tbButton
Height = 330
Left = 8085
Negotiate = -1 'True
TabIndex = 6
Top = 30
Width = 2205
_ExtentX = 3889
_ExtentY = 582
ButtonWidth = 1931
ButtonHeight = 582
Wrappable = 0 'False
Style = 1
TextAlignment = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 2
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助(&H)"
Key = "help"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭(&C)"
Key = "quit"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbTool
Height = 330
Left = 2895
TabIndex = 3
Top = 30
Width = 4965
_ExtentX = 8758
_ExtentY = 582
ButtonWidth = 609
ButtonHeight = 582
Style = 1
ImageList = "imgWB"
HotImageList = "imgClr"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 17
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "set"
Object.ToolTipText = "设置"
ImageKey = "set"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "first"
Object.ToolTipText = "第一页"
ImageKey = "first"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "previous"
Object.ToolTipText = "前一页"
ImageKey = "previous"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "next"
Object.ToolTipText = "下一页"
ImageKey = "next"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "last"
Object.ToolTipText = "最后一页"
ImageKey = "last"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zoomout"
Object.ToolTipText = "比例缩小"
ImageKey = "zoomout"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zoomin"
Object.ToolTipText = "比例放大"
ImageKey = "zoomin"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "lock"
Object.ToolTipText = "锁定设置(之后将不能进行设置)"
ImageKey = "lock"
EndProperty
EndProperty
Begin VB.ComboBox cmbScale
Height = 300
ItemData = "frmPreview.frx":F09E
Left = 3465
List = "frmPreview.frx":F0C0
Style = 2 'Dropdown List
TabIndex = 5
ToolTipText = "缩放比例"
Top = 0
Width = 1005
End
Begin VB.TextBox txtPage
Alignment = 2 'Center
Height = 270
Left = 1180
TabIndex = 4
Text = "1"
ToolTipText = "跳转页数"
Top = 45
Width = 645
End
End
Begin MSComctlLib.Toolbar tbPrint
Height = 330
Left = 30
TabIndex = 2
Top = 30
Width = 2640
_ExtentX = 4657
_ExtentY = 582
ButtonWidth = 2223
ButtonHeight = 582
Style = 1
TextAlignment = 1
ImageList = "imgWB"
HotImageList = "imgClr"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印(&P)..."
Key = "print"
Object.ToolTipText = "输出到打印机"
ImageKey = "print"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "导出(&E)..."
Key = "export"
Object.ToolTipText = "报表导出"
ImageKey = "export"
EndProperty
EndProperty
End
End
Begin VB.Menu mnu_pop
Caption = "弹出式菜单"
Visible = 0 'False
Begin VB.Menu mnu_print
Caption = ">> 输出到打印机..."
End
Begin VB.Menu ln1
Caption = "-"
End
Begin VB.Menu mnu_zoomin
Caption = "＋ 放大"
End
Begin VB.Menu mnu_zoomout
Caption = "－ 缩小"
End
Begin VB.Menu mnu_zoomactual
Caption = " 实际大小"
End
Begin VB.Menu mnu_zoombest
Caption = " 适合大小"
End
Begin VB.Menu ln2
Caption = "-"
End
Begin VB.Menu mnu_info
Caption = " 信息查看"
End
Begin VB.Menu ln3
Caption = "-"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -