📄 frmmultipgpreview_bmpjpg3.frm
字号:
Height = 300
Index = 1
Left = 585
TabIndex = 5
Top = 1065
Width = 1965
End
Begin VB.Image optPrint
Appearance = 0 'Flat
Height = 225
Index = 1
Left = 270
Picture = "FRMMUL~3.frx":1D46
Top = 1035
Width = 300
End
Begin VB.Image optPrint
Appearance = 0 'Flat
Height = 225
Index = 2
Left = 270
Picture = "FRMMUL~3.frx":1DE3
Top = 1335
Width = 300
End
Begin VB.Image optPrint
Appearance = 0 'Flat
Height = 225
Index = 3
Left = 270
Picture = "FRMMUL~3.frx":1E80
Top = 1665
Width = 300
End
Begin VB.Label optText
BackStyle = 0 'Transparent
Caption = "Print All"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000014&
Height = 300
Index = 3
Left = 585
TabIndex = 9
Top = 1695
Width = 1965
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "To"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 2175
TabIndex = 16
Top = 1380
Width = 345
End
Begin VB.Label lblPrintingPg
Alignment = 2 'Center
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 210
Left = 255
TabIndex = 15
Top = 2250
Visible = 0 'False
Width = 2670
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Print Options"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000F&
Height = 315
Left = 135
TabIndex = 13
Top = 30
Width = 2865
End
Begin VB.Shape Shape1
BorderColor = &H8000000F&
Height = 2535
Left = 30
Top = 30
Width = 3090
End
Begin VB.Label optText
BackStyle = 0 'Transparent
Caption = "Print Pages"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000014&
Height = 300
Index = 2
Left = 585
TabIndex = 6
Top = 1365
Width = 1965
End
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 4845
Left = 0
ScaleHeight = 321
ScaleMode = 3 'Pixel
ScaleWidth = 249
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 3765
End
Begin VB.PictureBox picGetFolder
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 4440
Left = 1245
ScaleHeight = 4410
ScaleWidth = 6375
TabIndex = 20
Top = 615
Visible = 0 'False
Width = 6405
Begin VB.OptionButton OptFileType
Caption = "GIF"
Height = 240
Index = 1
Left = 1170
TabIndex = 29
ToolTipText = "Save Pages as GIF"
Top = 4065
Value = -1 'True
Width = 720
End
Begin VB.OptionButton OptFileType
Caption = "JPG"
Height = 240
Index = 0
Left = 210
TabIndex = 28
ToolTipText = "Save Pages as JPG"
Top = 4065
Width = 720
End
Begin VB.DriveListBox Drive1
Height = 315
Left = 1530
TabIndex = 26
Top = 45
Width = 3930
End
Begin VB.DirListBox Dir1
Height = 3465
Left = 30
TabIndex = 25
Top = 450
Width = 6315
End
Begin VB.CommandButton cmdNewFolder
Height = 345
Left = 5955
MaskColor = &H00FFFFFF&
Picture = "FRMMUL~3.frx":1F1D
Style = 1 'Graphical
TabIndex = 24
ToolTipText = "New Folder"
Top = 30
UseMaskColor = -1 'True
Width = 375
End
Begin VB.CommandButton cmdUpOne
Height = 345
Left = 5520
MaskColor = &H00FFFFFF&
Picture = "FRMMUL~3.frx":226B
Style = 1 'Graphical
TabIndex = 23
ToolTipText = "Back Up"
Top = 30
UseMaskColor = -1 'True
Width = 375
End
Begin VB.CommandButton cmdOpen
Caption = "Ok"
Height = 375
Left = 4830
TabIndex = 22
Top = 3975
Width = 1470
End
Begin VB.CommandButton cmdQuit
Caption = "Cancel"
Height = 375
Left = 3255
TabIndex = 21
Top = 3975
Width = 1470
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = " Select a Directory: "
Height = 195
Left = 75
TabIndex = 27
Top = 90
Width = 1395
End
End
Begin VB.Image imgFit
Height = 240
Index = 0
Left = 0
Picture = "FRMMUL~3.frx":251D
Top = 5370
Visible = 0 'False
Width = 240
End
Begin VB.Image imgFit
Height = 240
Index = 1
Left = 360
Picture = "FRMMUL~3.frx":2AA7
Top = 5385
Visible = 0 'False
Width = 240
End
Begin VB.Image optArt
Appearance = 0 'Flat
Height = 225
Index = 1
Left = 0
Picture = "FRMMUL~3.frx":3031
Top = 4860
Visible = 0 'False
Width = 300
End
Begin VB.Image optArt
Appearance = 0 'Flat
Height = 225
Index = 0
Left = 555
Picture = "FRMMUL~3.frx":30DE
Top = 4875
Visible = 0 'False
Width = 300
End
End
Attribute VB_Name = "frmMultiPgPreview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'/*************************************/
'/* Author: Morgan Haueisen
'/* morganh@hartcom.net
'/* Copyright (c) 1999-2003
'/*************************************/
'Legal:
' This is intended for and was uploaded to www.planetsourcecode.com
'
' Redistribution of this code, whole or in part, as source code or in binary form, alone or
' as part of a larger distribution or product, is forbidden for any commercial or for-profit
' use without the author's explicit written permission.
'
' Redistribution of this code, as source code or in binary form, with or without
' modification, is permitted provided that the following conditions are met:
'
' Redistributions of source code must include this list of conditions, and the following
' acknowledgment:
'
' This code was developed by Morgan Haueisen. <morganh@hartcom.net>
' Source code, written in Visual Basic, is freely available for non-commercial,
' non-profit use at www.planetsourcecode.com.
'
' Redistributions in binary form, as part of a larger project, must include the above
' acknowledgment in the end-user documentation. Alternatively, the above acknowledgment
' may appear in the software itself, if and wherever such third-party acknowledgments
' normally appear.
Option Explicit
'/* Used for Manifest files (Win XP)
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
'/* Copy BMP to JPG
Private WithEvents gdip As cGdiPlus
Attribute gdip.VB_VarHelpID = -1
'Private Declare Function DIBmpToJpg Lib "DIjpg.dll" (ByVal SrcPath As String, ByVal DestPath As String, ByVal quality As Long, ByVal progressive As Long) As Long
Public PageNumber As Integer
Private ViewPage As Integer
Private TempDir As String
Private OptionV As Integer
Private FitToPage As Boolean
'Private MousePageChange As Byte
Private Type PanState
x As Long
y As Long
End Type
Dim PanSet As PanState
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVersionInfo) As Long
Private Declare Function CreateDirectory Lib "kernel32.dll" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Type OSVersionInfo
OSVSize As Long
dwVerMajor As Long
dwVerMinor As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -