| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 454 人关注过本帖
标题:能帮我看一下这段程序有什么问题么?
只看楼主 加入收藏
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
结帖率:70%
收藏
 问题点数:0 回复次数:3 
能帮我看一下这段程序有什么问题么?
If r >= 30 Then
                    Shape1.BackStyle = 1
                    Shape1.BackColor = QBColor(12)
                    label1.ForeColor = vbRed
                     Timer2.Enabled = False
                    Label3.Caption = Now()
                    h(1) = Hour(Now)
                    m(1) = Minute(Now)
                    s(1) = Second(Now)
                Else
                    Shape1.BackStyle = 1
                    Shape1.BackColor = QBColor(10)
                    label1.ForeColor = vbGreen
                    Timer2.Enabled = True
                    Timer2.interval = 10000
                    Label2.Caption = Now()
                    h(0) = Hour(Now)
                    m(0) = Minute(Now)
                    s(0) = Second(Now)
            End If
        Label4.Caption = h(0) - h(1) & " : " & m(0) - m(1) & " : " & s(0) - s(1)
End Sub

说明:在label2显示一个时间,在label3显示一个时间,现在想在label4上显示两个时间的时间差,但运行后label4显示的是与label2同步运行的时间,哪里错了呢?
搜索更多相关主题的帖子: False 
2010-04-01 16:04
小靓仔仔
Rank: 1
等 级:新手上路
帖 子:17
专家分:3
注 册:2010-3-7
收藏
得分:0 
应该是IF语句出问题了,假如r >= 30 一直成立的话, Label2.Caption 永远取不到值,这样如何求差值啊!
顺便问一下,你的r的值怎么设定?上面代码是写在Load事件中吗?
2010-04-01 17:01
ictest
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:333
专家分:114
注 册:2010-2-17
收藏
得分:0 
那想在label4上显示两个时间的时间差,应该怎么改呢?
2010-04-01 18:23
向钱看
Rank: 2
等 级:论坛游民
帖 子:46
专家分:65
注 册:2010-3-18
收藏
得分:0 
新手,来参观下
2010-04-01 20:22
快速回复:能帮我看一下这段程序有什么问题么?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032201 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved