VB 哈哈叫

来源：百度知道 编辑：UC知道 时间：2024/06/01 10:19:34
请问大侠们 FORM1....中如何设定20或30分钟显示FORM2 急急
谢谢大家 我没有分了请原谅

在form1中放一个timer控件,设置属性interval为60000,这里指的的是毫秒,也就是1分钟.
Private Sub Timer1_Timer()
Form2.Show
End Sub
复制上面的代码,就ok了.
但是timer控件最大只能设定1分钟,所有要想达到几个小时或几分钟,需要用下面的代码:
Public A As Integer
Private Sub Form_Load()
Timer1.Interval = 60000
End Sub
Private Sub Timer1_Timer()
A = A + 1
If A = 10 Then
A = 0
Form2.Show
End If
End Sub
因为这个也有上限,比如如果是要间隔几天的话,就应该调用settime API函数来实现了.

添加一个timer控件，再设置一下就可以实现了。