zoukankan      html  css  js  c++  java
  • frmMain(frmMain.frm)窗体

    frmMain(frmMain.frm)窗体:有两个Timer控件

    Private Sub tmr790Blink_Timer()

    End Sub

    Private Sub tmrUpdateTime_Timer()

    Dim Elapsed As Long

    Dim nHours As Long, nMinutes As Long, nSeconds As Long

    Dim strH As String, strMin As String, strSec As String

    Dim strTimeStatus As String

    Dim MaxLen As Byte

    Info.ThisTime = GetTickCount

    Elapsed = (Info.ThisTime - Info.StartTime)

    nHours = Elapsed \ 3600000

    Elapsed = Elapsed - (nHours * 3600000)

    nMinutes = Elapsed \ 60000

    Elapsed = Elapsed - (nMinutes * 60000)

    nSeconds = Elapsed \ 1000

    strH = "": strMin = ""

    If nHours > 0 Then strH = Trim(Str(nHours)) & " h "

    If nMinutes > 0 Or nHours > 0 Then strMin = Trim(Str(nMinutes)) & " m "

    strSec = Trim(Str(nSeconds)) & " "

    strH = Space$((3 + 3) - Len(strH)) & strH

    strMin = Space$((2 + 3) - Len(strMin)) & strMin

    strSec = Space$((2 + 3) - Len(strSec)) & strSec

    strTimeStatus = strH & strMin & strSec

    MaxLen = (3 + 3) + (2 + 3) + (2 + 3)

    strTimeStatus = Space$(MaxLen - Len(strTimeStatus)) & strTimeStatus

    frmMain.Status.Panels(2).Text = strTimeStatus

    End Sub

     

     

     

    Private Sub tmrUpdateTime_Timer()

    Dim Elapsed As Long

    Dim nHours As Long, nMinutes As Long, nSeconds As Long

    Dim strH As String, strMin As String, strSec As String

    Dim strTimeStatus As String

    Dim MaxLen As Byte

    Info.ThisTime = GetTickCount

    Elapsed = (Info.ThisTime - Info.StartTime)

    nHours = Elapsed \ 3600000

    Elapsed = Elapsed - (nHours * 3600000)

    nMinutes = Elapsed \ 60000

    Elapsed = Elapsed - (nMinutes * 60000)

    nSeconds = Elapsed \ 1000

    strH = "": strMin = ""

    If nHours > 0 Then strH = Trim(Str(nHours)) & " h "

    If nMinutes > 0 Or nHours > 0 Then strMin = Trim(Str(nMinutes)) & " m "

    strSec = Trim(Str(nSeconds)) & " "

    strH = Space$((3 + 3) - Len(strH)) & strH

    strMin = Space$((2 + 3) - Len(strMin)) & strMin

    strSec = Space$((2 + 3) - Len(strSec)) & strSec

    strTimeStatus = strH & strMin & strSec

    MaxLen = (3 + 3) + (2 + 3) + (2 + 3)

    strTimeStatus = Space$(MaxLen - Len(strTimeStatus)) & strTimeStatus

    frmMain.Status.Panels(2).Text = strTimeStatus

    End Sub

  • 相关阅读:
    dubbo
    maven
    vue
    SSM框架整合
    MyBatis数据表注解开发
    MyBatis多表操作xml方式
    MyBatis映射配置文件
    Mybatis核心配置文件,传统开发和代理开发(主流)
    SpringMVC高级
    SpringMVC基础
  • 原文地址:https://www.cnblogs.com/superjt/p/2458726.html
Copyright © 2011-2022 走看看