dim runs as long
runs=shell("word.exe",3)
当关闭WORD的时候有一个返回值,同过这个返回值这可以执行msgbox"word已关闭",请朋友们帮忙解决,3Q~!~!
runs=shell("word.exe",3)
当关闭WORD的时候有一个返回值,同过这个返回值这可以执行msgbox"word已关闭",请朋友们帮忙解决,3Q~!~!
解决方案 »
- 真实奇怪,程序自动退出
- 版主帮我看一下,这个东西怎么弄
- Listview控件事件的获取 急急急。。。
- ★★★如何设置使ListView具有这样的风格★★★
- 根据位图生成窗体
- 高手:请问如何在局域网中实现多台机器同时访问一个ACCESS数据库?
- 我在Excel里选定了一些单元格,请问如何得到其中的内容?
- 自己开发的软件,可否有法律保护?又因如何保护?有方面的资料吗?我不太懂这方面?
- 大哥 帮我做个matlab vb 的接口好吗 只要 + -x 除 求逆 就行
- ***********关于"如何返回控件的方法产生的事件中的信息"的小问题********来者有分哦!!!!!!!
- combobox怎样把输入功能屏蔽掉啊?
- vsflexgrid 设置焦点问题.
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000Private Sub Command1_Click()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell("notepad.exe", vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
MsgBox "结束"
End Sub
Private Declare Function GetExitCodeProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Const PROCESS_QUERY_INFORMATION As Long = (&H400)
Private Const STILL_ACTIVE As Long = &H103
Sub ShellWait(FileName As String)
Dim hShell As Long
Dim hProc As Long
Dim lExit As Long
hShell = Shell(FileName, 3)
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
Do
GetExitCodeProcess hProc, lExit
DoEvents
Loop While lExit = STILL_ACTIVE
End SubPrivate Sub Command1_Click()
ShellWait "f:\word.exe"
MsgBox "运行完毕!"
End Sub