|
阅读：3357回复：9
ScaleBar为什么不显示？
<P>我用VB+MO在做比例尺的时候，添加了ScaleBar控件和ActiveBar控件，但运行的时候比例尺的显示，为什么呀？scaleBar的属性我也设置好了。Mapunits=2;Minticspace=0.4; scaleBarUnits=2;ScreenUnits=1: 请高手指教！</P>
|
|
|
1楼#
发布于：2006-10-07 18:20
<P>怎么没有回答哦？！晕~~~~</P><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em08.gif" />
|
|
|
2楼#
发布于：2006-10-07 21:06
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
|
|
|
3楼#
发布于：2006-10-11 17:57
没看到其他的程序，怎么好回答
|
|
|
4楼#
发布于：2006-10-11 22:32
<P>Private Sub refreshScale()<BR>sbScaleBar1.MapExtent.MaxX = Map1.Extent.Right<BR>sbScaleBar1.MapExtent.MinX = Map1.Extent.Left<BR>sbScaleBar1.MapExtent.MaxY = Map1.Extent.Bottom<BR>sbScaleBar1.MapExtent.MinY = Map1.Extent.Top</P>
<P><BR>sbScaleBar1.MapExtent.MinX = Map1.Left / Screen.TwipsPerPixelX<BR>sbScaleBar1.MapExtent.MinY = Map1.Top / Screen.TwipsPerPixelY<BR>sbScaleBar1.MapExtent.MaxX = (Map1.Left + Map1.Width) / Screen.TwipsPerPixelX<BR>sbScaleBar1.MapExtent.MaxY = (Map1.Top + Map1.Height) / Screen.TwipsPerPixelY</P> <P><BR>sbScaleBar1.Refresh<BR>StatusBar1.Panels(1).Text = "比例 1：" ; Format$(sbScaleBar1.RFScale, "###,###,###,###")<BR>End Sub</P> |
|
|
5楼#
发布于：2006-10-12 08:49
在Map1_AfterLayerDraw中有Call refreshScale语句吗？
|
|
|
6楼#
发布于：2006-10-12 12:19
<P>有的。估计是ActiveBar控件的问题，是不是加上ActiveBar控件去就可以呀，不要再进行对ActiveBar控件属性设置呀。</P>
|
|
|
7楼#
发布于：2006-11-15 14:09
是不是Top和Bottom谁大谁小理解错了？
<P>Map1.Extent.Top > Map1.Extent.Bottom</P>
<P>maxy = Map1.Extent.Top</P> <P>miny = Map1.Extent.Bottom</P> <P>是不是Top和Bottom谁大谁小理解错了？</P> |
|
|
|
8楼#
发布于：2007-05-29 18:33
<P>好像我也是同样的问题</P>
<P>代码差不多。</P> <P>不知道该怎么解决～</P> |
|
|
9楼#
发布于：2007-06-14 10:18
<P><BR><FONT size=2>axScaleBar1.PageExtent.MaxX = (axMap1.Left + axMap1.Width) / Screen.TwipsPerPixelX;<BR> <BR>axScaleBar1.PageExtent.MaxY = (axMap1.Top + axMap1.Height) / Screen.TwipsPerPixelY;</FONT></P>
<P><FONT size=2>我的程序也有这样的问题，Screen没有TwipsPerPixelY属性值？？？？</FONT></P> <P><FONT size=2>我加了ActiveBar和ScaleBar</FONT></P> |
|
