做电子钟，求助高手， - VB6论坛

问题点数：0 回复次数：13

做电子钟，求助高手，

请问输入以下有什么错误
Private Sub Form_Load()

    Form1.Show

    Form1.Cls

    Form1.Print "北京时间:"

End Sub

Private Sub Timer1_Timer()

    Label1.Caption = Time

End Sub
我要做电子钟，但始终有错，怎么回事？

搜索更多相关主题的帖子: 电子钟　

第 2 楼

得分:0

Timer1.Interval = 100

学海无涯

第 3 楼

得分:0

回复 2# 的帖子

timer1.interval=1000为一秒

第 4 楼

得分:0

小于等于1000都可以啊

怎么不可以用Discuz代码呢！

第 5 楼

得分:0

回复 4# 的帖子

为什么？

第 6 楼

得分:0

本人设计的带星期的时钟实例

先设置timer1.interval=1000
Enabled = True
Private Sub Timer1_Timer()
    Dim X As String
    X = Format(Now, "w")

    If Format(Now, "w") = 1 Then X = "星期日"
    If Format(Now, "w") = 2 Then X = "星期一"
    If Format(Now, "w") = 3 Then X = "星期二"
    If Format(Now, "w") = 4 Then X = "星期三"
    If Format(Now, "w") = 5 Then X = "星期四"
    If Format(Now, "w") = 6 Then X = "星期五"
    If Format(Now, "w") = 7 Then X = "星期六"

    Label1.Caption = Format(Now) + Chr(13) + Chr(10) + X
End Sub

第 7 楼

得分:0

回复 6# 的帖子

x=format(now,"w")这句可不可以解释下啊，谢谢

第 8 楼

得分:0

X只不过是一个临时变量，使代码看起来简洁

第 9 楼

得分:0

在VB里，怎样调试？

[[it] 本帖最后由机关报于 2008-4-12 20:07 编辑 [/it]]

第 10 楼

得分:0

从BFS(Breadth First Study)到DFS(Depth First Study)