|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Chamar uma programa e espera que o mesmo seja fechado "Modal"
|
 |
|
|
|
Postada em 27/10/2003 por Tekki
Chamar uma programa de forma "modal"
Neste exemplo estamos usando a claculadora do windows
Crie um form adicione um button com o nome : cmdCalcModal
Use este código:
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private 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 = &H100000
Private Sub cmdCalcModal_Click()
Dim iTask As Long, ret As Long, pHandle As Long
iTask = Shell("Calc.exe", vbNormalFocus)
pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)
End Sub
|
|
|
|
|
