|
阅读：2146回复：5
帮我看看PageLayout中的这段代码
<P>帮我看看PageLayout中的这段代码,是VB+AO的.</P>
<P>我用以下的代码在PageLayoutControl中运行出错不能添加矩形,哪里不对?</P> <P>Private Sub Command11_Click()<BR> Dim pGraphicsContainer As IGraphicsContainer<BR> Set pGraphicsContainer = PageLayoutControl1.PageLayout<BR> <BR> Dim pEnv As IEnvelope<BR> Set pEnv = New Envelope<BR> pEnv.PutCoords 10, 10, 50, 50<BR> <BR> Dim pPoly As IPolygon<BR> Set pPoly = New Polygon<BR> <BR> Set pPoly = pEnv<BR> <BR> Dim pe As IPolygonElement<BR> Set pe = pPoly<BR> <BR> pGraphicsContainer.AddElement pe, 0<BR> <BR> PageLayoutControl1.ActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing<BR>End Sub</P> <img src="images/post/smile/dvbbs/em12.gif" /> |
|
|
1楼#
发布于：2005-09-21 12:26
<P>Private Sub Command1_Click()</P>
<P> Dim pGraphicsContainer As IGraphicsContainer<BR> Set pGraphicsContainer = PageLayoutControl1.PageLayout<BR> <BR> Dim pEnv As IEnvelope<BR> Set pEnv = New Envelope<BR> pEnv.PutCoords 10, 10, 50, 50<BR> Dim pE As IElement<BR> 'Dim pR As IRectangleElement<BR> Set pE = New RectangleElement<BR> pE.Geometry = pEnv<BR> pGraphicsContainer.AddElement pE, 0<BR> <BR> PageLayoutControl1.ActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing<BR>End Sub</P> |
|
|
|
2楼#
发布于：2005-09-21 14:41
<P>太感谢了!</P>
<P>还有一个问题,我该怎样改变矩形的颜色呢?</P> |
|
|
3楼#
发布于：2005-09-21 20:47
<P>其实在那个例子有现成的代码：</P>
<P> <CODE><FONT color=#0000ff>Dim</FONT></CODE> pElement <CODE><FONT color=#0000ff>As</FONT></CODE> IElement<BR><CODE><FONT color=#0000ff><BR> Set</FONT></CODE> pElement = <CODE><FONT color=#0000ff>New</FONT></CODE> RectangleElement<BR><BR> <CODE><FONT color=#008000>'Get the IRGBColor interface</FONT></CODE><BR> <CODE><FONT color=#0000ff>Dim</FONT></CODE> pColor <CODE><FONT color=#0000ff>As</FONT></CODE> IRgbColor<BR> <CODE><FONT color=#0000ff>Set</FONT></CODE> pColor = <CODE><FONT color=#0000ff>New</FONT></CODE> RgbColor<BR> <CODE><FONT color=#008000>'Set the color properties</FONT></CODE><BR> pColor.RGB = RGB(255, 0, 0)<BR> pColor.Transparency = 255<BR><BR> <CODE><FONT color=#008000>'Get the ILine symbol interface</FONT></CODE><BR> <CODE><FONT color=#0000ff>Dim</FONT></CODE> pOutline <CODE><FONT color=#0000ff>As</FONT></CODE> ILineSymbol<BR> <CODE><FONT color=#0000ff>Set</FONT></CODE> pOutline = <CODE><FONT color=#0000ff>New</FONT></CODE> SimpleLineSymbol<BR> <CODE><FONT color=#008000>'Set the line symbol properties</FONT></CODE><BR> pOutline.Width = 10<BR> pOutline.Color = pColor<BR><BR> <CODE><FONT color=#008000>'Set the color properties</FONT></CODE><BR> <CODE><FONT color=#0000ff>Set</FONT></CODE> pColor = <CODE><FONT color=#0000ff>New</FONT></CODE> RgbColor<BR> pColor.RGB = RGB(255, 0, 0)<BR> pColor.Transparency = 0<BR><BR> <CODE><FONT color=#008000>'Get the IFillSymbol properties</FONT></CODE><BR> <CODE><FONT color=#0000ff>Dim</FONT></CODE> pFillSymbol <CODE><FONT color=#0000ff>As</FONT></CODE> IFillSymbol<BR> <CODE><FONT color=#0000ff>Set</FONT></CODE> pFillSymbol = <CODE><FONT color=#0000ff>New</FONT></CODE> SimpleFillSymbol<BR> <CODE><FONT color=#008000>'Set the fill symbol properties</FONT></CODE><BR> pFillSymbol.Color = pColor<BR> pFillSymbol.Outline = pOutline<BR><BR> <CODE><FONT color=#008000>'QI for IFillShapeElement interface through the IElement interface</FONT></CODE><BR> <CODE><FONT color=#0000ff>Dim</FONT></CODE> pFillShapeElement <CODE><FONT color=#0000ff>As</FONT></CODE> IFillShapeElement<BR> <CODE><FONT color=#0000ff>Set</FONT></CODE> pFillShapeElement = pElement<BR> <CODE><FONT color=#008000>'Set the symbol property</FONT></CODE><BR> pFillShapeElement.Symbol = pFillSymbol<BR></P> |
|
|
|
4楼#
发布于：2005-09-22 08:31
<P>谢谢楼上!</P>
|
|
|
5楼#
发布于：2006-07-12 16:20
<P>我是找如何设置矩形填充为透明的，就像上面的代码，如果设置透明度为什么没用呢？</P>
<P><FONT face=仿宋_GB2312 color=#0000ff>Set</FONT> pColor = <CODE><FONT color=#0000ff>New</FONT></CODE> RgbColor<BR> pColor.RGB = RGB(255, 0, 0)<BR> pColor.Transparency = <STRONG>100 '为什么会没用呢</STRONG><BR><BR> <CODE><FONT color=#008000>'Get the IFillSymbol properties</FONT></CODE><BR> <CODE><FONT color=#0000ff>Dim</FONT></CODE> pFillSymbol <CODE><FONT color=#0000ff>As</FONT></CODE> IFillSymbol<BR> <CODE><FONT color=#0000ff>Set</FONT></CODE> pFillSymbol = <CODE><FONT color=#0000ff>New</FONT></CODE> SimpleFillSymbol<BR> <CODE><FONT color=#008000>'Set the fill symbol properties</FONT></CODE><BR> pFillSymbol.Color = pColor<BR> pFillSymbol.Outline = pOutline<BR></P> |
|