Saber si un control esta cargado

[gogupe]

Hola a todos.

He hecho una matriz de controles de un timer

He hecho lo siguiente

load timer(0)
load timer(1)
load timer(2)

Me cargará como tantos timer como usuarios se conecten a mi sistema, hasta aquí todo bien.

El problema me lo encuentro que esto lo quiero chequear cada cierto tiempo, pero ¿como se que el control ya está cargado?, es que si no, me da el error de que el objeto ya se ha cargado

Quiero algo asi como: si timer(0) ya está cargado --> no cargar

Muchas gracias a todos

[pkj]

Puedes poner un control de errores:
On local error goto errorcargandotimer
...
...
load timer(0)
goto noerrorcargandotimer

errorcargandotimer:
err.clear
goto nocargartimer

noerrorcargandotimer:
...
...

nocargartimer:

Puede ser muy básico pero es lo único que se me ocurre.

Saludos

[culd]

Iniciado por gogupe

Hola a todos.

He hecho una matriz de controles de un timer

He hecho lo siguiente

load timer(0)
load timer(1)
load timer(2)

Me cargará como tantos timer como usuarios se conecten a mi sistema, hasta aquí todo bien.

El problema me lo encuentro que esto lo quiero chequear cada cierto tiempo, pero ¿como se que el control ya está cargado?, es que si no, me da el error de que el objeto ya se ha cargado

Quiero algo asi como: si timer(0) ya está cargado --> no cargar

Muchas gracias a todos

Aca te arme una funcion para que te devuelva si esta cargado el timer.

PD: Para gasafonso que lo mira por TV

Código VB:

'Programado por CULD a pedido de GUGOPE
'------------------------------------------------------------------
'Esta es una funcion que tiene como parametro un objeto timer
'al que se lo quiere conocer si se encuentra cargado en tiempo de
'ejecucion... Por ejemplo si tenemos un vector de controles Timer
'y queremos conocer si un timer en particular esta cargado, se le
'envia como parametro el timer en cuestion y devuelve TRUE/FALSE
'------------------------------------------------------------------
'Esto es a pedido de GUGOPE en el post:
'http://www.forosdelweb.com/f69/saber-si-control-esta-cargado-732407/
'------------------------------------------------------------------
Public Function EstaCargadoTimer(ElTimer As Timer) As Boolean
On Error GoTo NoEstaCargado
If ElTimer.Index > 0 Then
    EstaCargadoTimer = True
End If
Exit Function
NoEstaCargado:
EstaCargadoTimer = False
End Function
 

Como usarlo...

Lo pones en un modulo...

Si queres saber si el Timer1(10) esta cargado haces esto...

Código VB:

If EstaCargadoTimer(Timer1(10)) = True Then
      'ESTA CARGADO
Else
      'NO ESTA CARGADO
End If
 

[gasafonso]

Iniciado por culd

Aca te arme una funcion para que te devuelva si esta cargado el timer.

PD: Para gasafonso que lo mira por TV

Código VB:

'Programado por CULD a pedido de GUGOPE
'------------------------------------------------------------------
'Esta es una funcion que tiene como parametro un objeto timer
'al que se lo quiere conocer si se encuentra cargado en tiempo de
'ejecucion... Por ejemplo si tenemos un vector de controles Timer
'y queremos conocer si un timer en particular esta cargado, se le
'envia como parametro el timer en cuestion y devuelve TRUE/FALSE
'------------------------------------------------------------------
'Esto es a pedido de GUGOPE en el post:
'http://www.forosdelweb.com/f69/saber-si-control-esta-cargado-732407/
'------------------------------------------------------------------
Public Function EstaCargadoTimer(ElTimer As Timer) As Boolean
On Error GoTo NoEstaCargado
If ElTimer.Index > 0 Then
    EstaCargadoTimer = True
End If
Exit Function
NoEstaCargado:
EstaCargadoTimer = False
End Function
 

Como usarlo...

Lo pones en un modulo...

Si queres saber si el Timer1(10) esta cargado haces esto...

Código VB:

If EstaCargadoTimer(Timer1(10)) = True Then
      'ESTA CARGADO
Else
      'NO ESTA CARGADO
End If
 

ja jaj por que no haces una funcion para imprimir fiscal ?


Que tenes miedo que te saquen clientes ja ja

[culd]

Iniciado por gasafonso

ja jaj por que no haces una funcion para imprimir fiscal ?


Que tenes miedo que te saquen clientes ja ja

Justamente por eso no lo hago

[gasafonso]

Fijate Jehp8, eso es SOLIDARIDAD ja ja

[gogupe]

Muchas gracias a todos... mas o menos sabía que se podíar hacer usando un control de errores. Pero quería saber si existía alguna forma que no fuera tan "chapucera'... lo siento es que intento evitar usar el ON ERROR GOTO.

Pero bueno, es lo que hay, asi que lo usaré así que veo que para lo que quiero, me funciona bien.

Saludos.