Code:
mi.do "Run Application ""C:\MyMap.WOR"""
By using this method I can shows the workspace...
mi.do "Run Application ""C:\MyMap.WOR"""
dim mi as object
mi=createobject("Mapinfo.Application")
mi.do "Open Table ""MyTable.TAB""
mi.do "Run Application ""MyWorkspace.WOR""
Global sTable, sLegendTitle, sLegendSubtitle as String Global aColumn as Alias Global iNumberOfRanges as Integer sTable = "MapTable" aColumn = "Population" iNumberOfRanges
shade 1 with Thn_Tnm ignore "" values "1995" Brush (2,16752800,16777215) , "1996" Brush (2,16777104,16777215) , "1997"
dim a as integer
private a as integer
Run Application "C:\MyMap.WOR"
Leave a comment: