字串建構員 [2008_06_15_PM_05_16_31]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2008_06_15_PM_05_16_31]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
Public Class 字串建構員
    Private m_StringBuilder As System.Text.StringBuilder

    Public Sub 從最後面接上這個字串(ByVal 這個字串 As String)
        ' OK
        Me.SB.Append(這個字串)
    End Sub ' 從最後面接上這個字串

    Private ReadOnly Property SB() As System.Text.StringBuilder
        ' OK
        Get
            If Me.m_StringBuilder Is Nothing Then
                Me.m_StringBuilder = New System.Text.StringBuilder
            End If

            Return Me.m_StringBuilder
        End Get
    End Property

    Public Sub 清除您所管理的字串()
        ' OK
        Me.m_StringBuilder = Nothing
    End Sub ' 清除您所管理的字串

    Public Function 傳回你所管理的字串() As String
        ' OK
        Return Me.SB.ToString
    End Function

End Class ' 字串建構員

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2008_06_15_PM_05_16_31]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '