Vscroll

[Guest - Dargo -]

- Galera, é o seguinte, não to conseguindo fazer funcionar o svcroll,

usei o seguinte script que um colega me passou:

Option Explicit

Dim Valor As Integer

Private Sub Form_Load()

Valor = 0

VScroll1.Value = 0

VScroll1.Max = 10000

VScroll1.SmallChange = 100

VScroll1.LargeChange = 1000

End Sub

Private Sub VScroll1_Change()

Dim obj As Control

Valor = VScroll1.Value - Valor

For Each obj In Controls

If obj.Name <> VScroll1.Name Then

obj.Top = obj.Top - Valor

End If

Next obj

Valor = VScroll1.Value

End Sub

Mas ta dando erro nesta linha obj.Top = obj.Top + Valor

Objeto não permitido...bal bla bla (Não lembro do resto)

Alguém já teve problema parecido?

[Graymalkin]

Nem todos os objetos podem ter suas propriedades Top e Left alteradas. Quais outros objetos existem nesse form?

Abraços,

Graymalkin

[Guest - Dargo -]

- por enquanto:

2 textbox, 3 command button, 3 frames, 2 linhas, 5 labels,

tudo vai ser multiplicado por 8, ou mais. por isso do uso Vscroll.

Eu até coloquei um Resume next, mas até quando isto é válido?

por enquanto resolve, mas...

[Graymalkin]

Já sei qual o problema, o objeto Line não possui a propriedade Top. Para ser mais preciso, essa propriedade está dividida em duas outras, chamadas Y1 e Y2.

Abraços,

Graymalkin