📄 frmstatics.frm
字号:
BackColor = &H8000000C&
Caption = "上次总加工时间："
ForeColor = &H00C0C0C0&
Height = 180
Left = 480
TabIndex = 18
Top = 2160
Width = 1440
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "小时"
ForeColor = &H00C0C0C0&
Height = 180
Index = 3
Left = 2880
TabIndex = 17
Top = 2160
Width = 360
End
Begin VB.Label Label17
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "分"
ForeColor = &H00C0C0C0&
Height = 180
Index = 3
Left = 3720
TabIndex = 16
Top = 2160
Width = 180
End
Begin VB.Label Label18
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "秒"
ForeColor = &H00C0C0C0&
Height = 180
Index = 3
Left = 4320
TabIndex = 15
Top = 2160
Width = 180
End
Begin VB.Label lblAccumulationTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 0
Left = 2640
TabIndex = 14
Top = 1080
Width = 90
End
Begin VB.Label lblAccumulationTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 1
Left = 3480
TabIndex = 13
Top = 1080
Width = 90
End
Begin VB.Label lblAccumulationTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 2
Left = 4080
TabIndex = 12
Top = 1080
Width = 90
End
Begin VB.Label lblAverageTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 0
Left = 2640
TabIndex = 11
Top = 1440
Width = 90
End
Begin VB.Label lblAverageTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 1
Left = 3480
TabIndex = 10
Top = 1440
Width = 90
End
Begin VB.Label lblAverageTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 2
Left = 4080
TabIndex = 9
Top = 1440
Width = 90
End
Begin VB.Label lblTotalTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 0
Left = 2640
TabIndex = 8
Top = 1800
Width = 90
End
Begin VB.Label lblTotalTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 1
Left = 3480
TabIndex = 7
Top = 1800
Width = 90
End
Begin VB.Label lblTotalTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 2
Left = 4080
TabIndex = 6
Top = 1800
Width = 90
End
Begin VB.Label lblLastTotalTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 0
Left = 2640
TabIndex = 5
Top = 2160
Width = 90
End
Begin VB.Label lblLastTotalTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 1
Left = 3480
TabIndex = 4
Top = 2160
Width = 90
End
Begin VB.Label lblLastTotalTime
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "0"
ForeColor = &H00E0E0E0&
Height = 180
Index = 2
Left = 4080
TabIndex = 3
Top = 2160
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "%"
ForeColor = &H00C0C0C0&
Height = 180
Index = 0
Left = 1920
TabIndex = 2
Top = 720
Width = 90
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H8000000C&
Caption = "%"
ForeColor = &H00C0C0C0&
Height = 180
Index = 1
Left = 4800
TabIndex = 1
Top = 720
Width = 90
End
End
End
Attribute VB_Name = "frmStatics"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
Unload frmStatics
End Sub
Private Sub Form_Load()
Dim i As Long
Processed = lblProcessed.Caption
FinishRate = lblFinishRate.Caption
FailingRate = lblFailingRate.Caption
For i = 0 To 2
lblAccumulationTime(i).Caption = AccumulationTime(i)
lblAverageTime(i).Caption = AverageTime(i)
lblTotalTime(i).Caption = TotalTime(i)
lblLastTotalTime(i).Caption = LastTotalTime(i)
Next i
End Sub
Private Sub Timer1_Timer()
lblProcessDate.Caption = Now '日期刷新
End Sub
'#########################################################################
'读取统计框参数
Private Function GetFrameStatisticParam() As Long
Dim i As Long
DXFFilePath = lblDXFFilePath.Caption
ProcessDate = lblProcessDate.Caption
Processed = lblProcessed.Caption
FinishRate = lblFinishRate.Caption
FailingRate = lblFailingRate.Caption
For i = 0 To 2
AccumulationTime(i) = lblAccumulationTime(i).Caption
AverageTime(i) = lblAverageTime(i).Caption
TotalTime(i) = lblTotalTime(i).Caption
LastTotalTime(i) = lblLastTotalTime(i).Caption
Next i
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -