VB6 Управление скролбарами одной формы положением командной кнопки на другой форме

Redroks

Привет. Две формы, на первой командная кнопка, на второй два скролбара. Нужно посредством скролбаров менять положение кнопки в другой форме. Как сделать, не понимаю... Подобное есть тут(Изменяйте положение командной кнопки на форме с помощью горизонтальной и вертикальной полос прокрутки), но там в пределах одной формы.
4 ответа

Redroks

На первой форме два скролла, на второй - кнопка. Код первой формы
Private Sub Form_Load()
    HScroll1.Max = Me.Width - Form2.Command1.Width
    VScroll1.Max = Me.Height - Form2.Command1.Height - 500
    Form2.Command1.Top = 0
    Form2.Command1.Left = 0
    Form2.Show
End Sub
 
Private Sub VScroll1_Change()
    Form2.Command1.Top = VScroll1.Value
End Sub
 
Private Sub HScroll1_Change()
    Form2.Command1.Left = HScroll1.Value
End Sub


Redroks

Redroks, SoftIce,
VB6
ну если очень надо VB6, то пойду навстречу, накропал вам проект:Форма-1:
Private Sub Form_Load()
    Form2.HScroll1.Max = Me.Width - Command1.Width
    Form2.VScroll1.Max = Me.Height - Command1.Height - 500
    Command1.Top = 0
    Command1.Left = 0
    Form2.Show
End Sub
Форма-2:
Private Sub HScroll1_Scroll()
    Form1.Command1.Left = HScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
    Form1.Command1.Top = VScroll1.Value
End Sub


Redroks

Спасибо большое.


Redroks

Redroks, ссорри, проект забыл прилепить