程序中读取ServerStyle文件
Public
Sub ReadMarkerSymbolStyle()
Sub ReadMarkerSymbolStyle(ByVal serverStyleFile As String)
Dim pStyleGallery As IStyleGallery = New ServerStyleGallery()
Dim pStyleGalleryStorage As IStyleGalleryStorage = pStyleGallery
pStyleGalleryStorage.TargetFile = serverStyleFile
'遍历文件中的Marker Symbol
Dim pEnumSGItem As IEnumStyleGalleryItem = pStyleGallery.Items("Marker Symbols", "", "")
pEnumSGItem.Reset()
Dim pStyleItem As IStyleGalleryItem = pEnumSGItem.Next
While Not pStyleItem Is Nothing
Debug.WriteLine("Item Name:" & pStyleItem.Name & " Item Category:" & pStyleItem.Category)
pStyleItem = pEnumSGItem.Next
End While
'释放对象,否则下次调用时会发生异常
System.Runtime.InteropServices.Marshal.ReleaseComObject(pEnumSGItem)
End Sub
Dim pStyleGallery As IStyleGallery = New ServerStyleGallery()
Dim pStyleGalleryStorage As IStyleGalleryStorage = pStyleGallery
pStyleGalleryStorage.TargetFile = serverStyleFile
'遍历文件中的Marker Symbol
Dim pEnumSGItem As IEnumStyleGalleryItem = pStyleGallery.Items("Marker Symbols", "", "")
pEnumSGItem.Reset()
Dim pStyleItem As IStyleGalleryItem = pEnumSGItem.Next
While Not pStyleItem Is Nothing
Debug.WriteLine("Item Name:" & pStyleItem.Name & " Item Category:" & pStyleItem.Category)
pStyleItem = pEnumSGItem.Next
End While
'释放对象,否则下次调用时会发生异常
System.Runtime.InteropServices.Marshal.ReleaseComObject(pEnumSGItem)
End Sub
http://www.cnblogs.com/CiDonOu/archive/2007/05/23/757766.html