form1.frm
来自「VB与欧姆龙PLC通过RS-232串口通讯 的上位机程序」· FRM 代码 · 共 1,852 行 · 第 1/5 页
FRM
1,852 行
FillStyle = 0 'Solid
Height = 135
Index = 11
Left = 6840
Shape = 3 'Circle
Top = 6000
Width = 135
End
Begin VB.Shape shpcw
BorderColor = &H0000FFFF&
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 9
Left = 8280
Shape = 3 'Circle
Top = 6000
Width = 135
End
Begin VB.Shape shpcw
BorderColor = &H0000FFFF&
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 7
Left = 9840
Shape = 3 'Circle
Top = 6000
Width = 135
End
Begin VB.Shape shpcw
BorderColor = &H0000FFFF&
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 5
Left = 11400
Shape = 3 'Circle
Top = 6000
Width = 135
End
Begin VB.Shape shpcw
BorderColor = &H0000FFFF&
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 3
Left = 12960
Shape = 3 'Circle
Top = 6000
Width = 135
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H000000FF&
BorderStyle = 1 'Fixed Single
Caption = "设定值"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Index = 17
Left = 12525
TabIndex = 50
Top = 960
Width = 1005
End
Begin VB.Label lblxs
Alignment = 2 'Center
BackColor = &H0000FF00&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Index = 17
Left = 12480
TabIndex = 49
Top = 1320
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H000000FF&
BorderStyle = 1 'Fixed Single
Caption = "下料量"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Index = 16
Left = 12525
TabIndex = 48
Top = 1800
Width = 1005
End
Begin VB.Label lblxs
Alignment = 2 'Center
BackColor = &H0000FF00&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Index = 16
Left = 12480
TabIndex = 47
Top = 2160
Width = 1095
End
Begin VB.Label lblch
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "9#"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 240
Index = 8
Left = 12840
TabIndex = 46
Top = 2760
Width = 315
End
Begin VB.Shape shpcw
BorderColor = &H0000FFFF&
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 16
Left = 12960
Shape = 3 'Circle
Top = 3240
Width = 135
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H000000FF&
BorderStyle = 1 'Fixed Single
Caption = "设定值"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Index = 15
Left = 10965
TabIndex = 45
Top = 960
Width = 1005
End
Begin VB.Label lblxs
Alignment = 2 'Center
BackColor = &H0000FF00&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Index = 15
Left = 10920
TabIndex = 44
Top = 1320
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H000000FF&
BorderStyle = 1 'Fixed Single
Caption = "下料量"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Index = 14
Left = 10965
TabIndex = 43
Top = 1800
Width = 1005
End
Begin VB.Label lblxs
Alignment = 2 'Center
BackColor = &H0000FF00&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Index = 14
Left = 10920
TabIndex = 42
Top = 2160
Width = 1095
End
Begin VB.Label lblch
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00E0E0E0&
BackStyle = 0 'Transparent
Caption = "8#"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 240
Index = 7
Left = 11280
TabIndex = 41
Top = 2760
Width = 315
End
Begin VB.Shape shpcw
BorderColor = &H0000FFFF&
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 135
Index = 15
Left = 11400
Shape = 3 'Circle
Top = 3240
Width = 135
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H000000FF&
BorderStyle = 1 'Fixed Single
Caption = "设定值"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Index = 13
Left = 9405
TabIndex = 40
Top = 960
Width = 1005
End
Begin VB.Label lblxs
Alignment = 2 'Center
BackColor = &H0000FF00&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 300
Index = 13
Left = 9360
TabIndex = 39
Top = 1320
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H000000FF&
BorderStyle = 1 'Fixed Single
Caption = "下料量"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 270
Index = 12
Left = 9405
TabIndex = 38
Top = 1800
Width = 1005
End
Begin VB.Label lblxs
Alignment = 2 'Center
BackColor = &H0000FF00&
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?