自定义放大倍数.mb

来自「很多的MAPINFO的常见问题下载后可以学习很有帮助」· MB 代码 · 共 22 行

include "mapbasic.def"
include "icons.def"

declare sub main
declare sub toolbtn_sub

sub main
	Create ButtonPad "testbtnpad" As 
		ToolButton Calling toolbtn_sub
			Icon MI_ICON_CROSSHAIR
			cursor MI_CURSOR_ZOOM_IN
			DrawMode DM_CUSTOM_LINE
end sub

sub toolbtn_sub
	dim currentzoom as float
	dim newzoom as float
	currentzoom = Mapperinfo(frontwindow(),MAPPER_INFO_ZOOM)
	newzoom = currentzoom*0.5
	set map zoom newzoom
end sub