📄 frmphotoprintformat.frm
字号:
VERSION 5.00
Begin VB.Form frmPhotoPrintFormat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "胶片打印设置"
ClientHeight = 3885
ClientLeft = 45
ClientTop = 330
ClientWidth = 8655
Icon = "frmPhotoPrintFormat.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3885
ScaleWidth = 8655
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox picFilmTypeset
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 2745
Index = 3
Left = 4800
Picture = "frmPhotoPrintFormat.frx":6852
ScaleHeight = 2685
ScaleWidth = 1440
TabIndex = 9
Top = 120
Width = 1500
End
Begin VB.PictureBox picFilmSetHorizontal
BackColor = &H00000000&
Height = 1455
Left = 6360
Picture = "frmPhotoPrintFormat.frx":13554
ScaleHeight = 1395
ScaleWidth = 2235
TabIndex = 8
Top = 720
Width = 2295
End
Begin VB.PictureBox picFilmTypeset
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 2745
Index = 2
Left = 3240
Picture = "frmPhotoPrintFormat.frx":1DB3E
ScaleHeight = 2685
ScaleWidth = 1440
TabIndex = 7
Top = 120
Width = 1500
End
Begin VB.PictureBox picFilmTypeset
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 2745
Index = 1
Left = 1680
Picture = "frmPhotoPrintFormat.frx":2A840
ScaleHeight = 2685
ScaleWidth = 1440
TabIndex = 6
Top = 120
Width = 1500
End
Begin VB.PictureBox picFilmTypeset
BackColor = &H00FFFFFF&
Height = 2745
Index = 0
Left = 120
Picture = "frmPhotoPrintFormat.frx":3D31A
ScaleHeight = 2685
ScaleWidth = 1440
TabIndex = 5
Top = 120
Width = 1500
End
Begin VB.Frame frmFilmSize
BackColor = &H00404000&
BorderStyle = 0 'None
Caption = "胶片尺寸"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 975
Left = 120
TabIndex = 0
Top = 2880
Width = 8535
Begin VB.OptionButton optFilmSize
BackColor = &H00404000&
Caption = "14INX17IN"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 3
Left = 6240
TabIndex = 4
Top = 360
Width = 1455
End
Begin VB.OptionButton optFilmSize
BackColor = &H00404000&
Caption = "10INX14IN"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 2
Left = 4200
TabIndex = 3
Top = 360
Width = 1695
End
Begin VB.OptionButton optFilmSize
BackColor = &H00404000&
Caption = "10INX11IN"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 1
Left = 2280
TabIndex = 2
Top = 360
Width = 1575
End
Begin VB.OptionButton optFilmSize
BackColor = &H00404000&
Caption = "8INX10IN"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Index = 0
Left = 240
TabIndex = 1
Top = 360
Width = 1455
End
End
End
Attribute VB_Name = "frmPhotoPrintFormat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'----------------------------------------------------------------------------------------------------
'文件：frmPhotoPrintFormat.frm
'作者：冷家锋
'时间：2008-5-6
'说明：胶片打印格式设置
'----------------------------------------------------------------------------------------------------
Option Explicit
Dim strFilmLayout(4) As String
Private Sub Form_Load()
On Error GoTo ErrHandler
'Me.BackColor = mHLSRGB.COLORSET
strFilmLayout(0) = "1 1"
strFilmLayout(1) = "1 2"
strFilmLayout(2) = "2 2"
'横向
strFilmLayout(3) = "2 1"
FILM_LAYOUT = strFilmLayout(0)
Exit Sub
ErrHandler:
End Sub
'打印设置----横向
Private Sub picFilmSetHorizontal_Click()
On Error GoTo ErrHandler
FILM_DIRECTION = 0 '横向
'FILM_LAYOUT = strFilmLayout(4) '2X1
FILM_LAYOUT = strFilmLayout(0) '2X1
Dim i As Integer
For i = 0 To Me.optFilmSize.Count
If Me.optFilmSize(i).Value = True Then
FILM_SIZE = Me.optFilmSize(i).Caption
Exit For
End If
Next
FILM_COUNT = 2
Me.Hide
Unload Me
frmPhotoPrint.FILM_HORIZONTAL_COUNT = 2
frmPhotoPrint.FILM_VERTICAL_COUNT = 1
'frmPhotoPrint.Show
'Unload frmPhotoPrint
frmPhotoPrint.SetFocus
frmPhotoPrint.picPreview.Cls
frmPhotoPrint.picSave.Cls
'胶片排版 ----显示调整
frmPhotoPrint.frmPrintPreview.Visible = True
Call frmPhotoPrint.InitLeftSize
Call frmPhotoPrint.InitRightSize
Call frmPhotoPrint.AdjustPicPreview
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation, "提示"
End Sub
'打印设置----纵向
Private Sub picFilmTypeset_Click(Index As Integer)
On Error GoTo ErrHandler
FILM_DIRECTION = 1
'FILM_LAYOUT = strFilmLayout(Index)
FILM_LAYOUT = strFilmLayout(0)
Dim i As Integer
For i = 0 To Me.optFilmSize.Count
If Me.optFilmSize(i).Value = True Then
FILM_SIZE = Me.optFilmSize(i).Caption
Exit For
End If
Next
If Index = 0 Then
FILM_COUNT = 1
frmPhotoPrint.FILM_HORIZONTAL_COUNT = 1
frmPhotoPrint.FILM_VERTICAL_COUNT = 1
ElseIf Index = 1 Then
frmPhotoPrint.FILM_HORIZONTAL_COUNT = 1
frmPhotoPrint.FILM_VERTICAL_COUNT = 2
FILM_COUNT = 2
ElseIf Index = 2 Then
frmPhotoPrint.FILM_HORIZONTAL_COUNT = 2
frmPhotoPrint.FILM_VERTICAL_COUNT = 2
FILM_COUNT = 4
ElseIf Index = 3 Then
frmPhotoPrint.FILM_HORIZONTAL_COUNT = 2
frmPhotoPrint.FILM_VERTICAL_COUNT = 3
FILM_COUNT = 6
End If
Unload Me
frmPhotoPrint.SetFocus
frmPhotoPrint.picPreview.Cls
frmPhotoPrint.picSave.Cls
'胶片排版 ----显示调整
frmPhotoPrint.frmPrintPreview.Visible = True
Call frmPhotoPrint.InitLeftSize
Call frmPhotoPrint.InitRightSize
Call frmPhotoPrint.AdjustPicPreview
Exit Sub
ErrHandler:
MsgBox Err.Description, vbExclamation, "提示"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -