|KB no longer maintained - MapViewer is a Legacy Product. Legacy Products are still supported, but no longer receive new features or updates. Many of MapViewer's features have been moved to Surfer. Please contact firstname.lastname@example.org with any questions.|
This article contains a sample script for creating a choropleth (hatch) map, changing some properties and adding a legend, and then switching to a bar map.
To run this script:
- Copy the script below, or click here to download the BAS file: Map.BAS.
- In a Windows Explorer window, navigate to C:\Program Files\Golden Software\MapViewer 8\Scripter.
- Double click on Scripter.exe to launch Scripter.
- Press Ctrl+A to select all of the existing lines then press Delete.
- If you copied this script, press Ctrl+V to paste it into Scripter. If you downloaded it, click File | Open, select the BAS file from your downloads directory, and click Open.
- Click Script | Run to run the script.
'=========================================== ' Map.BAS ' Demonstrates how to create a map and switch map types. '=========================================== Sub Main 'Creates an instance of the MapViewer Application object ' and assigns it to the variable named "MapViewerApp" Set MapViewerApp = CreateObject("MapViewer.Application") 'Makes the application main window visible MapViewerApp.Visible = True 'Assigns the location of the samples folder to the variable "InPath" InPath$ = MapViewerApp.ModuleFolder + "samples\" 'Creates a map document object, and assigns it to the variable named "doc" Set doc = MapViewerApp.Documents.Add(DocType:=mvDocPlot) 'Assigns the layer object to the variable named "LayersObj" Set LayersObj = doc.Layers 'Creates a hatch map object and assigns it to the variable named "HatchMap" Set HatchMap = doc.CreateHatchMap(InPath$ + "co2010.gsb", InPath$ + "co2010.dat", "", "", 1, 7, 5) 'Changes the drawing type to square HatchMap.DrawType = mvHatchDrawSquare 'Creates a legend for the map Set Legend = HatchMap.CreateLegend(-2,6) 'Switches from hatch map to bar map Dim Variables(1 To 3) As Long Variables(1) = 7 Variables(2) = 8 Variables(3) = 9 Set BarMap = doc.CreateBarMap(Variables,"", "", "", "", 1) 'Shows proportional bar heights BarMap.Proportional = True 'Changes to 3D bars BarMap.Bar3DFace = 1 End Sub
Updated May 1, 2018