StringBuilder 例子

Imports System.Text
Public Class Form1

    Private Sub btnStringBuilder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStringBuilder.Click
        Dim ssb As New System.Text.StringBuilder
        ssb.Append("M")
        ssb.Append(txtStringBuilder.Text.ToString)
        ssb.Append("Q")
        MsgBox(ssb.Length)
        MsgBox("|" & ssb.ToString & "|")
        ssb.Remove(0, ssb.Length)
        MsgBox("|" & ssb.ToString & "|")
    End Sub
End Class