Autor Tema: Commondialog De Forma No Modal (Leído 1102 veces)

elmango80 · « **en:** Miércoles 9 de Marzo de 2005, 19:57 »

Saludos a todos los participantes de este foro!

Estoy utilizando el objeto CommonDialog y tengo un problema, el cual radica en que este objeto cuando abre las ventanas de dialogo, lo hace de forma modal. Resulta que durante la ejecucion de mi programa estoy recibiendo constantemente datos por el puerto serial y siempre debo estar pendiente de esto, pero como sabran cuando se presenta un formulario de forma modal el programa deja de ejecutar cualquier codigo que pertenezca a otro formulario hasta que este se cierre.

Bueno agradeceria mucho si alguien me puede ayudar con este problema.

----------- o -----------

Brroz

Hola elmango80.

Nuevamente la solución es usar un thread distinto. Usa un nuevo proceso para realizar la lectura del puerto:

Crea un programa independiente para atender la lectura del puerto. Luego llama una función de este estilo pasándo como parámetro la ruta y nombre de tal ejecutable:

Código: Text

 
Option Explicit
 
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Declare Function OpenProcess Lib &#34;kernel32&#34; (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib &#34;kernel32&#34; (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib &#34;kernel32&#34; (ByVal dwMilliseconds As Long)
 
Public Sub LeerPuerto(Byval ExeLeerPuerto as string)
 
    On Error GoTo Err_Sinc
    
    Dim l1 As Long, lRc As Long
    l1 = OpenProcess(PROCESS_QUERY_INFORMATION, False _
    , Shell(ExeLeerPuerto, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess l1, lRc
        Sleep 100
        DoEvents
    Loop While lRc = STILL_ACTIVE
    
    MsgBox &#34;Finalizó la lectura del puerto&#34;
 
    Exit Sub
    
Err_Sinc:
    MsgBox &#34;Fallo al intentar arrancar lectura del puerto.&#34; & String(2, vbCrLf) _
    & &#34;(&#34; & Err.Number & &#34;) &#34; & Err.Description, vbCritical, &#34;Sincronizar&#34;
 
End Sub
 
 

Si quieres también puedes eliminar el ciclo y una vez lanzado el programa olvidarte.

Eso sí, si necesitas comunicación entre los dos programas... tendrás que currártelo. Mira si quieres este post por si te sirve http://foros.solocodigo.com/index.php?showtopic=13730 aunque roxiii aún no lo ha cerrado...

Suerte.

SoloCodigo

Autor Tema: Commondialog De Forma No Modal (Leído 1102 veces)

elmango80

Commondialog De Forma No Modal

Brroz

Re: Commondialog De Forma No Modal