Skip to main content

AccessTr.neT


Form Koordinatını Görme

Form Koordinatını Görme

Çözüldü #1
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 Img-grin
Yardım ederseniz sevinirim.
Cevapla
Çözüldü #2
ç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
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #3
Bunun için form koordinatlarına ihtiyacın yok...

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

Örnek ektedir...
.rar Ornek.rar (Dosya Boyutu: 34,4 KB | İndirme Sayısı: 19)
Please return your positive or negative ...
Cevapla
Çözüldü #4
bu arada küçük bir hatırlatma;

farenin koordinatta aldığı değer(x1;x2) - (y1;y2) şeklinde değil
(X;Y) şeklindedir.
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task