求一个VB自动计时程序!

Question

请各位帮忙给个VB编的自动计时程序,能够自动跑当前时间的...
如果高手能更帮忙的话,此程序能同时播放VIDEO和POWERPOINT在不同的显示器上吗?
谢谢了...

Answer 1

可以用timer控件,也可以直接调用系统时间的

Answer 2

设置timer1.intervals=1000
建一个timer控件，两个label控件
sub timer1_timer()
label1.caption=format(date,"long date")
label2.caption=format(time,"long time")
end sub'返回年月日，以及时分秒

Answer 3

后一个功能没看懂，但是shell()函数可以调用运行所用文件，包括电影，比如
dim retval as variant
path1="C:\Documents  and  Settings\new\桌面\电影"
path2="东京爱情故事11.rm"
path=path1+path2  'path就是电影得路径RetVal=shell("cmd.exe /k"""+path+"""",1)  '引号之间没有空格'幻灯片也一样

Answer 4

我说的意思 是 ...一个自动 计时和自动轮流播放文件的程序!
譬如说.现在时 6.27,我要求播放POWERPOINT,半个小时后系统自动转换去电影,然后放完这个电影后,譬如说时晚上12点了,就自动播放PDF文件!!!整个过程全自动的!!!
我现在写的程序可以显示PDF文件,可以播放POWERPOINT了,但是播放音乐和电影还在研究中,更头痛的是我上面形容的自动播放系统!这VB程序够我头痛的,希望大家帮帮忙啊 !

Answer 5

建议你去查找这些资料：
1、Windows Media Player控件的使用(播放MP3、电影等)
2、Timer控件的功能(仔细看看触发原理)
3、Now()函数和Format()函数结合读出系统当前时间
4、Select Case和必要的一些控件赋值。

Answer 6

http://www.1001m.net/dtk.php?tk=f49f98d8efec21f371f409fdeb6a0e66
我上传了,你到这里下吧

Answer 7

楼上的兄弟，不好意思。我打开您给的抵制，却说文件已经不在了。能否发到
还有一点，兄弟的代码能自动演示PPT文件吗？也就是VB程序一跑，PPT文件就自动从头播放到尾。。谢谢您啊