Como se utiliza el DoEvents - VB-MUNDO

Claudia · #1 (**permalink**) 19-03-2005, 14:57:01

Hola a todos me gustaria saber que es lo k exactamente hace el DoEvents

acalanto · #2 (**permalink**) 19-03-2005, 15:13:10

En VB60 se utiliza simplemente DOEVENTS. Este comando lo que hace es forzar al propio SO a que termine o ejecute todo aquello que tiene pendiente (No olvides que Windows es multitarea y el sistema y procesador gestionan su tiempo para atender todas las solicitudes).

No tienes que buscar 'tres pies al gato', simplemente lo utilizas cuando generes un proceso demasiado extenso que pueda bloquear otros procesos o cuando sospeches que otros procesos pueden estar bloqueando tu aplicación.

Por ejemplo

Código:

for i = 1 to 10000000000000000
    'aquí mi código que hace cosas
    ....
    ....
    ....
   if (i mod 1000) then DOEVENTS 
next i

Así cada 1000 pasos del bucle, te aseguras que tu aplicación no blequea otras tareas pendientes.

Espero haberme explicado con claridad y que respondas si lo has comprendido.....

Claudia · #3 (**permalink**) 19-03-2005, 15:51:39

Hola Acalanto :smt009 si te digo k entendi seria la peor mentira k he dicho en mi vida la verdad k aun no entiendo como utilizar el doevents

Este es el codigo k utilizo para imprimir y sinceramente no tengo la menor idea de donde poner el doevents
Haciendo un seguimiento al programa lo unico k pude observar k el valor de mi variable xcod que guarda el numero de orden a imprimir no se pierde en ningun momento sin embargo si antes de imprimir entro a otro formulario y hago consultas a pesar k el xcod me muestra el valor de la variable que yo elegi me imprime otra cosa y aun no entiendo por k :smt017

Código:

If rsOst.RecordCount > 0 Then
xcod = rsOst!num_ost
    
    If xcod = "" Then
    MsgBox "Seleccione Orden a Imprimir"
    End If

Set rsOstX = New ADODB.Recordset
rsOstX.CursorLocation = adUseClient
rsOstX.CursorType = adOpenDynamic
rsOstX.LockType = adLockBatchOptimistic
csql = "Select * from cliente where num_ost = " & ChrW(39) & xcod & ChrW(39)
rsOstX.Open csql, CN
If rsOstX!s_boleta = "1" Then
DataReport3.Sections("Sección1").Controls.item("etiqueta2").Visible = True
DataReport3.Sections("Sección1").Controls.item("etiqueta2").Caption = "Sin Boleta"
DataReport3.Sections("Sección1").Controls.item("txtcampo23").Visible = False

Else
DataReport3.Sections("Sección1").Controls.item("etiqueta2").Visible = False
DataReport3.Sections("Sección1").Controls.item("txtcampo23").Visible = True
End If
If MsgBox("Desea Imprimir  registro ...", 36, "Imprimir") = 7 Then
       Exit Sub
       Else
       DataReport3.Refresh
       DataEnvironment1.rscmdordengrupo.Filter = "num_ost = '" & xcod & "'" & "and cod_cia = '" & codcia & " '" & "and cod_ano = '" & codano & "'"
       DataReport3.PrintReport , rptRangeFromTo, 1, 1
       If DataEnvironment1.rscmdordengrupo.State Then    
       DataEnvironment1.rscmdordengrupo.Close
       frm1120_3_1.Refresh
       End If
Else
 cmdimprimir.Enabled = False
End If

Claudia · #4 (**permalink**) 19-03-2005, 16:05:49

ya se cual es el problema

Código:

If rsOst.RecordCount > 0 Then 
xcod = rsOst!num_ost 
    
    If xcod = "" Then 
    MsgBox "Seleccione Orden a Imprimir" 
    End If 

Set rsOstX = New ADODB.Recordset 
rsOstX.CursorLocation = adUseClient 
rsOstX.CursorType = adOpenDynamic 
rsOstX.LockType = adLockBatchOptimistic 
csql = "Select * from cliente where num_ost = " & ChrW(39) & xcod & ChrW(39) 
rsOstX.Open csql, CN 
If rsOstX!s_boleta = "1" Then 
DataReport3.Sections("Sección1").Controls.item("etiqueta2").Visible = True 
DataReport3.Sections("Sección1").Controls.item("etiqueta2").Caption = "Sin Boleta" 
DataReport3.Sections("Sección1").Controls.item("txtcampo23").Visible = False 

Else 
DataReport3.Sections("Sección1").Controls.item("etiqueta2").Visible = False 
DataReport3.Sections("Sección1").Controls.item("txtcampo23").Visible = True 
End If 
If MsgBox("Desea Imprimir  registro ...", 36, "Imprimir") = 7 Then 
       Exit Sub 
       Else 
       DataReport3.Refresh  ***Esto es lo k esta demas y hace k se    malogre mi impresio
       DataEnvironment1.rscmdordengrupo.Filter = "num_ost = '" & xcod & "'" & "and cod_cia = '" & codcia & " '" & "and cod_ano = '" & codano & "'" 
       DataReport3.PrintReport , rptRangeFromTo, 1, 1 
       If DataEnvironment1.rscmdordengrupo.State Then    
       DataEnvironment1.rscmdordengrupo.Close 
       frm1120_3_1.Refresh 
       End If 
Else 
 cmdimprimir.Enabled = False 
End If

Definitivamente hoy no es mi dia, aun keda pendiente lo de entender el doevents

acalanto · #5 (**permalink**) 19-03-2005, 17:47:57

Si refrescas el DATAREPORT3 antes que el DATAENVIRONMENT del que se alimenta, pues es lógico que te muestre cualquier cosa menos lo que esperas.

DoEvents, como ya te he dicho, lo puedes poner allí donde quieras, en cualquier punto del código y a cualquier hra, no hace daño, no etorpece y no afecta a el código escrito, simplemente, cuando lo solicitas, Windows mira en sus tareas pendientes de ejecutar -Por ejemplo outlook puede estar recibiendo un correo, tu dataenvironment acabando de hacer una consulta y el explorer cargandio una página-, las finaliza y libera los recursos ocupados del sistema.

Puedes ponerlo donde quieras.

Claudia · #6 (**permalink**) 21-03-2005, 13:42:03

Gracias Acalanto por la respuesta felizmente me di cuenta del temendo error que tenia en cuando al DoEvents no importa donde lo ponga antes de enviar mi consulta al datareport o despues no hay diferencia???