📄 frmpreview.frm
字号:
VERSION 5.00
Begin VB.Form frmPreview
Caption = "打印预览窗口"
ClientHeight = 7755
ClientLeft = 60
ClientTop = 345
ClientWidth = 7725
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmPreview.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 7755
ScaleWidth = 7725
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdDown
Caption = "下一页>>"
Height = 375
Left = 3360
TabIndex = 18
Top = 105
Width = 1080
End
Begin VB.CommandButton cmdUp
Caption = "<<上一页"
Height = 375
Left = 2205
TabIndex = 17
Top = 105
Width = 1080
End
Begin VB.TextBox txtCurPage
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 465
Locked = -1 'True
TabIndex = 14
Text = "1"
Top = 135
Width = 315
End
Begin VB.TextBox txtNumber
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1500
Locked = -1 'True
TabIndex = 13
Text = "1"
Top = 135
Width = 315
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Height = 405
Left = 6450
Picture = "frmPreview.frx":27A2
Style = 1 'Graphical
TabIndex = 10
Top = 105
Width = 1185
End
Begin VB.CommandButton cmdPrint
Height = 405
Left = 5190
Picture = "frmPreview.frx":2BFB
Style = 1 'Graphical
TabIndex = 9
Top = 105
Width = 1185
End
Begin VB.ComboBox cmbSize
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "frmPreview.frx":3075
Left = 1080
List = "frmPreview.frx":3082
Style = 2 'Dropdown List
TabIndex = 8
Top = 600
Visible = 0 'False
Width = 1455
End
Begin VB.PictureBox picPrint
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 9075
Left = -4830
ScaleHeight = 159.015
ScaleMode = 6 'Millimeter
ScaleWidth = 207.434
TabIndex = 6
Top = -9135
Visible = 0 'False
Width = 11820
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 6975
Left = 135
ScaleHeight = 6975
ScaleWidth = 7425
TabIndex = 2
Top = 630
Width = 7425
Begin VB.CommandButton Command3
Height = 270
Left = 7140
TabIndex = 3
Top = 6720
Visible = 0 'False
Width = 300
End
Begin VB.VScrollBar VScroll1
Height = 6735
LargeChange = 1000
Left = 7140
SmallChange = 100
TabIndex = 5
Top = 0
Visible = 0 'False
Width = 300
End
Begin VB.HScrollBar HScroll1
Height = 285
LargeChange = 1000
Left = 0
SmallChange = 100
TabIndex = 4
Top = 6705
Visible = 0 'False
Width = 7155
End
Begin VB.Image DisplayPicture
Height = 6945
Left = 0
MousePointer = 99 'Custom
Stretch = -1 'True
Top = 15
Width = 7425
End
End
Begin VB.PictureBox picDown
AutoSize = -1 'True
Height = 540
Left = 3975
Picture = "frmPreview.frx":3098
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 1
Top = 555
Visible = 0 'False
Width = 540
End
Begin VB.PictureBox picUP
AutoSize = -1 'True
Height = 540
Left = 4485
Picture = "frmPreview.frx":33A2
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 0
Top = 735
Visible = 0 'False
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "第"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 4
Left = 180
TabIndex = 16
Top = 180
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "页"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 3
Left = 855
TabIndex = 15
Top = 180
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "页"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 2
Left = 1890
TabIndex = 12
Top = 180
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "共"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 1215
TabIndex = 11
Top = 180
Width = 210
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "显示比例："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 150
TabIndex = 7
Top = 675
Visible = 0 'False
Width = 1050
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 3
X1 = 90
X2 = 7620
Y1 = 7680
Y2 = 7680
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 2
X1 = 90
X2 = 7620
Y1 = 7665
Y2 = 7665
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
Index = 1
X1 = 105
X2 = 7635
Y1 = 600
Y2 = 600
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 105
X2 = 7635
Y1 = 585
Y2 = 585
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 1
X1 = 105
X2 = 105
Y1 = 585
Y2 = 7665
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 1
X1 = 90
X2 = 90
Y1 = 600
Y2 = 7665
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
Index = 0
X1 = 7635
X2 = 7635
Y1 = 600
Y2 = 7680
End
Begin VB.Line Line2
BorderColor = &H00808080&
Index = 2
X1 = 7620
X2 = 7620
Y1 = 585
Y2 = 7650
End
Begin VB.Line Line6
BorderColor = &H00FFFFFF&
X1 = 105
X2 = 7605
Y1 = 7635
Y2 = 7635
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 7590
X2 = 7590
Y1 = 615
Y2 = 7650
End
Begin VB.Line Line8
BorderColor = &H00808080&
X1 = 195
X2 = 195
Y1 = 1290
Y2 = 4950
End
Begin VB.Line Line9
BorderColor = &H00808080&
X1 = 195
X2 = 3135
Y1 = 1290
Y2 = 1290
End
End
Attribute VB_Name = "frmPreview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Sx As Long, Sy As Long, Mx As Long, My As Long, LB As Boolean
Dim curPage As Long, curPages As Long '当前页与所有页
Dim curConsumeAmo As Currency '消费金额
Private Sub Check1_Click()
On Error Resume Next
If Check1.Value = 1 Then
SelectFile.Width = 9555
Else
SelectFile.Width = 6225
DisplayPicture.Picture = LoadPicture()
Exit Sub
End If
If Text1.Text <> "" Then
SelectFile.MousePointer = 11
On Error GoTo NOp
If Check2.Value = 1 Then
DisplayPicture.Stretch = False
Else
DisplayPicture.Height = 3645
DisplayPicture.Width = 2925
DisplayPicture.Stretch = True
End If
DisplayPicture.Picture = LoadPicture(Text1.Text)
'Large photo display
If Check2.Value = 1 Then
HScroll1.Value = 0
VScroll1.Value = 0
HScroll1.Max = DisplayPicture.Width - Picture1.Width + 280
VScroll1.Max = DisplayPicture.Height - Picture1.Height + 280
VScroll1.Visible = Picture1.Height < DisplayPicture.Height
HScroll1.Visible = Picture1.Width < DisplayPicture.Width
If HScroll1.Visible Or VScroll1.Visible Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -