AccessTr.neT

Merhaba arkadaşlar,
Ben, form üzerinde fareyi taşıdığım yerin koordinatını bir metin kutusunda görmek istiyorum. "Eğer fare (x1;x2) ile(y1;y2) arasında bir konumda ise Etiket1 in fon rengini kırmızı yap" demeye çalışıyorum. Böylelikle bir üst menü hazırlamaya çalışacağım. Amatörce belki ama ben de amatörüm zaten
Yardım ederseniz sevinirim.

çalışmana 1 adet metin kutusu ekle ve kordinatları bulmak için;

Private Sub Metin0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Metin0 = "Fare  Dikey : " & Y & " Yatay : " & X

End Sub

kodunu kullan

Bunun için form koordinatlarına ihtiyacın yok...

MouseMove olayı istediğini yapmanı sağlar...

Örnek ektedir...

bu arada küçük bir hatırlatma;

farenin koordinatta aldığı değer(x1;x2) - (y1;y2) şeklinde değil
(X;Y) şeklindedir.