Ah...ga pake lama........ikuti langkah2 ini ya?
1. Buat form Tampilan seperti dibawah ini :2. membuat baris kode untuk yang digunakan untuk mendefinisikan objek OLE. tulis kode ne pada bagian paling atas dari form kode VB.
Dim objMi As Object
Dim BisaBuatObject As Boolean
3. Membuat code program KoneksiOleAutomation, taruh ja kode program ne tepat dibawah kode program OLE.
Sub KoneksiOleAutomation()
BisaBuatObject = True
On Error GoTo TidakBisaBuatObjApp
Set objMi = CreateObject("MapInfo.Application")
On Error GoTo 0
If (Not BisaBuatObject) Then
On Error GoTo TidakBisaAmbilObjApp
Set objMi = GetObject(, "MapInfo.Application")
On Error GoTo 0
End If
Exit Sub
TidakBisaBuatObjApp:
BisaBuatObject = False
Resume Next
TidakBisaAmbilObjApp:
MsgBox ("Tidak Dapat Mengambil Object MaPInfo")
Unload Me
End Sub
4. Membuat pogram untuk reparenting mapinfo, kode program ini dilakukan untuk mengeksekusi baris2 kode mapBasic agar bisa ditampilkan secara visual.
taruh ja program ne tepat dibawah program koneksioleautomasi.
Sub ReparentingMapInfo()
objMi.Do "Set Application Window " & Str$(frmMain.hWnd)
objMi.Do "Set Next Document Parent" & Str$(frmMain.hWnd) & "Style 1"
End Sub
5. setting pada form VB saat running agar langsung menge-link ke routine program diatas.
Private Sub Form_Load()
Call KoneksiOleAutomation
Call ReparentingMapInfo
End Sub
6. clik double pada button tampil, terus tulis program dibawah :
Private Sub btnTampil_Click()
objMi.Do "Close All"
objMi.Do "Open Table ""D:\Kuliah-q\Program TA\PROGRAM_FIX \GIS_MAPINFO_VB 6.0\PETA\Hotel.tab""As""Hotel"""
objMi.Do "Map From Hotel"
objMi.Do "Add Map Auto Layer Hotel"
End Sub
7. ne tampilan-nya..............