tech.ctl
来自「这是一个实际的工程中所用的源程序」· CTL 代码 · 共 614 行 · 第 1/2 页
CTL
614 行
VERSION 5.00
Begin VB.UserControl Tech
Appearance = 0 'Flat
BackColor = &H80000001&
BorderStyle = 1 'Fixed Single
ClientHeight = 315
ClientLeft = 0
ClientTop = 0
ClientWidth = 10155
LockControls = -1 'True
ScaleHeight = 315
ScaleWidth = 10155
ToolboxBitmap = "Tech.ctx":0000
Begin VB.TextBox txtF
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "欠或超"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 4
Left = 5235
Locked = -1 'True
TabIndex = 24
Top = 0
Width = 1170
End
Begin VB.TextBox txtF
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "欠或超"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 3
Left = 2910
Locked = -1 'True
TabIndex = 17
Top = 0
Width = 1170
End
Begin VB.TextBox txtF
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "欠或超"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 8
Left = 6405
Locked = -1 'True
TabIndex = 16
Top = 0
Width = 1170
End
Begin VB.TextBox txtF
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
DataField = "发货单位"
Height = 285
Index = 7
Left = 570
MaxLength = 30
TabIndex = 12
TabStop = 0 'False
Top = 3360
Width = 1740
End
Begin VB.TextBox txtF
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "欠或超"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 9
Left = 4080
Locked = -1 'True
TabIndex = 5
Top = 0
Width = 1170
End
Begin VB.TextBox txtF
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "备注"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 6
Left = 1890
Locked = -1 'True
MaxLength = 255
TabIndex = 4
TabStop = 0 'False
Top = 0
Width = 1020
End
Begin VB.TextBox txtF
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "计量吨数"
Height = 285
Index = 2
Left = 540
Locked = -1 'True
TabIndex = 3
Top = 1770
Width = 1170
End
Begin VB.TextBox txtF
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
DataField = "配载吨数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 9330
TabIndex = 2
TabStop = 0 'False
Top = 0
Width = 810
End
Begin VB.TextBox txtF
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
DataField = "发货单位"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 5
Left = 720
Locked = -1 'True
MaxLength = 30
TabIndex = 1
TabStop = 0 'False
Top = 0
Width = 1170
End
Begin VB.TextBox txtF
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
DataField = "船队名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 7575
MaxLength = 30
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 1755
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "皮带"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 12
Left = 720
TabIndex = 23
Top = 960
Width = 480
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "T"
ForeColor = &H8000000E&
Height = 180
Index = 11
Left = 2820
TabIndex = 22
Top = 2850
Width = 90
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "T"
ForeColor = &H8000000E&
Height = 180
Index = 8
Left = 2820
TabIndex = 21
Top = 3210
Width = 90
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "T/h"
ForeColor = &H8000000E&
Height = 180
Index = 7
Left = 2790
TabIndex = 20
Top = 3570
Width = 270
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设定"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 5
Left = 3075
TabIndex = 19
Top = 960
Width = 480
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "流量"
BeginProperty Font
Name = "宋体"
Size = 10.5
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?