Visual Basic - Necesito un scroll bar en formularios hijos de MDI

Life is soft - evento anual de software empresarial
 
Vista:

Necesito un scroll bar en formularios hijos de MDI

Publicado por Robert (13 intervenciones) el 31/03/2004 00:09:35
A ver chic@s!!

Necesito hacer un formulario con scrool bar y no se como hacerlo,como soy bastante virgen en el terreno de la programacion no tengo la mas minima idea de como hacerlo.Si alguien puede ayudarme se lo agradecere.

Tb me vale si puedo poner dentro de un frame un scroolbar

Graciñas

pd:ya no hago mas preguntas por hoy
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

RE:Necesito un scroll bar en formularios hijos de

Publicado por Stump Kops (41 intervenciones) el 10/04/2004 00:10:19
Para que aparezcan las scroll bars en un formulario cualquiera hay que modificar el estilo de la ventana mediante la función SetWindowLong de la API de Win32. Por ejemplo:

Sub AgregarBarras()
Dim lStyle&

lStyle = GetWindowLong(hWnd, GWL_STYLE)
Call SetWindowLong(hWnd, GWL_STYLE, lStyle Or WS_VSCROLL Or WS_HSCROLL)

End Sub

De esta forma si hay un control (ventana hija del formulario) por fuera de los límites del formulario aparecerán los controles scroll bar horizontal y vertical.

Espero que te halla ayudado. Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Necesito un scroll bar en formularios hijos de

Publicado por gaston (1 intervención) el 28/09/2004 19:10:17
asi se pone un scroll bar dentro de un frame
````

Private Sub VScroll1_Change()
MoverObjetos VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
MoverObjetos VScroll1.Value
End Sub

\'No vuelve todos los objetos en realidas solo mueve el frame contenedor
Private Sub MoverObjetos(Valor As Integer)
\'Primer Nivel
\'Form1.Height = (1 - (Valor / 100)) * (Form1.Height + 30)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar