作者：竹林
发表时间：2006-4-12 11:35:44

我用vs.net 写了一个程序是简单发布一副地图，但是总是有问题出现

代码如下:

  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim objMapSvrMngr 'The map server manager object
        Dim objMapSvr 'The map server object
        TextBox1.Text = "1"
         objMapSvrMngr = Server.CreateObject("GMWebMap.MapServerManager")
           objMapSvr = objMapSvrMngr.Mapserver("")
           objMapSvr.Clear()

        Dim minp, maxp 'Upper right and lower left corner points
        Dim x, y 'Temporary point values
        Dim objAutoScale 'AutoScale rule
        TextBox3.Text = "2"
   
        objMapSvr.SetCoordinateSystem("C:\Program Files\GeoMedia Web Map\Cfg\USA.csf")

          objMapSvr.Connect("Access.GDatabase", "F:\GWMDemo\Warehouses\USDemo.mdb", "", "USA")
             objMapSvr.BackgroundColor = RGB(255, 255, 255)
              objAutoScale = objMapSvr.AddRangeAutoScale("AS1")
            objAutoScale.Multiplier = 1
        TextBox2.Text = "3"

        Dim objQry 'The Query object
        Dim objDisplayRule 'The display rule for the States query
        Dim objSym 'Symbology object for the States display rule
        TextBox4.Text = "4"
           objQry = objMapSvr.AddQuery("StateQuery", "USA", "States")
             objDisplayRule = objQry.NewDisplayRule

         objSym = objMapSvr.CreateObject("GMWebMap.GWMFeatureSymbology")
        objSym.Color = RGB(55, 0, 200)
        objSym.Weight = 1
        objSym.Style = 0
        objSym.FillColor = RGB(255, 255, 204)
         objDisplayRule.DisplaySymbology = objSym
        TextBox5.Text = "5"

      '到这个地方了，ＩＥ提示找不到objSym!我什么组件没有添加上吗？还请各指点

      
    End Sub

作者：竹林
发表时间：2006-4-13 8:37:33

问题已解决．是权限的问题和导入组件的问题

发表您的观点，进入该主题参与讨论...