我用VB写了个程序,想30分钟的时候LABLE1.显示一个东西1小时的时候又显示一个东西如此循环.
我用VB写了个程序,想30分钟的时候LABLE1.显示一个东西1小时的时候又显示一个东西如此循环.我的代码只实现了30分钟显示,但是我要第二个30的时候显示不一样的东西应该怎么做呢?第3个30的时候又显示第一个东西循环
Private Sub Timer1_Timer()
'设置时钟为30000
Static n As Integer
n = n + 1
If n Mod 1 = 60 Then '30分钟
Label1.Caption = "温馨提示:"
form1.Visible = True
SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 2 Or 1
Timer2.Enabled = True
End If
End Sub
追问:给点代码把但是到下个60的话好像程序就不知道自己干什么了哦,有可能还以为是30呢.
答案:你可以定义一个Integer:当30分钟时为0 一小时时为1
加个判断
当30分钟时为0执行…… 一小时时为1执行…… 然后一个半小时又为0…………
记得采纳~
上一个:求VB大神帮忙
下一个:vb编程,怎么根据所选时间显示sql数据库中的信息?????????????????????????