VB定时器代码

答案:3 悬赏:40 手机版

解决时间 2021-07-31 16:57

提问者网友：遮云壑
2021-07-31 10:37

谁会弄啊？

可以自己设定时间，几小时几分钟几秒后将执行某段代码

我想弄的是网页游戏辅助工具!

到了指定时间后将执行播放音乐

只执行一次！

谁可以帮助我解决问题我给他300积分！

我Q285270220

最佳答案

五星知识达人网友：街头电车
2021-07-31 11:07

在窗体中添加WindowsMediaPlayer，timer,3个文本框,一个按钮。添加以下代码：

Dim x As Long

Private Sub form_load()

Command1.Caption = "开始计时"

Timer1.Enabled = False

WindowsMediaPlayer1.Visible = False

Timer1.Interval = 1000

Text1.Text = "时"

Text2.Text = "分"

Text3.Text = "秒"

End Sub

Private Sub Timer1_Timer()

x = x - 1

If x <= 0 Then

Timer1.Enabled = False

MsgBox "时间到"

Me.Show

WindowsMediaPlayer1.URL = "你的音乐路径"

End If
End Sub

Private Sub Command1_click()
If Text1.Text = "时" Then Text1.Text = 0

If Text2.Text = "分" Then Text2.Text = 0

If Text3.Text = "秒" Then Text3.Text = 0

x = Text1.Text * 3600 - (-Text2.Text * 60) - (-Text3.Text)

Timer1.Enabled = True

End Sub

全部回答

1楼网友：神也偏爱
2021-07-31 13:05

设置时间。。要几小时几秒几分。。用三个TEXT控件。。text1为小时 text2为分钟 text3为秒

private sub command1_click()

timer1.interval=val(text1)*3600*1000+val(text2)*60*1000+val(text3)*1000

end sub

这样就能设置时间了。。其它的什么判断之类的语句你己加。。

2楼网友：有你哪都是故乡
2021-07-31 12:46

假设我要每两秒钟调用某个程序，实现的代码详见下图：

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息