cómo agregar un objeto image en tiempo de ejecucion?
rocio
07 de Diciembre del 2003
Espero me puedan ayudar, necesito agregar un cuadro de imagen en tiempo de ejecución, ya sé que puedo ponerlo invisible, pero creanme... esto no me sirve...
Saludos! = )
Saludos! = )
Juan
07 de Diciembre del 2003
Para crear controles en tiempo de ejecución
necesitas tener una matriz de controles. Te pongo
un ejemplo, introduce un commandbutton y un
picturebox con la propiedad index=0(para que sea una matriz).
Después inserta este código:
Private Sub Command1_Click()
'crea un nuevo picture1
Load Picture1(Picture1.Count)
'Lo coloca en su sitio y lo hace visible
With Picture1(Picture1.Count - 1)
.Top = .Top + .Height * (Picture1.Count - 1)
.Visible = True
End With
End Sub
Verás que al hacer click al botón aparece un picturebox
inmediatamente debajo del anterior.
necesitas tener una matriz de controles. Te pongo
un ejemplo, introduce un commandbutton y un
picturebox con la propiedad index=0(para que sea una matriz).
Después inserta este código:
Private Sub Command1_Click()
'crea un nuevo picture1
Load Picture1(Picture1.Count)
'Lo coloca en su sitio y lo hace visible
With Picture1(Picture1.Count - 1)
.Top = .Top + .Height * (Picture1.Count - 1)
.Visible = True
End With
End Sub
Verás que al hacer click al botón aparece un picturebox
inmediatamente debajo del anterior.