Mencari, Search dan Zoom Objek Peta MapInfo pada VB 6.0

Untuk program yang dibuat menggunakan VB 6.0 dan MapInfo, dapat diberikan fasilitas untuk pencarian titik di peta yang kemudian diikuti dengan zooming ke area yang dicari tersebut. Berikut ini kode programnya :

    Me.mapinfo.Do "Find using jalankotayogya(nama_jalan)"

    Me.mapinfo.Do "Find """ & Cari & """"

If (Val(mapinfo.eval("CommandInfo(3)")) >= 1) Then

        mapinfo.Do "Set Map Window " & mapid & " Center (CommandInfo(1), CommandInfo(2)) Zoom 0.35"

Harap maklum jika sedikit membingugkan, ini catatan pribadi penulis untuk digunakan dan di-share di saat dibutuhkan.