|
阅读：1717回复：2
读符号出错，求肋，不知道代码哪行有问题？？
<P> Dim markname As String<BR> Dim pStyleGlry As ESRI.ArcGIS.Display.ServerStyleGallery<BR> Dim pEnumStyle As ESRI.ArcGIS.Display.IEnumStyleGalleryItem<BR> Dim pStyleItem As ESRI.ArcGIS.Display.IStyleGalleryItem<BR> Dim pStylePath As String<BR> 'Add the Civic.style to the IStyleGalleryStorage<BR> Dim pStylStor As ESRI.ArcGIS.Display.IStyleGalleryStorage<BR> pStylStor = pStyleGlry<BR> pStylePath = "c:\Program Files\ArcGIS\Styles\Caves.ServerStyle" 'pStylStor.DefaultStylePath ; "Civic.style"<BR> pStylStor.AddFile(pStylePath)<BR> pEnumStyle = pStyleGlry.Items("Marker Symbols", pStylePath, "Default")<BR> pStyleItem = pEnumStyle.Next()<BR> While Not pStyleItem Is Nothing<BR> markname = pStyleItem.Name()<BR> ListBox1.Items.Add(markname)<BR> pStyleItem = pStyleItem.Next()<BR> End While<BR>这是我读符号的代码</P>
<P>在 pStylStor.AddFile(pStylePath)时出错是</P> <P>“未处理的“System.NullReferenceException”类型的异常出现在 WindowsApplication1.exe 中。”</P> <P>不知道为什么，请高手帮忙谢谢！！！</P> <P>我是想把符号读出放到listbox里面</P> |
|
|
1楼#
发布于：2005-12-01 13:25
<P> 片段代码，参考</P>
<P> Set pStyleGal = New ServerStyleGallery<BR> Set pStyleStorage = pStyleGal<BR> pStyleStorage.TargetFile = App.Path ; "\water.ServerStyle"<BR> Set pEnumStyleGall = pStyleGal.Items("Marker Symbols", "", "")<BR> <BR> pEnumStyleGall.Reset<BR> Set pStyleItem = pEnumStyleGall.Next</P> |
|
|
2楼#
发布于：2005-12-01 15:00
<P>感谢GIS，我已经做好！！！！！！</P>
|
|
