vb 时间问题

来源：百度知道 编辑：UC知道 时间：2024/09/21 03:58:12
vb 时间问题

请高手给出详细代码！
请高手给出详细代码！
请高手给出详细代码！

可以自定义时间，自定义的时间在text中输入

时间单位为：小时

每隔X小时提醒一次

请高手给出详细代码！
请高手给出详细代码！
请高手给出详细代码！

————————————————————————
以下答案有问题：
1、Timer的Interval最大也就65535，设置大了只会报错，不会报时。
2、Msgbox弹出时程序被挂起，Timer也会停止工作，也就是说如果用户不理会它，将永远没有下一次的提示。

————————————————————————

可以用Timer:
在窗口画一个Timer1,Text1,Command1

Private Sub Command1_Click()
Timer1.Interval = 1000 * 60 * 60 * Val(Text1.Text)
End Sub
Private Sub Timer1_Timer()
'提醒内容
End Sub

用Command1作为记时的开始.
这样每到Text1的设定时间就提醒了.

dim n as long
timer1.Interval= 6000 //一分钟一次
Private Sub Timer1_Timer()
'提醒内容
n=n+1 '一分钟加一次
if n=10 then '在这里面设置要提示的时间
msgbox "10分钟啦"
n=1
end if
End Sub

1,设置全局变量，每过一段时间值+1
2，再添加一个窗体，不用msgbox函数提醒
代码如下：
首先添加时间控件timer1,text控件text1,command控件command1
再添加窗体form2，在窗体上添加时间控件timer2(默认应该是timer1，但怕混淆改为timer2)
timer1的Interval属性设为60000（1分钟）
timer2的Interval属性也设为60000（1分钟后关闭提示窗体）
Form1代码如下：
Option Explicit
Private H, SetTime As Integer
Private M As Integer
Private Sub Command1_Click()

On Error GoTo err1: '容错，防止输入错误的时间而导致程序报错
H = 0 '小时数为0
M = 0 '分钟数也设为0
Timer1.Enabled = True '开始计时
SetTime = Int(Text1) '设置的时间长度
Exit Sub
err1:
MsgBox "请设置整点的时间"
End Sub

Private Sub Timer1_Timer()
If M < 60 Then
M = M + 1
Else
M = 1
H = H + 1
End If
If H = S