3个回答
展开全部
用timer函数
sub command1_click()
dim lngT
lngT=timer '返回午夜 12 时以后已经过去的秒数。
do
'不作任何操作
loop until timer-lngT>=1 '差值〉=1秒
'当然如果时间间隔较长,简单一些的方法就是用timer控件了.
Print "t"
end sub
sub command1_click()
dim lngT
lngT=timer '返回午夜 12 时以后已经过去的秒数。
do
'不作任何操作
loop until timer-lngT>=1 '差值〉=1秒
'当然如果时间间隔较长,简单一些的方法就是用timer控件了.
Print "t"
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以用api函数里的 sleep 延时
你也可以来个空循环
for i = 1 to 1000
next i
也可以达到效果 就是浪费资源
你也可以来个空循环
for i = 1 to 1000
next i
也可以达到效果 就是浪费资源
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
刚才给你发,你居然把问题关闭了
用timer控件
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Print "t"
Timer1.Enabled = False
End Sub
用timer控件
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Print "t"
Timer1.Enabled = False
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询