Hacer una matriz de controles combo
Tengo tres combobox relacionados entre si en un formulario mediante el texto:
Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.ListIndex
Case 0
Combo2.AddItem "100"
Combo2.AddItem "200"
Case 1
Combo2.AddItem "300"
Combo2.AddItem "400"
End Select
End Sub
Private Sub Combo2_Click()
Combo3.Clear
Select Case Combo2.ListIndex
Case 0
Combo3.AddItem "11"
Combo3.AddItem "22"
Case 1
Combo3.AddItem "33"
Combo3.AddItem "44"
End Select
End Sub
Private Sub Form_Load()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo1.AddItem "acero"
Combo1.AddItem "fundición"
End Sub
Me gustaría poder copiar en el formulario los tres controles varias veces creando una matriz de controles. Pero al copiar el objeto y pegarlo me da error.
¿Cómo lo puedo hacer?
Muchas gracias.
Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.ListIndex
Case 0
Combo2.AddItem "100"
Combo2.AddItem "200"
Case 1
Combo2.AddItem "300"
Combo2.AddItem "400"
End Select
End Sub
Private Sub Combo2_Click()
Combo3.Clear
Select Case Combo2.ListIndex
Case 0
Combo3.AddItem "11"
Combo3.AddItem "22"
Case 1
Combo3.AddItem "33"
Combo3.AddItem "44"
End Select
End Sub
Private Sub Form_Load()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo1.AddItem "acero"
Combo1.AddItem "fundición"
End Sub
Me gustaría poder copiar en el formulario los tres controles varias veces creando una matriz de controles. Pero al copiar el objeto y pegarlo me da error.
¿Cómo lo puedo hacer?
Muchas gracias.
1 Respuesta
Respuesta de Roberto Alvarado
