Visual Basic + ArcView

Seperti pada tulisan sebelumnya yaitu Delphi + ArcView, pada tulisan kali ini juga akan sedikit di bahas code untuk pemetaan menggunakan ArcView dengan bahasa VB 6.0

Contoh Kode yang sangat penting yaitu:

Zoom Full Extent
momap.Extent = momap.FullExtent

Zooin In
Dim recExtent As MapObjectsLT2.Rectangle
Set recExtent = momap.Extent
recExtent.ScaleRectangle (2) 'ZOOM IN
Set momap.Extent = recExtent

Zoom Out
Dim recExtent As MapObjectsLT2.Rectangle
Set recExtent = momap.Extent
recExtent.ScaleRectangle (0.5) 'ZOOM OUT
Set momap.Extent = recExtent

Zoom
momap.MousePointer = MapObjectsLT2.moZoom


Untuk Menambah Layer prosedur ini mungkin bisa membantu:

Private Sub AddLayer(FileName, Name As String, visible As Boolean, Syswarna As OLE_COLOR)
Dim mapLayer As New MapObjectsLT2.mapLayer
mapLayer.File = FileName
mapLayer.Name = Name
mapLayer.visible = True
If mapLayer.Valid Then
With mapLayer.Symbol
.Color = Syswarna
End With
If Not momap.Layers.Add(mapLayer) Then
MsgBox "Error adding MapLayer " & mapLayer.Name
End If
End If
End Sub

Keterangan Lebih Lanjut bisa hubungi di E-mailku