I would like to give color to the map with new category. to make must make previous expression. I've tried but still failed. What is wrong ? Please help me.
Dim category As MapWinGIS.ShapefileCategory = sf.Categories.Add("Manual")Dim ad As String = "Alaska"Dim UniqueShape As New MapWinGIS.ShapefileUniqueShape = FormMain.AxMapMain.get_GetObject(idx)Dim af As String = UniqueShape.Table.Field(1).NameConst cote As String = """"'failed' category.Expression = "[STATE_NAME] = """ + ad + """"'failed' category.Expression = "[STATE_NAME] """""'failedcategory.Expression = "[" + af + "] = " + ad'failedcategory.Expression = "[STATE_NAME] = " & cote & "Alaska" & cote'failed'category.Expression = "[STATE_NAME] = ""Alaska"""Dim utils As New MapWinGIS.Utilscategory.DrawingOptions.FillColor = utils.ColorByName(MapWinGIS.tkMapColor.Magenta)sf.Categories.ApplyExpression(0)sf.DefaultDrawingOptions.Visible = False' FormMain.AxMapMain.AddLayer(sf, True)FormMain.AxMapMain.Redraw()FormMain.AxMapMain.Refresh()
أكثر...
Dim category As MapWinGIS.ShapefileCategory = sf.Categories.Add("Manual")Dim ad As String = "Alaska"Dim UniqueShape As New MapWinGIS.ShapefileUniqueShape = FormMain.AxMapMain.get_GetObject(idx)Dim af As String = UniqueShape.Table.Field(1).NameConst cote As String = """"'failed' category.Expression = "[STATE_NAME] = """ + ad + """"'failed' category.Expression = "[STATE_NAME] """""'failedcategory.Expression = "[" + af + "] = " + ad'failedcategory.Expression = "[STATE_NAME] = " & cote & "Alaska" & cote'failed'category.Expression = "[STATE_NAME] = ""Alaska"""Dim utils As New MapWinGIS.Utilscategory.DrawingOptions.FillColor = utils.ColorByName(MapWinGIS.tkMapColor.Magenta)sf.Categories.ApplyExpression(0)sf.DefaultDrawingOptions.Visible = False' FormMain.AxMapMain.AddLayer(sf, True)FormMain.AxMapMain.Redraw()FormMain.AxMapMain.Refresh()
أكثر...