您的位置：程序门 -> vb -> 基础类

一个小问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

一个小问题

发表于：2007-04-26 16:20:42 楼主

private sub form_load（)
timer1.interval = 1
end sub

private sub timer1_timer（)
time1 = time
if time1 = "#9:21:00# " then
label1.caption = time1
end if
end sub请各位帮我看看有什么问题.怎么没有反应啊?
请各路神仙帮帮忙啊!!!!!急啊

发表于：2007-04-26 16:22:131楼得分:0

说明以下,是在vb中的,不是.net的

发表于：2007-04-26 16:36:222楼得分:0

把:
if time1 = "#9:21:00# " then
改成:
if time1 = #9:21:00# then

发表于：2007-04-26 16:36:393楼得分:0

private sub form_load（)
timer1.interval = 1
end sub

private sub timer1_timer（)
time1 = time
if time1 = "9:21:00 " then
label1.caption = time1
end if

发表于：2007-04-26 20:10:264楼得分:0

只留下label1.caption = time1不用if看看上面显示什么,然后把if里面的改成那个字符串即可.

发表于：2007-04-26 22:14:095楼得分:0

好像和时间设置也有关系么？
hh：mm：ss

发表于：2007-04-27 08:29:456楼得分:0

我自己已经解决了,呵呵
给大家分享一下,你们说的我好象试过了.
private sub form_load（)
timer1.enabled = true
timer1.interval = 1
end sub

private sub timer1_timer（)
label1.caption = format（time, "hh:mm:ss ") '时分秒
if label1.caption = #8:21:00 am# then
msgbox "aa "
end if
end sub
要是按你们那样的话系统的时间就会停止的,我试过不了,不相信的话你们也可以试试的,呵呵

下一篇：在线急等！给个计算器=号失效的理由
上一篇：请教组合框的设计思路

其他资讯