Странное поведение VB

[ekaterina_tw]

Не могу понять в чем проблема,
вот код
Public Sub RestorePanel1VerticalScrollValue()
Me.Panel1.VerticalScroll.Value = Me.Panel1VerticalScrollValue()
End Sub

Me.Panel1VerticalScrollValue возвращает ноль.
но после выполнения этой функции значение Me.Panel1.VerticalScroll.Value не меняется, оно не становится равным нулю, а остается 31, как и было.
Кажется, что это невозможно, но тем не менее...

[Teslenko_EA]

Здравствуйте ekaterina_tw. что за контрол 'Panel1'? :
В любом случае, попробуйте передать ему фиксированное значение.

Код: Выделить всё

Dim i%
   i = 0
   Panel1.VerticalScroll.Value = i

Код: Выделить всё

Sub HScroll1_Scroll()
   VScroll1.Value = HScroll1.Value
End Sub

Стандартный VB Scroll с таким кодом работает, двигая вертикальную линейку при перемещении горизонтальной.
Евгений

[ekaterina_tw]

Евгений, спасибо за ответ.
Panel1 это UserControl, на нем 3 грида, мне нужно, чтобы при вертикальном скроллинге один грид оставался на месте, а при горизонтальном - другой грид не двигался. На Panel1 включен AutoScroll, я привела кусок кода, где пытаюсь восстанавливать сохраненное значение VScroll,
также пробовала писать
Panel1.Vscroll.Value = 0, аналогично, значение не меняется на ноль, а остается 31.

[Teslenko_EA]

Здравствуйте ekaterina_tw.
Проверьте в Object Browser (F2), свойства и методы доступные этому объекту.
Скорее всего ошибка "закралась" именно в правильности обращения к нему.
Евгений.
P.S. "UserControl" - библиотека ?

[ekaterina_tw]

Добрый день, Евгений,

Panel1 As System.Windows.Forms.Panel

свойство VerticalScroll унаследовано от ScrollableControls,
по идее должно устанавливаться.

Спасбо за внимание к моей проблеме.