I've created an application that uses mp2k2. On the form I use a slider to control the zoom level; I set the map.altitude to 1 of 22 altitudes that I allow my users to view. In the form activate function I take a reading of the map.altitude property and align my zoom silder to the current altitude. The problem is that after adding pushpins to the map (I use custom symbols for the pushpins) the altitude will not return a value less than 93 when over the ocean or 1 when on land. If i set the altitude to 0 the map will display correctly however, I then bring up my about dialogue and close it. When it closes. it causes the form activate function to run and automatically zooms me out.
Code:
Private Sub Form_Activate()
Current_Zoom_Level = sensors.Altitude_To_Zoom_Level (MapMain.map.Altitude)
SetToCurrentZoomFactor True 'call function to update zoom slider
End Sub
.
.
.
Public Sub SetToCurrentZoomFactor(Optional FromTimer As Boolean = False)
MapMain.map.Altitude = Zoom_Level(Current_Zoom_Level) 'get altitude value that corresponds to zoom level
MapMain.Label_Zoom_Level = Current_Zoom_Level
MapMain.ZoomSlider.Value = Current_Zoom_Level
.
.
.
End Sub
So in summary after closing my dialogue window when a pushpin with a custom symbol is on the map the minimum value returned by map.altutude is 1 or 93 (depending weather I am on land or in the ocean).
05-21-2004
Linear Mode
