程序中读取ServerStyle文件

程序中读取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

 

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