Estoy iniciando un proyecto en VisualBasic 6
, en el cual necesito que por medio de un botón se añadan más TextBox/CheckBox/ComboBox.
El problema es que al momento de añadirlos, se descompagina la pantalla.
Adjunto las imágenes para una mejor compresión:
Así es el formulario creado (Lo que está dentro del Frame se debe mostrar luego de presionado el botón. (El index en 0 y el visible en false)):
Cuando inicio la aplicación se ve así:
Y cuando presiono el botón sucede esto:
La idea es que se vea como en la primera imagen, en la que muestro el formulario creado.
Este es todo el código que utilizo:
Dim indice As Integer
Private Sub btnAñadir_Click()
indice = indice + 1 ' aumentamos el index
' frmAñadir
Load frmAñadir(indice) ' creamos el control
frmAñadir(indice).Visible = True ' lo hacemos visible
frmAñadir(indice).Top = frmAñadir(indice - 1).Top + frmAñadir(indice).Height ' movemos el control
'cmbAddTipo
Load cmbAddTipo(indice)
cmbAddTipo(indice).Visible = True
cmbAddTipo(indice).Top = cmbAddTipo(indice - 1).Top + cmbAddTipo(indice).Height
'txtAddPrefijo
Load txtAddPrefijo(indice)
txtAddPrefijo(indice).Visible = True
txtAddPrefijo(indice).Top = txtAddPrefijo(indice - 1).Top + txtAddPrefijo(indice).Height
'txtAddNumero
Load txtAddNumero(indice)
txtAddNumero(indice).Visible = True
txtAddNumero(indice).Top = txtAddNumero(indice - 1).Top + txtAddNumero(indice).Height
'checkAddPrincipal
Load checkAddPrincipal(indice)
checkAddPrincipal(indice).Visible = True
checkAddPrincipal(indice).Top = checkAddPrincipal(indice - 1).Top + checkAddPrincipal(indice).Height
'cmbAddVinculo
Load cmbAddVinculo(indice)
cmbAddVinculo(indice).Visible = True
cmbAddVinculo(indice).Top = cmbAddVinculo(indice - 1).Top + cmbAddVinculo(indice).Height
End Sub