程序中读取ServerStyle文件

程序中读取ServerStyle文件

   Public   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

 

http://www.cnblogs.com/CiDonOu/archive/2007/05/23/757766.html

你可能感兴趣的:(String)