• [VB]这个电子时钟怎么这么迟钝？

    Carneades Sun, 01 Feb 2009 16:50:33 +0000

    这是一个变色电子时钟，按键调整颜色。
    但是时钟只有在调整颜色的瞬间变化。请高手看下，究竟怎么回事。
    代码如下：
    Private Sub form1_load()
    Label1.Caption = Time
    End Sub
    Private Sub Command1_Click()
    Label1.ForeColor = vbRed
    Label1.Caption = Time
    End Sub
    Private Sub Command2_Click()
    Label1.ForeColor = vbBlue
    Label1.Caption = Time
    End Sub
    Private Sub command3_click()
    End
    End Sub

  • # 1

    等电子的氯 Sun, 01 Feb 2009 16:55:57 +0000

    [i=s] 本帖最后由 等电子的氯 于 2009-2-1 16:58 编辑
    你每次CommandX_click（X=1, 2）之后才改Label1.Caption，难怪呢。。
    用个Timer吧~
    加个Timer1，把Interval改成(0,1000]里的实数就行啦~
    Private Sub Timer1_Timer()
    Label1.Caption = Time
    End Sub

  • # 2

    碳酰氯 Sun, 01 Feb 2009 16:58:15 +0000

    对
    应该用Timer

  • # 3

    Francisco Sun, 01 Feb 2009 16:59:28 +0000

    你应该用个timer控件。

  • # 4

    Carneades Sun, 01 Feb 2009 17:05:09 +0000

    [i=s] 本帖最后由 Carneades 于 2009-2-1 17:07 编辑
    这个可以自己走起来？我今晚试试看。
    谢谢楼上诸位！

  • # 5

    等电子的氯 Sun, 01 Feb 2009 17:07:07 +0000

    当然可以自己走起来。。- -