Como se Crean Objetos en Tiempo de Ejecucion

luzien
04 de Noviembre del 2003
Alguien me podria decir como se crean Objetos ( Label, checkbox) en tiempo de ejecucion

Baltasar
04 de Noviembre del 2003
Un método sencillo es crear un array sin dimensión, esto es:
Creas un label (Label1) y le pones la propiedad index a cero
y visible=false.

Luego, cada vez que necesites un label nuevo, haces lo siguiente:

load label1(x)
le asignas tamaño y posicion
label1(x).top= . . .
label1(x).left= . . .
label1(x).visible=true

siendo x un contador que comienza con 1, y va aumentando a medida que necesites más labels

lo mismo para los demás controles.

Suerte.

jeje
04 de Noviembre del 2003
sabes no me funciona muy bien tu forma de hacer objetos, quisa pudieras dar una mejor explicacion
atte. jeje

noesdificil
04 de Noviembre del 2003
Espero que te sirva el siguiente codigo.
'Primero declaras un array abierto redimensionable
dim lista_objetos() as object
dim cont as integer
' "cont" lleva la cuenta del n° de objetos creados
'lo iniciamos a 0
cont = 0
'haces tu codigo normal, y cuando necesites
'un nuevo objeto
cont = cont + 1
redim preserve lista_objetos(cont)
'ya hemos creado espacio para un nuevo objeto
set lista_objetos(cont) = CreateObject(TipoOb jeto)
'donde TipoObjeto es el objeto que quieras crear
'p. ej. : "VB.DriveListBox"
'....
'y cuando hayas acabado los liberas
dim i as integer
for i = 1 to cont
set lista_objetos(i) = nothing
next

Espero que te sirva
NoEsDificil