UC知道VB编程的两个小问题
来源：百度知道 编辑：UC知道 时间：2024/05/27 01:08:48
1、VB里面怎么样让程序暂停执行一段时间？
如有两行代码
msgbox "1"
msgbox "2"
怎么样在这两行代码执行之间停一段时间，比如一分钟？
2、VB里面怎么样调用一个外部程序，比如打开一个记事本，要求能够知道什么时间这个外部程序执行结束。
谢谢大家！
如有两行代码
msgbox "1"
msgbox "2"
怎么样在这两行代码执行之间停一段时间，比如一分钟？
2、VB里面怎么样调用一个外部程序，比如打开一个记事本，要求能够知道什么时间这个外部程序执行结束。
谢谢大家！
'1、
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Delay(ByVal lngMsec As Long)
On Error Resume Next
Dim lngStartMsec As Long
lngStartMsec = GetTickCount
Do While GetTickCount - lngStartMsec <= lngMsec
DoEvents
Loop
End Sub
Private Sub Command1_Click()
Print "1"
Delay (1000)
Print "2"
End Sub
2、我也很想知道
r=shell("notepad")
等r返回就差不多了
1 加入时间控件
2 Shell("地址")