UserForm Üzerindeki Haritada Gezinme

Bu dosya, bir UserForm üzerindeki resim (Image1) üzerinde fareyi gezdirdiğinizde, fare konumuna göre ikinci bir resmin kaydırıldığı bir örnek sunar. Fare tuşuna basılı tuttuğunuz sürece büyütülmüş görünüm gösterilir, tuşu bıraktığınızda görünüm kapanır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Boş bir çalışma sayfasıdır, veri ya da formül içermez.
• Module1: Formu açan EXC adlı makroyu barındırır.
• UserForm1: Image1 (ana resim), Image2 (kaydırılan resim), Frame1 (çerçeve) ve Label1, Label2, Label3 (koordinat etiketleri) nesnelerini kullanan form.

Makrolar​

• EXC: UserForm1 formunu açar. Dosyadaki tek başlatma makrosudur.
• UserForm_Activate: Form açıldığında Image1 içindeki resmi Image2 nesnesine de atar.
• Image1_MouseDown: Fare tuşuna basıldığında Frame1 ve Image2 görünür hale gelir.
• Image1_MouseMove: Fare hareket ettikçe X ve Y koordinatlarını Label1, Label2 ve Label3 etiketlerine yazar. Ardından X ve Y değerlerine göre Image2 nesnesinin Left ve Top konumunu hesaplayarak resmi kaydırır. Koordinat resmin sınırları içinde değilse konum değişmez.
• Image1_MouseUp: Fare tuşu bırakıldığında Frame1 ve Image2 tekrar gizlenir.

Kodda dosya silme, dışarıya bağlantı kurma gibi zararlı bir işlem görünmemektedir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile EXC makrosunu çalıştırın, UserForm1 açılır.
3. Resmin üzerinde fare tuşuna basılı tutun, büyütülmüş görünüm belirir.
4. Tuşu basılı tutarak fareyi gezdirin, görünüm fare konumuna göre kayar ve koordinatlar etiketlerde izlenir.
5. Tuşu bıraktığınızda görünüm kapanır.
6. Kendi haritanızı kullanmak için VBA editöründe UserForm1 üzerindeki Image1 nesnesinin Picture özelliğini değiştirin. Image2 resmi form açılırken otomatik olarak aynı görselle güncellenir.