📄 frmview.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmView
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Dialog
Caption = "样品浏览状态>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 程序设计：东化科技 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
ClientHeight = 7275
ClientLeft = 45
ClientTop = 330
ClientWidth = 9795
ControlBox = 0 'False
Icon = "frmView.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7275
ScaleWidth = 9795
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin ComctlLib.Toolbar V_Toolbar
Height = 630
Left = 90
TabIndex = 0
Top = 60
Width = 9780
_ExtentX = 17251
_ExtentY = 1111
ButtonWidth = 1032
ButtonHeight = 1005
ImageList = "ToolImage"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 7
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "AutoDisplay"
Object.ToolTipText = "自动浏览"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Previous"
Object.ToolTipText = "上一样品"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Next"
Object.ToolTipText = "下一样品"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Print"
Object.ToolTipText = "打印样品信息"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "About"
Object.ToolTipText = "关于样品浏览"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 4
MixedState = -1 'True
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Exit"
Object.ToolTipText = "退出浏览"
Object.Tag = ""
ImageIndex = 6
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog PrintDialog
Left = 15
Top = 315
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox PartView
AutoRedraw = -1 'True
Height = 6165
Left = 15
ScaleHeight = 6105
ScaleWidth = 9630
TabIndex = 2
Top = 690
Width = 9690
Begin VB.Timer AutoTimer
Enabled = 0 'False
Interval = 1000
Left = 120
Top = 180
End
Begin VB.Frame Frame2
Height = 555
Left = 5670
TabIndex = 8
Top = 5400
Width = 3855
Begin VB.CheckBox Check2
BackColor = &H00C0C0C0&
Caption = "自动大小"
Enabled = 0 'False
ForeColor = &H00404000&
Height = 240
Left = 300
TabIndex = 9
Top = 225
Width = 1065
End
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
Height = 5880
Left = 165
ScaleHeight = 5820
ScaleWidth = 5235
TabIndex = 4
Top = 135
Width = 5295
Begin VB.CommandButton Command3
Caption = "."
Height = 285
Left = 4980
TabIndex = 7
Top = 5550
Width = 270
End
Begin VB.VScrollBar VScroll1
Height = 5580
LargeChange = 1000
Left = 4965
SmallChange = 100
TabIndex = 6
Top = -15
Width = 255
End
Begin VB.HScrollBar HScroll1
Height = 255
LargeChange = 1000
Left = -15
SmallChange = 100
TabIndex = 5
Top = 5565
Width = 5010
End
Begin VB.Image DisplayPicture
Height = 5600
Left = -15
MousePointer = 99 'Custom
Top = -15
Width = 4995
End
End
Begin VB.Frame Frame1
Height = 5280
Left = 5655
TabIndex = 3
Top = 75
Width = 3870
Begin VB.Line Line2
BorderColor = &H00FFFFFF&
X1 = 30
X2 = 3840
Y1 = 900
Y2 = 900
End
Begin VB.Line Line1
X1 = 30
X2 = 3840
Y1 = 885
Y2 = 885
End
Begin VB.Label Info
BorderStyle = 1 'Fixed Single
Height = 270
Index = 9
Left = 0
TabIndex = 29
Top = -285
Visible = 0 'False
Width = 2370
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 270
Index = 8
Left = 1140
TabIndex = 28
Top = 3795
Width = 2640
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 270
Index = 7
Left = 1140
TabIndex = 27
Top = 3465
Width = 2640
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 270
Index = 6
Left = 1140
TabIndex = 26
Top = 3135
Width = 2640
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 270
Index = 5
Left = 1140
TabIndex = 25
Top = 2790
Width = 2640
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 270
Index = 4
Left = 1140
TabIndex = 24
Top = 2445
Width = 2640
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 270
Index = 3
Left = 1140
TabIndex = 23
Top = 2070
Width = 2640
End
Begin VB.Label Info
BackColor = &H00C0C0C0&
ForeColor = &H00C00000&
Height = 270
Index = 2
Left = 1140
TabIndex = 22
Top = 1710
Width = 2640
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "它价："
Height = 180
Index = 8
Left = 210
TabIndex = 21
Top = 3810
Width = 780
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "批价："
Height = 180
Index = 7
Left = 210
TabIndex = 20
Top = 3150
Width = 780
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "售价："
Height = 180
Index = 6
Left = 210
TabIndex = 19
Top = 3480
Width = 780
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "其它："
Height = 180
Index = 5
Left = 210
TabIndex = 18
Top = 2790
Width = 780
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "风格："
Height = 180
Index = 4
Left = 210
TabIndex = 17
Top = 2430
Width = 780
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "尺码："
Height = 180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -