Visual Basic - asociar scrollbars a un contenedor!!

Life is soft - evento anual de software empresarial
 
Vista:

asociar scrollbars a un contenedor!!

Publicado por Juan Antonio (3 intervenciones) el 22/05/2007 09:48:34
Buenas, tengo un picturebox que lo uso como contenedor de otros controles y voy a ir creando controles en tiempo de ejecucion asi que como puedo asociarle al picturebox unas barras de desplazamiento??
Tengo el siguiente modulo, y en el load del formulario hago las siguientes llamadas:
sBarVisible Picturebox, Ambas, True
sBarEnabled Picturebox, Ambas, True

Las barras me aparecen pero no hacen nada, no que hacer y es muy importante, AYUDA!!

Constantes de barra de desplazamiento
Public Enum eBar
Horizontal = 0
Vertical = 1
Automatico = 2
Ambas = 3
End Enum

Private Declare Function EnableScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wSBflags As Long, ByVal wArrows As Long) As Long
Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Public Sub sBarVisible(ByVal cntrl As Variant, ByVal barras As eBar, ByVal visible As Boolean)
'Muestra/Oculta barras de desplazamiento
'cntrl: Control que deseamos atacar
'barras: Indica que barras queremos mostrar/ocultar
'Visible: True/False
Dim ret As Long
ret = ShowScrollBar(cntrl.hwnd, barras, visible)
End Sub

Public Sub sBarEnabled(ByVal cntrl As Variant, ByVal barras As eBar, ByVal enabled As Boolean)
'Habilita/Deshabilita
'cntrl: Control que deseamos atacar
'barras: Indica que barras queremos habilitar/deshabilitar
'Enabled: True/False
Dim ret As Long
ret = EnableScrollBar(cntrl.hwnd, barras, IIf(enabled, 0, &H3))
End Sub
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:asociar scrollbars a un contenedor!!

Publicado por Fabian (1 intervención) el 30/05/2007 16:37:08
Hola, yo tenia un problema parecido, queria cargar de forma dinamica unos controles dentro de un PictureBox y usar scrollbars para moverlos. Investigando encontre que luego modifique para que funcione con controles dentro del picture box solamente, pues fuera de el tengo otros controles que se deben quedar estáticos. Eso si te toca que usar los controls VScrollBar y HScrollBar

***************************************************

Private Sub Scroll()

Dim ctl As Control

On Local Error Resume Next


Static oldVpos As Long
Static oldHpos As Long


For Each ctl In Me.Controls
If (ctl.Container Is Picture1) Then

ctl.Top = ctl.Top + oldVpos - VScroll1.Value
ctl.Left = ctl.Left + oldHpos - HScroll1.Value

End If
Next

oldVpos = VScroll1.Value
oldHpos = HScroll1.Value

End Sub

Private Sub HScroll1_Change()
Scroll
End Sub

Private Sub VScroll1_Change()
Scroll
End Sub

***************************************************

El valor maximo para los scrollbar fue de 4700 y el smallchange fue de 200

Si te sirve o quieres el programita de prueba que hice escribeme al correo xenogears_2005@yahoo.es

Saludos
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:asociar scrollbars a un contenedor!!

Publicado por omar fernandez (1 intervención) el 07/09/2007 15:07:48
mira, tengo que hacer hacer un frame para que funcione tipo subformulario de access y quiero poner un vscrollbar en el contenedor pues son muchos datos, asi que plis pasame tu ejemplo asi puedo solucionar mi problema. gracias.
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