VI.    Posisi Lintang/Bujur

Sering penguna ingin tahu posisi suatu object yang sesungguhnya di dunia  ada di posisi bujur atau lintang berapa. Pada aplikasi Arcview, posisi ini berada pada bagian atas kanan dan nilainya berubah mengikuti posisi Mouse. Untuk memberikan keterangan ini, pada desain tampilan program berikutnya ditambah dengan Label di bagian atas legend seperti pada gambar 11.

 
Gambar 11. Desain tampilan yang telah ditambah Label untuk posisi lintang/bujur

MapObjects membuatkan fungsi ToMapPoint yang berfungsi men-convert suatu titik dalam layar menjadi lokasi aslinya di dunia. Lokasi asli ini juga berupa Point dan disini akan disimpan dalam variabel “P”. Dari variabel point inilah akan diambil X dan Y-nya. X akan dimasukkan pada Label3, dan Y dimasukkan pada label4. Karena posisi ini dibuat agar mengikuti gerakan mouse, maka kode untuk mengambil lokasi ini ditaruh di event MouseMove pada object map.

Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As _
                      Single, Y As Single)
    Dim p As MapObjects2.Point
    Set p = Map1.ToMapPoint(X, Y)
    Label3 = p.X
    Label4 = p.y
End Sub

Setelah dijalankan. cek program ini dengan cara menggerak-gerakkan mouse di peta. Jika di sebelah kanan atas terdapat nilai yang berubah-ubah mengikuti gerak mouse, berarti program berjalan dengan baik. Contoh tampilan saat mouse diletakkan di suatu tempat di peta adalah seperti gambar 11 dibawah.
 
 
Gambar 12. Contoh tampilan yang dilengkapi Posisi Lintang dan Bujur