7,785
社区成员




Private Sub Timer1_Timer()
If lbltime.Caption <> CStr(Time) Then
FrmRun.Caption = "运行图" & Space(100) & Date$ & Space(6) & Time$
frmMain.Caption = "串口接收发送" & Space(60) & Date$ & Space(6) & Time$ '在内存中加载通信窗体
miao = Right$(Time$, 2)
fen = Right$(Left$(Time$, 5), 2)
mmm = Val(fen * 60) + Val(miao) '每小时卸载加载frmMdb
If miao = "15" Or miao = "45" Then
Unload frmMain '卸载通信窗体
End If
End If
End If