Visual Basic - Crear nuevos controles en tiempo de ejeceución

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Crear nuevos controles en tiempo de ejeceución

Publicado por David (27 intervenciones) el 02/08/2003 17:18:00
Hola,

¿Cómo puedo crear y visualizar una etiqueta, botón, textbox…etc en tiempo de ejecución?, es decir, quiero que cuando se esté ejecutando un programa, el usuario pueda seleccionar la posibilidad de insertar una nueva etiqueta que en un principio no existía. Ejemplo: quiero que en un formulario que sólo tiene un botón y una etiqueta, al pulsar el botón se cree otra etiqueta.

Gracias.
David.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Crear nuevos controles en tiempo de ejeceución

Publicado por Cecilia Colalongo (3116 intervenciones) el 02/08/2003 17:35:30
Revisa la instrucción Load y la propiead Index, lo puedes hacer con una matriz de controles. En la MSDN tienes éste ejemplo:

Private Sub OptButton_Click (Index As Integer)
Dim H, W ' Declare variables.
Picture1.Cls ' Clear picture.
Picture1.FillStyle = Index ' Set FillStyle.
W = Picture1.ScaleWidth / 2 ' Get size of circle.
H = Picture1.ScaleHeight / 2
Picture1.Circle (W, H), W / 2 ' Draw circle.
End Sub

Private Sub Command1_Click ()
Static MaxIdx ' Largest index in array.
If MaxIdx = 0 Then MaxIdx = 1 ' Preset MaxIdx.
MaxIdx = MaxIdx + 1 ' Increment index.
If MaxIdx > 7 Then Exit Sub ' Put eight buttons on form.
Load OptButton(MaxIdx) ' Create new item in array.
' Set location of new option button under previous button.
OptButton(MaxIdx).Top = OptButton(MaxIdx - 1).Top + 360
OptButton(MaxIdx).Visible = True ' Make new button visible.
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar