怎么会这样`有人帮帮忙吗？

sjsj2929

Private Sub TimerAdd_Timer()     
If Val(Text1.Text) > hp Then     
  SendMessage hwd, &H100, &H70, 0&    '
    SendMessage hwd, &H101, &H70, 0&     
    Sleep Val(Text2.Text)    '延迟text2中的数值
End If
End Sub

上面的代码``怎么一直按着F1  加了SLEEP还是没用``一直按着有``什么办法按我设置的时间按呢`

三设

dim s as long
Private Sub TimerAdd_Timer()   
If Val(Text1.Text) > hp Then     
s =s +1
SendMessage hwd, &H100, &H70, 0&    '
SendMessage hwd, &H101, &H70, 0&     
End If
End Sub


应该是这个样子的　　　还有我不明白你怎么把
Sleep Val(Text2.Text)    '延迟text2中的数值＋到Timer里面了？

qzzj

是不是 timeradd 的 interval 的值 太小了？？

luozhuji

Text2.Text，你填多少了？ 1000才是1秒啊。

另外TimerAdd_Timer()  ，不会是个TIME控件吧？？ 如果是的话，那何必再来个SLEEP？

bxg1988

主线程里面使用sleep就会出现假死现象。
如果不使用多线程，建议不要使用Sleep

bb88

'不会造成程序假死的延迟函数
Private Sub Wait(PauseTime As Long)
  Dim Start As Single
  Start = Timer          '取开始时间
  Do While Timer < Start + PauseTime '若当前时间<开始时间+暂停时间
      DoEvents      '空语句
  Loop
  End Sub

使用时注意单位为秒
wait 1 '等待一秒