Autor Tema: Objetos (Leído 826 veces)

amicus · « **en:** Martes 9 de Marzo de 2004, 20:23 »

Hola!
Estoy preparando una aplicación en la que creo una coleccion de botones y me gustaría saber cómo puedo hacerlo para saber uno está ya cargado y si no, cargarlo. SEría algo como

if not ESTACARGADO(boton(i)) then load boton(i)

El problema es que no he encontrado por ningún lado la función/propiedad/método que me dice si existe o no.

Espero que podáis ayudarme!

Un saludo a todos y gracias

elmango80

Hola amicus!

Lo que puedes hacer es utilizar On Error de esta forma inentas cargar el objeto, si el objeto esta cargado te producira un error pero como tienes la sentencia On Error activado puedes detectar ese error y hacer lo que quieras...
El codigo seria algo mas o menos asi...

Código: Text

 
Private Sub CargarObjeto ()
 
     On Error GoTo ObjetoCargado
     Load Boton(I)
     Exit Sub
 
ObjetoCargado:
     Msg &#34;El objeto ya existe...&#34;
     Exit Sub
 
End Sub

--------------

SoloCodigo

Autor Tema: Objetos (Leído 826 veces)

amicus

Objetos

elmango80

Re: Objetos