Mouse'ın Tıklandığı Yerin Top ve Left Değerini Öğrenmek

[Ergün Güler]

Selam,
Bir Userform veya Nesneleri üzerine Mouse ile sağa ve sola tıkladığımızda MsgBox ile Mouse'ın tıklandığı yerin Top ve Left değerini nasıl öğrenebiliriz?

Yardımcı olabilir misiniz?
İyi çalımalar.

 

[Necdet]

Merhaba,

Tam olarak anladım mı bilmiyorum ama Userform 1 adet ListBox ve Combobox olduğunu varsayarak ve UserForm a tıklandığında bu nesnelerin Top ve Left değerlerini veren basit bir kod, inceleyiniz.

Private Sub UserForm_Click()
    MsgBox "Form Top        : " & Me.Top & Chr(10) & _
            "Form Left      : " & Me.Left & Chr(10) & _
            "ListBox Top    : " & ListBox1.Top & Chr(10) & _
            "ListBox Left   : " & ListBox1.Left & Chr(10) & _
            "ComboBox Top    : " & ComboBox1.Top & Chr(10) & _
            "ComboBox Left   : " & ComboBox1.Left
End Sub

 

[Ergün Güler]

Merhaba,

Tam olarak anladım mı bilmiyorum ama Userform 1 adet ListBox ve Combobox olduğunu varsayarak ve UserForm a tıklandığında bu nesnelerin Top ve Left değerlerini veren basit bir kod, inceleyiniz.

Private Sub UserForm_Click()
    MsgBox "Form Top        : " & Me.Top & Chr(10) & _
            "Form Left      : " & Me.Left & Chr(10) & _
            "ListBox Top    : " & ListBox1.Top & Chr(10) & _
            "ListBox Left   : " & ListBox1.Left & Chr(10) & _
            "ComboBox Top    : " & ComboBox1.Top & Chr(10) & _
            "ComboBox Left   : " & ComboBox1.Left
End Sub

Selam,
Çok teşekkür ederim. Ancak, istediğim bu değildi. Mouse'ın tıklandığı noktanın Top ve Left'ini bulmak istiyorum. Bunu birkaç amaç için istiyorum. Örneğin bir tanesi şu;

mouse'in ile tıkladığımda bir userform, label v.s. açılacak. Açılan pencerenin, nesnenin v.s. sol üst köşesi mouse'ın tıklandığı nokta olmasını sağlamalıyım.

Şimdiden teşekkürler.

 

[Ergün Güler]

Selam,

Yardımcı olabilecek kimse var mı?