1 formu taşıyınca 2. Formun yeri değişsin

[ismailuguz]

Merhaba arkadaşlar
Form 1 i Mause ile hareket ettirince Form 2 de aynı oranda hareket etsin istiyorum. Yani 1. Formu taşıyınca 2. Formun sürekli 1. Formun sağ üst kısmında kalmasını istiyorum. Yardımcı olur musunuz
Teşekkür ederim

 

[muhasebeciyiz]

UserForm1’in koduna aşağıdakini ekle:

Private Sub UserForm_Initialize()   
    UserForm2.Show vbModeless
End Sub

Private Sub UserForm_Activate()   
    Call UpdateForm2Position
End Sub

Private Sub UserForm_Move()   
    Call UpdateForm2Position
End Sub

Private Sub UpdateForm2Position()   
    With UserForm2
        .Top = Me.Top
        .Left = Me.Left + Me.Width
    End With
End Sub

UserForm2 boş olabilir (sadece görünür olacak).
Form1 taşındığında tetiklenir.

 

[Muzaffer Ali]

Sayın @muhasebeciyiz VBA da UserForm Move olayı yok yani Private Sub UserForm_Move() yerine Private Sub UserForm_Layout() olayı kullanılmalı.