VB.NET ラベル、テキストボックスを改行させる

たまにしかVisualStudio触らないので、すぐ忘れてしまいます。メモ。

下図の「コメント」欄のように、ラベル内テキストを改行させるために、vbCrを<br>に置換します。

 

※5行目と6行目の””の間には<BR>が入るですが、エスケープされないために、改行されてしまってます。

    Public Function strReplacevbCR2BR(ByVal strBef) As String

        Dim strReturn As String

        strReturn = Replace(strBef, vbCr, "
", 1, -1, CompareMethod.Text)

        Return strReturn

    End Function

データベースからバインドされた改行ありテキストを改行させる場合は、<BR>をvbCrに置換します。

 

※5行目と6行目の””の間には<BR>が入るですが、エスケープされないために、改行されてしまってます。

    Public Function strReplaceBR2vbCR(ByVal strBef) As String

        Dim strReturn As String

        strReturn = Replace(strBef, "
", vbCr, 1, -1, CompareMethod.Text)

        Return strReturn