Visual Basic - Problema con scroll

Life is soft - evento anual de software empresarial
 
Vista:

Problema con scroll

Publicado por Scroll (34 intervenciones) el 05/03/2007 11:05:09
Hola a todos. Tengo un problema con un scroll. Tengo un formulario en el que he insertado un scrollablecontainer y en el que se encuentran varios textbox, combox y label, de forma que si se pulsa un botón que también está en el formulario pues se van insertando a continuación (debajo) en la matriz de control, nuevos controles.

El problema viene con el Scroll ya que no aparece de forma automática (como he puesto en las propiedades) cuando voy insertando elementos en el formulario.

El código que utilizo para insertar los nuevos controles es el siguiente:

Private Sub Label5_Click()

n = n + 1 'aumentamos el contador de campos
Oculta.Top = Oculta.Top + 500

indice = indice + 1 ' aumentamos el index
indice2 = indice2 + 1


Load TextCampo(indice) ' creamos el control
TextCampo(indice).Visible = True ' lo hacemos visible
TextCampo(indice).Top = TextCampo(indice - 1).Top + TextCampo(indice).Height + 120 ' movemos el control

Load Campo(indice2) ' creamos el control
Campo(indice2).Visible = True ' lo hacemos visible
Campo(indice2).Top = TextCampo(indice).Top

Load NumeroCampo(indice2) ' creamos el control
NumeroCampo(indice2).Visible = True ' lo hacemos visible
NumeroCampo(indice2).Caption = indice2
NumeroCampo(indice2).Top = TextCampo(indice).Top


Load Apartado(indice) ' creamos el control
Apartado(indice).Visible = True ' lo hacemos visible
Apartado(indice).Top = TextCampo(indice).Top

Load TextApartado(indice) ' creamos el control
TextApartado(indice).Visible = True ' lo hacemos visible
TextApartado(indice).Top = TextCampo(indice).Top

Load Naturaleza(indice) ' creamos el control
Naturaleza(indice).Visible = True ' lo hacemos visible
Naturaleza(indice).Top = TextCampo(indice).Top


Load ComboNaturaleza(indice) ' creamos el control
ComboNaturaleza(indice).Visible = True ' lo hacemos visible
ComboNaturaleza(indice).AddItem "observable"
ComboNaturaleza(indice).AddItem "medible"
ComboNaturaleza(indice).AddItem "comprobable"
ComboNaturaleza(indice).Top = TextCampo(indice).Top

End Sub

Pero claro tengo el problema que os comento.
¿Se puede solucionar?

Lo he intentado también en un Frame y tengo el mismo problema, y hasta en el propio formulario.
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