我加入了一个时间控件TIMER1 一个LABEL1 我想打开这个FORM就可以看到系统时间。
我的代码是这么写的
Private Sub Label1_click()
Label1 = Time
End Sub
写的时候我就注意到了这是个CLICK事件,运行的时候果然是要点击一下才能显示出来。
想请问大家,如何编写?

解决方案 »

  1.   

    我看楼主的意思似乎有些误会:
    timer控件是一个定时器,并不是必须有timer控件才能看时间。
    你可以写在 timer1_timer()事件里面做个会走的时钟。
      

  2.   

    哦,我的意思就是,我想让我的FORM一打开就能在LABEL 里头显示出当前的时间,而且能走的。
    不需要点击按钮去触发事件然后再来显示时间。
    您们能不能给我完整的一段代码呢?
      

  3.   

    我刚刚用了下2楼的朋友的那个方法。
    这么写
    Private Sub Form_Load()
    Label1.Caption = Time
    End SubLABEL里头的时间就定在了我打开FORM的那一瞬间了。
      

  4.   

    你要改动的话设置时间控件timer.interval=500 timer.enable=true然后在其事件timer_time里面加入label1.text=now就可以了
      

  5.   


    Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 500
    End SubPrivate Sub Timer1_Timer()
    Label1.Caption = Now
    End Sub
      

  6.   

    Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 1000
    End SubPrivate Sub Timer1_Timer()
    Label1.Caption = Time$
    End Sub
      

  7.   

    Private Sub Form_Load()
       Timer1.Enabled = True
       Timer1.Interval = 1000
       Label1.Caption = Time$ '在Form_Load就要加上,否则你要等1秒后Label才会开始跑
    End SubPrivate Sub Timer1_Timer()
       Label1.Caption = Time$
    End Sub
      

  8.   

    8F不用 Timer1.Enabled   =   True这个也可以呀,它也没说timer是不可用的
      

  9.   

    Attn 楼主:这个分应该给 7F 的,可以修改吗?