阅读:1292回复:1
栅格数据的添加问题
<P>请教高手:</P>
<P> 根据acrEngine里带的例子</P> <P><FONT color=#0000ff>Private Sub</FONT> AddRasterLayer(<CODE><FONT color=#0000ff>ByVal</FONT></CODE> map <CODE><FONT color=#0000ff>As</FONT></CODE> IMap, <CODE><FONT color=#0000ff>ByVal</FONT></CODE> rasterDataset <CODE><FONT color=#0000ff>As</FONT></CODE> IRasterDataset) <CODE><FONT color=#008000>'rasterDataset represents a RasterDataset or a SdeRasterDataset object.</FONT></CODE> <CODE><FONT color=#008000>'Create a raster layer. Use CreateFromRaster </FONT></CODE> <CODE><FONT color=#008000>'method when creating from a Raster. </FONT></CODE> <CODE><FONT color=#0000ff>Dim</FONT></CODE> <FONT style="BACKGROUND-COLOR: #316ac5" color=#ffffff>rasterLayer</FONT> <CODE><FONT color=#0000ff>As</FONT></CODE> IRasterLayer = <CODE><FONT color=#0000ff>New</FONT></CODE> RasterLayerClass <FONT style="BACKGROUND-COLOR: #316ac5" color=#ffffff>rasterLayer</FONT>.CreateFromDataset(rasterDataset) <CODE><FONT color=#008000>'Add the raster layer to Map </FONT></CODE> map.AddLayer(<FONT style="BACKGROUND-COLOR: #316ac5" color=#ffffff>rasterLayer</FONT>) <CODE><FONT color=#008000>' QI for availabilty of the IActiveView interface for a screen update </FONT></CODE> <CODE><FONT color=#0000ff>Dim</FONT></CODE> activeView <CODE><FONT color=#0000ff>As</FONT></CODE> IActiveView = <CODE><FONT color=#0000ff>DirectCast</FONT></CODE>(map, IActiveView) <CODE><FONT color=#0000ff>If Not</FONT></CODE> activeView <CODE><FONT color=#0000ff>Is Nothing Then</FONT></CODE> activeView.Refresh() <CODE><FONT color=#0000ff>End If End Sub</FONT></CODE></P> <P><CODE><FONT color=#0000ff>---------------------</FONT></CODE></P> <P><CODE><FONT color=#0000ff>其中Dim<FONT color=#000000> </FONT><FONT style="BACKGROUND-COLOR: #316ac5" color=#ffffff>rasterLayer</FONT><FONT color=#000000> </FONT><CODE><FONT color=#0000ff>As</FONT></CODE><FONT color=#000000> IRasterLayer = </FONT><CODE><FONT color=#0000ff>New</FONT></CODE><FONT color=#000000> RasterLayerClass</FONT> 这行数据老是出现错误,不知道为什么.(加了引用也这样)</FONT></CODE></P> |
|
1楼#
发布于:2004-12-14 08:43
<P>你把这两句话分开写:</P><P>dim rasterLayer as IRasterLayer</P><P>set rasterLayer =new RasterLayerClass</P><P>如果还是出错的话,就去检查一下你传入的参数是否正确。另外,它报的错误信息是什么?</P>
|
|