Scroll Vertical Em Frame

[Guest - Aline -]

Alguém sabe como fazer para colocar um scrollbar vertical em um frame?

[Guest Guest]

Crie um form, com um frame. Dentro dele coloque 3 componentes "Text" e um Vscroll, depois copie o código abaixo e teste.

Public PosicaoScroll

Private Sub Form_Load()

PosicaoScroll = 0

VScroll1.Min = 0

'' Max = posicão do último componente do frame

VScroll1.Max = Text3.Top + Text3.Height

VScroll1.SmallChange = 120

VScroll1.LargeChange = 480

VScroll1.Value = 0

End Sub

Private Sub VScroll1_Change()

Dim pos

pos = VScroll1.Value - PosicaoScroll

PosicaoScroll = VScroll1.Value

For Each X In Frame1.Container

If X.Name <> "Frame1" And X.Name <> "VScroll1" Then

X.Top = X.Top - pos

End If

Next X

End Sub

Private Sub VScroll1_Scroll()

Dim pos

pos = VScroll1.Value - PosicaoScroll

PosicaoScroll = VScroll1.Value

For Each X In Frame1.Container

If X.Name <> "Frame1" And X.Name <> "VScroll1" Then

X.Top = X.Top - pos

End If

Next X

End Sub

[William Rodrigues]

- Aline - e Guest

Se cadastrem e ajudem a nossa comunidade a crescer ainda mais. Se cadastrando isso lhe traz muitos benefícios. Por exemplo fica muito mais fácil se comunicar com os membros, através da PM. Com ele você manda uma mensagem (como se fosse um EMail) e assim que a pessoa se logar ele vê a sua mensagem e assim poderá te ajudar mais rápido, as vezes, sem ao menos ter lido seu post

Abraços,

William Rodrigues