网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,155贴子：1,166,078

关于时间问题~

如果想在一个窗口那里建一个时间控件，代码中有msgbox。例如：设置在10:50分时弹出一个msgbox的对话框，按确定后回到formA中，到了10:57分时又弹出msgbox的对话框，如此类推！请问这样又如何实现呢~
各位帮帮忙~有点急啦~


Private Sub Timer1_Timer()
If Left(Time, 2) = 10 And Mid(Time, 4, 2) = 57 Then
MsgBox ("时间到了")
End If
End Sub


Private Sub Timer1_Timer()
If Left(Time, 2) = 10 And Mid(Time, 4, 2) = 57 Then
MsgBox ("时间到了")
timer1.enabled=false
End If
End Sub


超没营养的问题。。。。


回4楼： 8:15、9:45 10:05、11:40 14:30、16:05 16:20、17:55 19:30、21:15分别是这几个时间~
回2楼：本人比较笨~表示看不懂，可以解释一下吗~


select case


回7楼：看懂了~但是我试过运行不了~就是到了时间它没有弹出对话框~只是一直计时~不过谢谢你咯~
回8、9楼：谢谢啊~代码可以~如果我想弹出的窗口是不同内容的呢~那又如何用呢~
回10楼：我也想过，不过就是写不出来~


Private Sub Timer1_Timer()
i = Time
Select Case i
Case "08:15:00"
MsgBox "时间到了"
Case "11:56:00"
MsgBox "时间到了"
Case "10:05:00"
MsgBox "时间到了"
Case ……
MsgBox "时间到了"
End Sub


回12楼：嗯嗯~我明白啦~谢谢你啦~
回13楼：可是我之前也在属性哪里加上啊~还是不行~现在那个我试了还是老问题~
回14楼：高~比我想象的代码简单多了~是我想太多了~谢谢你噢~
我太死板啦~真的要灵活变通一下啊~


这个真的很奇怪啊~在我这里试了很多次都不行~不知是不是我太菜鸟了~代码应该是没问题的~就是在我这里运行不了~应该不是代码问题~是其他的问题吧~不过还是谢谢你咯~


借楼主帖子顺便问一下，如果是每隔30分钟报一次时间，是不是可以用变量循环？那个代码是不是比这跟复杂？高手能不能试试看？


非也，30分钟提示，只要初设时间和timer的interval=30分钟，再提示一下即可。无需大量代码


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
分享到: