textbox定位好字所在位置的方法

用TEXTBOX控制输入文字后.插入数据库中总是无法按照原来的排版方式输出.

在写入数据库时将所输入的文字转换一下.

 
     Private   Function FormatString() Function FormatString(ByVal str As String) As String
        str = str.Replace(" ", "  ")
        str = str.Replace("<", "&lt;")
        str = str.Replace(">", "&gt;")
        str = str.Replace(ControlChars.Lf.ToString(), "<br>")
        Return str
    End Function

读出数据之后放在textbox里面的方法

   Private   Function FormatStringTB() Function FormatStringTB(ByVal str As String) As String
        str = str.Replace("&nbsp;&nbsp;", " ")
        str = str.Replace("&lt;", "<")
        str = str.Replace("&gt;", ">")
        str = str.Replace("<br>", ControlChars.Lf.ToString())
        Return str
    End Function