为什么我在textbox中保存的文本格式用textbox显示就可以原样,用label显示回车等就失效.

Question

給你寫個Function:
Private Function TranLabel(ByVal str As String) As String       
        str = str.Replace(vbCrLf, "<br>")       
        str = str.Replace("\t", "<br>")
          str = str.Replace(" ", "&nbsp;")            TranLabel = str
    End Function
label1.text=TranLabel(userdata.Tables("newslist").Rows(0).Item("news_memo"))

Answer 1

Private Function TransferString(ByVal str As String) As String            Str = Str.Replace("<", "&lt;")
            Str = Str.Replace(">", "&gt;")
            Str = Str.Replace("'", "''")
            Str = Str.Replace(" ", "&nbsp;")
            Str = Str.Replace("\n", "<br>")
            Str = Str.Replace("\r\n", "<br>")
            Str = Str.Trim()
            Return str
        End Function
private string formatString(string str)
{
str=str.Replace(" ","&nbsp;");//处理空格
str=str.Replace("<","&lt;");//处理小于号
str=str.Replace(">","&gt;");//处理大于号
str=str.Replace("\n","<br/>");//处理换行
return str;
}