Question

vb问题！ 怎么设置按下按钮一定时间（如10秒）后运行某段代码？

Answer 1

用两种方法，一种是建立Timer，设置按下按钮后触发Timer计时，十秒后运行代码。
第二种是使用API：Sleep，在声明之后只要在执行代码前加一句Sleep 10000就可以了
个人推荐第一种，因为第二种在VB单线程状态下容易造成无响应情况，但也可以通过一定方法解决。

追问

求代码

什么代码为触发计时？

追答

设置好TImer之后，你就TImer.enable=True就可以了

追问

那10秒后运行呢？

追答

Timer一秒触发一次，设置一个静态变量，每次执行Timer变量就加一，到10执行

Answer 2

Dim X As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
X = X + 1
If X = 10 Then
'这里是你需要执行的代码
Timer1.Enabled = False
X = 0
End If
End Sub

Answer 3

看看是你要的吗？

Answer 4

TImer.interval=10000

TImer.enable=True

这样就OK了。