VB菜人问一个送分的问题

[shuangyulove]

大家好，我想让TIME控件的时间设为15分钟要如何做呢，它本身只能支持一分多钟，如何办？？

[zhuixe]

定一一个计数器，15个一分钟执行一次。

[uguess]

Dim iK As Integer
Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

With Timer1
.Enabled = False
.Interval = 65000
End With
iK = 0

End Sub

Private Sub Timer1_Timer()

If iK = 14 Then
MsgBox "15分钟了哦！"
iK = 0
Else
iK = iK + 1
End If

End Sub

[shuangyulove]

还有别的好办法没有呀，对了，如何让程序一运行就最小化呀

[WizardBear]

zhuixe的意思就是，定义一个全局变量，每一分钟就更改一次这个变量的值。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

[yangzhaoyu]

Dim StartTime As Date
Dim Check As Boolean
Private Sub Command1_Click()
Timer1.Enabled = True
StartTime = Time
End Sub

Private Sub Timer1_Timer()
If (Time - StartTime) >= CDate("0:0:10") Then
StartTime = Time
Debug.Print Time
End If
End Sub

[uguess]

Private Sub Form_Load()

Me.WindowState = 1
End Sub

[shuangyulove]

如何让程序一运行就最小化呀 ,搞定这个把上给分了

[uguess]

Private Sub Form_Load()

Me.WindowState = 1
End Sub

[hawknumber1]

添加一窗体，在声明中填入如下代码：
Dim num As Integer
然后添加一个timer控件，将其属性值设置为60,000（一分钟)
然后：
Private Sub Timer1_Timer()
num = num + 1
If num = 15 Then
……
…… ‘填入需要定时执行的代码
num = 0
End If
End Sub

[hawknumber1]

添加一窗体，在声明中填入如下代码：
Dim num As Integer
然后添加一个timer控件，将其属性值设置为60,000（一分钟)
然后：
Private Sub Timer1_Timer()
num = num + 1
If num = 15 Then
……
…… ‘填入需要定时执行的代码
num = 0
End If
End Sub

[yangzhaoyu]

Dim StartTime As Date
Dim Check As Boolean
Private Sub Command1_Click()
Timer1.Enabled = True
StartTime = Time
End Sub

Private Sub Timer1_Timer()
If (Time - StartTime) >= CDate("0:15:00") Then
StartTime = Time
Debug.Print Time
End If
End Sub

[shuangyulove]

thanks