How do I change the zoom level for the Zoom in and out button in ArcPad 10.2

831
1
02-27-2017 04:51 PM
RamonaNavarrete
New Contributor

I have a custom ArcPad application and the zoom in and out button is zooming by a factor of 0.5 but I want it to be by 0.75. I thought I found the code which multiplies or divides the starting scale to zoom in and out. But when I change the multiplier the zoom level does not change. Any tips on where to look?

0 Kudos
1 Reply
MosquitoGIS
Occasional Contributor

I made some custom buttons that would change the extent.  Not sure if this is what you are looking for or not:  Here is the code for those buttons:

'When Plus sign is pressed
Sub btnZoomIn_OnClick
'Zoom in
Set extent = Map.Extent
extent.ScaleRectangle 0.5
Map.Extent = extent
End Sub


'When minus sign is pressed
Sub btnZoomOut_OnClick
'Zoom Out
Set extent = Map.Extent
extent.ScaleRectangle 2.0
Map.Extent = extent
End Sub

0 Kudos