dataloader.bas

来自「这个是grs源程序,mo在图象显示上很好,所以大家一定要下载」· BAS 代码 · 共 47 行

Attribute VB_Name = "modDataLoader"
Option Explicit

Public Sub DataLoader()
  
''This procedure is called by frmMain's Form_Load,
''and loads data for your end-user to see on startup.
''
''This procedure only loads data on startup.  The user
''can still use the tools provided to add more data
''at run-time.
'
'  Dim dc As New MapObjects2.DataConnection
'  Dim gds As MapObjects2.GeoDataset
'  Dim mlyr As New MapObjects2.MapLayer
'  dc.Database = App.path & "\..\data"
'  dc.Connect
'  Set mlyr.GeoDataset = dc.FindGeoDataset("states")
'  mlyr.Symbol.color = moLightGray
'  mlyr.tag = "[SHAPEFILE]" & dc.Database & "|" & mlyr.Name
'  frmMain.mapDisp.Layers.Add mlyr
'  Set mlyr = Nothing
'  Set mlyr = New MapObjects2.MapLayer
'  Set mlyr.GeoDataset = dc.FindGeoDataset("ushigh")
'  mlyr.Symbol.color = moRed
'  mlyr.Symbol.Size = 2
'  mlyr.tag = "[SHAPEFILE]" & dc.Database & "|" & mlyr.Name
'  frmMain.mapDisp.Layers.Add mlyr
'  Set mlyr = Nothing
'  Set mlyr = New MapObjects2.MapLayer
'  Set mlyr.GeoDataset = dc.FindGeoDataset("capitals")
'  mlyr.Symbol.color = moRed
'  mlyr.Symbol.style = moTriangleMarker
'  mlyr.tag = "[SHAPEFILE]" & dc.Database & "|" & mlyr.Name
'  frmMain.mapDisp.Layers.Add mlyr
'  Set mlyr = Nothing
'  Set mlyr = New MapObjects2.MapLayer
'  Set mlyr.GeoDataset = dc.FindGeoDataset("redlands")
'  mlyr.Symbol.color = moBlue
'  mlyr.tag = "[SHAPEFILE]" & dc.Database & "|" & mlyr.Name
'  frmMain.mapDisp.Layers.Add mlyr
''  Set mlyr.GeoDataset = dc.FindGeoDataset("milesqutm")
''  mlyr.Symbol.color = moBlue
''  frmMain.mapDisp.Layers.Add mlyr

End Sub