Tema: FAQ's de VB6
Ver Mensaje Individual
  #186 (permalink)  
Antiguo 02/09/2009, 14:08
Avatar de culd
culd
 
Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 21 años, 1 mes
Puntos: 19
Respuesta: FAQ's de VB6

Cita:
Iniciado por gogupe Ver Mensaje
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
La respuesta a tu problema aca te la arme:


Código VB:
Ver original
  1. 'Programado por CULD a pedido de GUGOPE
  2. '------------------------------------------------------------------
  3. 'Esta es una funcion que tiene como parametro un objeto timer
  4. 'al que se lo quiere conocer si se encuentra cargado en tiempo de
  5. 'ejecucion... Por ejemplo si tenemos un vector de controles Timer
  6. 'y queremos conocer si un timer en particular esta cargado, se le
  7. 'envia como parametro el timer en cuestion y devuelve TRUE/FALSE
  8. '------------------------------------------------------------------
  9. 'Esto es a pedido de GUGOPE en el post:
  10. 'http://www.forosdelweb.com/f69/saber-si-control-esta-cargado-732407/
  11. '------------------------------------------------------------------
  12. Public Function EstaCargadoTimer(ElTimer As Timer) As Boolean
  13. On Error GoTo NoEstaCargado
  14. If ElTimer.Index > 0 Then
  15.     EstaCargadoTimer = True
  16. End If
  17. Exit Function
  18. NoEstaCargado:
  19. EstaCargadoTimer = False
  20. End Function