Hello, I'm first time to contact version 3.0.453 RC2. I used version 2.x before.
Could someone tell me why it can't show completely? Is my code wrong?
And when I zoom out too much, the image of car is disappearance
.....delete some code....
LayerOverlay.Layers.Add(all_town)
LayerOverlay.Layers.Add(all_river)
Dim carLayer As New InMemoryFeatureLayer()
carLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle.PointType = PointType.Bitmap
carLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle.Image = New GeoImage("D:\GIS\D1.gif")
carLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
Dim dynamicOverlay As New LayerOverlay()
dynamicOverlay.Layers.Add("PointLayer", carLayer)
WinformsMap1.Overlays.Add("PointOverlay", dynamicOverlay)
WinformsMap1.Overlays.Add(LayerOverlay)
WinformsMap1.CurrentExtent = New RectangleShape(121, 25, 122, 22)
WinformsMap1.Refresh()
....when click button----
Private Sub focus_b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles focus_b.Click
Dim longitude As Double = Convert.ToDouble(TextBox1.Text, CultureInfo.InvariantCulture)
Dim latitude As Double = Convert.ToDouble(TextBox2.Text, CultureInfo.InvariantCulture)
Dim rectangle = New RectangleShape(longitude - 0.001, latitude + 0.001, longitude + 0.001, latitude - 0.001)
WinformsMap1.CurrentExtent = rectangle
Dim feature As New Feature(longitude, latitude, "Point1")
Dim pointLayer As InMemoryFeatureLayer = DirectCast(WinformsMap1.FindFeatureLayer("PointLayer"), InMemoryFeatureLayer)
If Not pointLayer.InternalFeatures.Contains("Point1") Then
pointLayer.InternalFeatures.Add("Point1", feature)
End If
WinformsMap1.Refresh()
End Sub
Private Sub btnZoomIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZoomIn.Click
WinformsMap1.ZoomIn(60)
WinformsMap1.Refresh()
End Sub
Private Sub btnZoomOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZoomOut.Click
WinformsMap1.ZoomOut(30)
WinformsMap1.Refresh()
End Sub