VFP+GIS(MapWinGIS)

lama ga post nih,,ok saya langsung aja nih,,saya lagi belajar-belajar ni nampilakn peta di vfp biar nambah ilmu ok langsung aja nih

1. Tentu saja, download MapWinGIS ActiveX Map Control, saat postingan ini disusun, dalam versi MapWinGIS-only-v4.8RC2-installer.exe. Jika perlu, download tutorial sekalian:UsingMapWinGIS.pdf

2. Install MapWinGIS-only-v4.8RC2-installer.exe tersebut
buat form. terlebih dahulu masukkan control map nya
jika belum ada di Form Controls Toolbar (ActiveX Controls), maka centang dulu melalui menu :
Tools > Options… > Controls

beri nama oleMap ok kemudian tambahkan command buttons, beri nama cmdLoad beri kode di init milik form untuk meResize ukuran layar.

—————————————————–

LOCAL lnBorder
lnBorder=5
This.cmdLoad.Top=This.Height-This.cmdLoad.Height-lnBorder
This.cmdLoad.Left=This.Width-This.cmdLoad.Width-lnBorder
This.cmdLoad.Anchor=12 &&Right & Bottom Absolut

This.oleMap.Top=lnBorder
This.oleMap.Left=lnBorder
This.oleMap.Width=This.Width-(2*lnBorder)
This.oleMap.Height=This.Height-(This.Height-This.cmdLoad.Top)-(2*lnBorder)
This.oleMap.Anchor=15
-------------------------------------
----------script untuk di commandbottun(cmdload)----------------
LOCAL loShape,lcSHPFile,lcMapDir
loShape=CREATEOBJECTEX("MapWinGIS.Shapefile","","")
lcSHPFile=GETFILE('Peta (*.shp):shp','Pilih Peta:','Open',0,'Buka Peta')
IF !EMPTY(lcSHPFile)
   loShape.Open(lcSHPFile,.Null.)
   ThisForm.oleMAP.AddLayer(loShape,.T.)
ENDIF
---------------------------------------------------------------


ok moga sukses selalu met mencobaa
sumber : http://www.kaskus.us/showthread.php?t=4010269&page=74

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: