.NET中栈和堆的比较 程序练习

 

    Private Sub test()Sub test()
        Dim pSymbol As ISymbol = CreateFillSymbol()
        Dim pFSE As IFillShapeElement = New PolygonElement
        pFSE.Symbol = pSymbol

        Dim pEle As IElement = pFSE
        pEle.Geometry = pPolygon

        pContainer.AddElement(pFSE, 0)

        pSymbol = Nothing
    End Sub

    Private Function CreateFillSymbol()Function CreateFillSymbol() As ISimpleFillSymbol
        Dim pLineSym As ISimpleLineSymbol = CreateLineSymbol()

        Dim pSym As ISimpleFillSymbol = New SimpleFillSymbol
        With pSym
            .Style = esriSimpleFillStyle.esriSFHollow
            .OutLine = pLineSym
        End With

        pLineSym = Nothing

        Return pSym
    End Function

    Private Function CreateLineSymbol()Function CreateLineSymbol() As ISimpleLineSymbol
        Dim pColor As IColor = New RgbColor()
        pColor.RGB = RGB(255, 0, 0)

        Dim pLineSym As ISimpleLineSymbol = New SimpleLineSymbol
        pLineSym.Color = pColor
        pLineSym.Width = 0.1

        pColor = Nothing

        Return pLineSym
    End Function