como crear objetos en tiempo de ejecucion para una encuesta

alex
16 de Abril del 2004
Necesito crear una encuenta de 100 preguntas, estas preguntas ya estan en un BD, lo importante del asunto es que existe diferentes posibles respuestas por pregunta, osea que en una pueden existir 3 opciones en otra 10, la idea es crear un solo formulario que contenga solo una pregunta pero que sea lo suficientemente inteligente para actualizar un OPtion Button dependiendo de la pregunta... AYUDA.

tencho
16 de Abril del 2004
Mira una manera sencilla de crear objetos en tiempo de ejecucion seria la siguiente: en un formulario coloca un CommandButton, un TextBox y un Label, la propiedad Index del Label establecela a 0.y copia el siguiente codigo:

Private Sub CrearControles(Agregar As Byte)
For i = 1 To Agregar
i = Label1.Count
Load Label1(i)
With Label1(i)
.Top = Label1(0).Top
.Caption = i
.Visible = True
.Left = Label1(i - 1).Left + 350
End With
Next i
End Sub
Private Sub DescargarControles(Borrar As Byte)
For i = Borrar To 1 Step -1
Unload Label1(i)
Next i
End Sub

Private Sub Command1_Click()
If Text1.Enabled Then
CrearControles (Len(Text1.Text))
Else
DescargarControles (Len(Text1.Text))
End If
Text1.Enabled = Not Text1.Enabled
End Sub

Private Sub Form_Load()
Label1(0).Visible = False
Label1(0).Font.Size = 14
Label1(0).FontBold = True
End Sub

* Fijate ke el label(0) no lo ocupo es solo para ke me deje crear los controles en tiempo de ejecucion