Visual Basic - Crear controles en tiempo de ejecucion

Life is soft - evento anual de software empresarial
 
Vista:

Crear controles en tiempo de ejecucion

Publicado por David (7 intervenciones) el 16/12/2005 10:44:17
Necesito saber si es posible crear controles mediante codigo sin tener que
crear un control y cargarlo a partir de ese.

Graciaaaaassss
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 controles en tiempo de ejecucion

Publicado por diego (3 intervenciones) el 16/12/2005 14:51:47
si, por ejemplo

Dim WithEvents cmdObj1 As CommandButton
Dim altoP, anchoP, altoA, anchoA, altoI, anchoI, id As Integer

Private Sub Command1_Click()

If id = 0 Then id = 2
Set cmdobj2 = Form1.Controls.Add("VB.TextBox", "textp" & id)
Set cmdobj3 = Form1.Controls.Add("VB.TextBox", "texta" & id)
Set cmdobj4 = Form1.Controls.Add("VB.TextBox", "texti" & id)
cmdobj2.BackColor = TextP1.BackColor
cmdobj2.ForeColor = TextP1.ForeColor
cmdobj2.Text = ""
cmdobj3.Text = ""
cmdobj4.Text = ""
cmdobj2.BorderStyle = 1
cmdobj2.Left = anchoP
cmdobj3.Left = anchoA
cmdobj4.Left = anchoI
cmdobj2.Top = altoP
cmdobj3.Top = altoA
cmdobj4.Top = altoI
cmdobj2.Visible = True
cmdobj3.Visible = True
cmdobj4.Visible = True
id = id + 1
altoP = altoP + 500
altoA = altoA + 500
altoI = altoI + 500
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
anchoP = TextP1.Left
anchoA = TextA1.Left
anchoI = TextI1.Left
altoP = TextP1.Top + 500
altoA = TextA1.Top + 500
altoI = TextI1.Top + 500
End Sub

eso es un pequeño ejemplo q hice, pero todavia no profundice demasiado en ese temas asi qpreguntale a alguno q sepa mas! igual probalo!

Y A ESTO QUERIA AGREGAR SI ALGUIEN SABE COMO PUEDO HACER PARA Q EN TIEMPO DE EJECUCION ME KEDEN LOS TEXTBOX Q SE CREAN DENTRO DE UN FRAME YA CREADO.GRACIAS!
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