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.
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


0