Visual Basic - ventana de dos

Life is soft - evento anual de software empresarial
 
Vista:

ventana de dos

Publicado por Giuliana (11 intervenciones) el 01/06/2001 14:11:21
Hola, estoy ejecutando un shell desde visual y abro varias ventanas de DOS, lo que quiero es abrir la segunda hasta que se haya cerrado la primera, es decir hasta que se haya ejecutado la primera, mi duda es se puede saber cuando se cierra la ventana? para asi poder controlar cuando abrir la segunda
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ventana de dos

Publicado por Luis Rodrigo Solorzano Monroy (51 intervenciones) el 01/06/2001 17:18:27
hola colega,
he aqui un codigo que te puede servir.
en el modulo de clase copiate este codigo:

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400

Public Sub Ejecutar(ByVal CmdLine As String)
Dim hProcess As Long
Dim RetVal As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(CmdLine, vbMinimizedNoFocus))
Do
GetExitCodeProcess hProcess, RetVal
DoEvents
' Sleep 100
Loop While RetVal = STILL_ACTIVE
End Sub

y en tu forma donde abres las ventanas esto
Call Ejecutar(App.Path + "\fuera.bat")
por ejemplo,este codigo ejecutara la ventana hasta que termine el proceso, luego habres la siguiente..
saludos

Desde Guatemala.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar