vb如何实现程序运行后2秒某事件启动这一功能?

'使用Timer1时间控件 Private Sub Command1_Click() '点击按钮 Timer1.Enabled = True '时间开始运行 Timer1.Interval = 2000 '2秒执行一次，1等于1毫秒 End Sub Private Sub Timer1_Timer()'事件过程 Timer1.Enabled = False '执行一次后停止时间过程，代码也可以放在你的事件过程中 End Sub ...

思路：1）建一个临时vbs文件d:\temp\123.vbs （路径，文件名自己决定）2) 在其内写入下面的代码 Dim WshShell Set WshShell=WScript.CreateObject("WScript.Shell")WScript.Sleep 5000 ' 暂停5秒 3）然后启动"Internet Explorer" (这段代码自己补充吧)4）运行此文件 5）删除临时文件 ...

还有您的文件号 #2 也不好，容易冲突。建议改成变量 nFF（整型）,nFF = IIF((FreeFile=0), FreeFile(1), FreeFile)，这样就不会冲突了。对于延迟，可以使用 Sleep 函数。修正后的代码如下：Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long Shell "cmd ...

有exe捆绑的工具。不过经常杀毒软件认为病毒。可以建议你创建一个批处理文件，就是bat文件。执行后删除命令在运行你的程序。bat文件也可以编译成exe。如果程序是自己写的那可以加入命令行来实现嘛。

在第一个程序的窗体上放一个timer代码如下 Private Sub Form_Load()Timer1.Interval = 3000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()Shell "c:\asdf.exe"'你第二程序的路径 Timer1.Enabled =False End Sub 这样你第一个程序运行3秒后,启动第二个程序 ...

在第一个程序的窗体上放一个timer代码如下 Private Sub Form_Load()Timer1.Interval = 3000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()Shell "c:\asdf.exe" '你第二程序的路径 Timer1.Enabled =False End Sub 这样你第一个程序运行3秒后,启动第二个程序 ...

VB的Shell命令是异步执行的，也就是说它运行后并不暂停，而是继续执行下面的其他命令。所以你可以通过比较Shell运行前和运行后的data.txt文件时间来决定何时打开data.txt，如：Private Sub Command2_Click()Dim fd As Date On Error Resume Next '最好不要这句，否则出了什么错你都不知道 fd = ...

这个，timer事件实际上都是时间达到设定的频率（Interval）时触发的，所以，要想达到程序启动立即触发的效果，建议把timer中事件写到一个函数（sub）中，然后在load和timer事件中调用该sub。

Dim x x = Shell("Notepad.exe", vbNormalFocus)SendKeys "这是一个文本文件的测试程序.", True ' 模拟输入英文字符串 SendKeys "{Enter}{Enter}", True ' 两次回车 waittime (2) ' 延时 2 秒 SendKeys "自动输入文字", True SendKeys "{Enter}{Enter}", True waittime (2)...

在程序代码最上边，加上Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)在想暂停的地方，运行Sleep 1000 '1000代表1秒