📄 frmintrdayphoto.frm
字号:
VERSION 5.00
Begin VB.Form frmIntrdayPhoto
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
ClientHeight = 10035
ClientLeft = 1680
ClientTop = 0
ClientWidth = 13530
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 10035
ScaleWidth = 13530
ShowInTaskbar = 0 'False
Begin VB.Frame famPicture
BackColor = &H00354B34&
BorderStyle = 0 'None
Height = 9135
Left = 0
TabIndex = 4
Top = 840
Width = 13455
Begin VB.Frame famChange
BackColor = &H00354B34&
Height = 855
Left = 0
TabIndex = 13
Top = 8280
Width = 13455
Begin VB.TextBox txtPageNumber
BackColor = &H00354B34&
BorderStyle = 0 'None
BeginProperty Font
Name = "华文细黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 345
Left = 5400
TabIndex = 18
Top = 300
Width = 735
End
Begin VB.CommandButton cmdHistoryNote
Caption = "历史记录"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8760
TabIndex = 17
Top = 300
Width = 1335
End
Begin VB.CommandButton cmdUpdate
Caption = "刷 新"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7320
TabIndex = 16
Top = 300
Width = 1095
End
Begin VB.CommandButton cmdNextPage
Caption = "下一页"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 11880
TabIndex = 15
Top = 300
Width = 1095
End
Begin VB.CommandButton cmdPrecedingPage
Caption = "上一页"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 10440
TabIndex = 14
Top = 300
Width = 1095
End
Begin VB.Label lblPage
BackColor = &H00354B34&
Caption = " 页"
BeginProperty Font
Name = "华文细黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 6240
TabIndex = 19
Top = 360
Width = 375
End
End
Begin VB.PictureBox pic8
Height = 3975
Left = 10120
ScaleHeight = 3915
ScaleWidth = 3195
TabIndex = 12
Top = 4220
Width = 3255
End
Begin VB.PictureBox pic7
Height = 3975
Left = 6760
ScaleHeight = 3915
ScaleWidth = 3195
TabIndex = 11
Top = 4220
Width = 3255
End
Begin VB.PictureBox pic6
Height = 3975
Left = 3400
ScaleHeight = 3915
ScaleWidth = 3195
TabIndex = 10
Top = 4220
Width = 3255
End
Begin VB.PictureBox pic5
Height = 3975
Left = 40
ScaleHeight = 3915
ScaleWidth = 3195
TabIndex = 9
Top = 4220
Width = 3255
End
Begin VB.PictureBox pic4
Height = 3975
Left = 10120
ScaleHeight = 3915
ScaleWidth = 3195
TabIndex = 8
Top = 180
Width = 3255
End
Begin VB.PictureBox pic3
Height = 3975
Left = 6760
ScaleHeight = 3915
ScaleWidth = 3195
TabIndex = 7
Top = 180
Width = 3255
End
Begin VB.PictureBox pic2
Height = 3975
Left = 3400
ScaleHeight = 3915
ScaleWidth = 3195
TabIndex = 6
Top = 180
Width = 3255
End
Begin VB.PictureBox pic1
Height = 3975
Left = 40
ScaleHeight = 3915
ScaleWidth = 3195
TabIndex = 5
Top = 180
Width = 3255
End
End
Begin VB.Frame famPageNumber
BackColor = &H00354B34&
Height = 735
Left = 0
TabIndex = 0
Top = 0
Width = 13455
Begin VB.CommandButton cmdCDofEnter
Caption = "光盘导入"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 12120
TabIndex = 3
Top = 240
Width = 1095
End
Begin VB.TextBox txtphotoNumber
BackColor = &H00354B34&
BorderStyle = 0 'None
BeginProperty Font
Name = "华文细黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 1440
TabIndex = 2
Top = 240
Width = 735
End
Begin VB.Label lblPhotoNum
Alignment = 1 'Right Justify
BackColor = &H00354B34&
Caption = "图片张数"
BeginProperty Font
Name = "华文细黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 195
TabIndex = 1
Top = 240
Width = 1140
End
End
End
Attribute VB_Name = "frmIntrdayPhoto"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'------------------------------------------------------------------------------------
'文件：frmIntrdayPhoto.frm
'作者：刘辉
'时间：2008-3-31
'说明：登记--当天图象
'------------------------------------------------------------------------------------
Option Explicit
Private Sub Form_Resize()
frmIntrdayPhoto.Top = frmMdiMain.Top + frmSubTopNew.Height
frmIntrdayPhoto.Left = frmSubLeft.Width
frmIntrdayPhoto.Width = frmMdiMain.Width - modWindowArgs.SELECT_BUTTON_WIDTH - 50
frmIntrdayPhoto.Height = frmMdiMain.Height - frmSubTopNew.Height
Dim myWidth As Integer
myWidth = frmMdiMain.Width - modWindowArgs.SELECT_BUTTON_WIDTH - 50
famPageNumber.Width = myWidth
famPicture.Width = myWidth
famChange.Width = myWidth
pic1.Width = myWidth / 4
pic2.Left = pic1.Left + pic1.Width + 50
pic2.Width = myWidth / 4
pic3.Left = pic2.Left + pic2.Width + 50
pic3.Width = myWidth / 4
pic4.Left = pic3.Left + pic3.Width + 50
pic4.Width = myWidth / 4
pic5.Width = myWidth / 4
pic6.Left = pic5.Left + pic5.Width + 50
pic6.Width = myWidth / 4
pic7.Left = pic6.Left + pic6.Width + 50
pic7.Width = myWidth / 4
pic8.Left = pic7.Left + pic7.Width + 50
pic8.Width = myWidth / 4
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -