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?
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