| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 747 人关注过本帖
标题:timer问题~~
只看楼主 加入收藏
c197709333
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-6-10
收藏
 问题点数:0 回复次数:8 
timer问题~~
请求大侠帮忙~~
在VB中timer怎么实现在特定的时间触发事件`~比如在2007.10.01 12:00:00播放歌曲
搜索更多相关主题的帖子: timer 歌曲 触发 请求 
2007-06-16 02:39
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
收藏
得分:0 
Private Sub Timer1_Timer()
Label1.Caption = Time
If Label1.Caption >= "12:00:00" Then
.......播放歌曲
End If
End Sub
年月日用Date

2007-06-16 07:46
cike_1111
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2007-4-30
收藏
得分:0 
首先要做的是 提取你所需要的时间出来!

2是要加个判断 如果到了你规定的时间 那么播放音乐

LZ 的时间为:
2007.10.01 12:00:00

提取 年: year(date)
月:monch(date)
日: day(date)
时间:time()
判断:
If Year(Date) = 2007 And Month(Date) = 10 And Day(Date) = 1 And Time() = "12:00:00" Then播放音乐
2007-06-16 10:40
c197709333
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-6-10
收藏
得分:0 
Form1.Caption = Time + Date

If Year(Date) = 2007 And Month(Date) = 6 And Day(Date) = 16 And Time() = "03:30:17" Then
MsgBox "asda"
End If
怎么实现不了???
2007-06-16 15:32
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 
Private Sub Timer1_Timer()
Label1 = Date
Label2 = Time & ":" & Format((Timer - Int(Timer)) * 1000, "000")
If lbFix = True Then
If DateDiff("n", Now, CDate(Date & " " & txtHour & ":" & txtMinter)) = 0 Then
shutWindows
End If
Debug.Print DateDiff("n", Now, CDate(Date & " " & txtHour & ":" & txtMinter))
End If
End Sub
跟这个类似

2007-06-16 21:34
c197709333
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-6-10
收藏
得分:0 
?????
大侠们`~
怎么不说话了啊`~
2007-06-16 21:44
c197709333
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-6-10
收藏
得分:0 
谢谢5楼的大侠`~
我去研究哈`~
2007-06-16 21:53
西山居士
Rank: 4
等 级:贵宾
威 望:11
帖 子:581
专家分:0
注 册:2007-4-21
收藏
得分:0 
再给你一个够你用了吧?
Private Sub Timer1_Timer()
Label1.Caption = Date + Time
If Label1.Caption >= "2007-10-1 12:00:00" Then
..............
End If
End Sub

2007-06-16 22:08
c197709333
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-6-10
收藏
得分:0 
哈哈~~`
谢谢斑竹~~
2007-06-16 22:11
快速回复:timer问题~~
数据加载中...
 
   



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

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