对ArcEngine中运用到的样式ServerStyle文件进行编辑AddFile和RemoveFile方法出错

内容摘要

当一个应用程序中调入*.ServerStyle文件后，再用IStyleGalleryStorage的AddFile和RemoveFile方法出错。

过程描述

'如果*.ServerStyle文件调入后又没有用TargetFile方法设置成其他，则再试使用时出错，哪AddFile方法、RemoveFile方法，将出错，测试环境VB6.0+ArcEngine DEV 9.1 Private Sub Command1_Click()    Dim aaa As IStyleGallery     Set aaa = New ServerStyleGallery     Dim bbb As IStyleGalleryStorage     Set bbb = aaa     bbb.AddFile App.Path & "Transportation.ServerStyle"           bbb.RemoveFile App.Path & "Transportation.ServerStyle"     aaa.Clear     Set aaa = Nothing End Sub Private Sub Form_Load()     Dim a As IStyleGallery     Set a = New ServerStyleGallery     Dim b As IStyleGalleryStorage     Set b = a     b.TargetFile = App.Path & "Transportation.ServerStyle"     MsgBox b.CanUpdate(App.Path & "Transportation.ServerStyle")     Dim symbol As IMarkerSymbol     Set symbol = New SimpleMarkerSymbol        Dim item As IStyleGalleryItem     Set item = New ServerStyleGalleryItem     item.item = symbol     item.Category = "Guide Sign"     item.Name = "Test"     a.AddItem item     b.RemoveFile App.Path & "Transportation.ServerStyle"    '如果不设置下面这句，将出错    b.TargetFile = "d:/df.serversytle"     a.Clear     Set a = Nothing     Set b = Nothing     'b.TargetFile = "" 不能设为空 End Sub