关于比例尺控件的使用

<P>mo2.3,tracklayer 层里,使用教程代码</P>

<P>Private Sub refreshScale()<BR> <BR>ScaleBar1.MapExtent.MaxX = Map1.Extent.Right * Mx<BR> ScaleBar1.MapExtent.MinX = Map1.Extent.Left * Mx<BR> ScaleBar1.MapExtent.MaxY = Map1.Extent.Bottom * My<BR>ScaleBar1.MapExtent.MinY = Map1.Extent.Top * My<BR>   <BR> ScaleBar1.PageExtent.MinX = Map1.Left / Screen.TwipsPerPixelX<BR> ScaleBar1.PageExtent.MinY = Map1.Top / Screen.TwipsPerPixelY<BR>ScaleBar1.PageExtent.MaxX = (Map1.Left + Map1.Width) / Screen.TwipsPerPixelX<BR> ScaleBar1.PageExtent.MaxY = (Map1.Top + Map1.Height) / Screen.TwipsPerPixelY<BR> <BR>ScaleBar1.Refresh<BR> StatusBar1.Panels(1).text = "比例  1 : " ; Format$(ScaleBar1.RFScale, "###,###,###,###,###")<BR>End Sub</P>

<P>Private Sub Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, ByVal hdc As stdole.OLE_HANDLE)<BR>  Call refreshScale<BR>End Sub</P>

<P>显示不出来的比例尺</P>
<P>查阅帮助后,花一些时间做出来的一个方法</P>
<P>一,要安装的控件<BR>activex控件</P>
<P>comdlg32.ocx<BR>Actbar2.ocx(即是点击AB2Eval.exe安装) </P>
<P>全部安装在C:\WINDOWS\system32<BR>安装好后,用regsvr32进行手工注册:即右键点击两个控件,选择打开方式里,浏览选择用regsvr32.exe(C:\WINDOWS\system32内)打开</P>
<P>二选择要使用的部件<BR>工程/部件里全部选择:<BR>ESRImo三个部件<BR>Micresoft Windows Common Control6.0(SP3)</P>
<P>再工程/部件里浏览选择:Actbar2.ocx<BR></P>
<P><BR>Private Sub refreshScale()<BR>With ScaleBar1.MapExtent<BR>    .MinX = Map1.Extent.Left<BR>    .MinY = Map1.Extent.Bottom<BR>    .MaxX = Map1.Extent.Right<BR>    .MaxY = Map1.Extent.Top<BR>End With</P>
<P>With ScaleBar1.PageExtent<BR>    .MinX = Map1.Left / Screen.TwipsPerPixelX<BR>    .MinY = Map1.Top / Screen.TwipsPerPixelY<BR>    .MaxX = (Map1.Left + Map1.Width) / Screen.TwipsPerPixelX<BR>    .MaxY = (Map1.Top + Map1.Height) / Screen.TwipsPerPixelY<BR>End With</P>
<P>ScaleBar1.Refresh<BR> StatusBar1.Panels(1).Text = "比例  1 : " ; Format$(ScaleBar1.RFScale, "###,###,###,###,###")<BR> <BR> End Sub<BR></P>

<P>谢谢~~</P>
<P>我正需要这个~~~~</P>