[求助]用 Lable 如何分段 - 编程论坛

#2

cyyu_ryh2007-08-03 17:34

'格式化用户输入信息,保持用户留言的格式
Private Function HTMLEncode(ByVal str As String)
str = str.Replace(">", ">")
str = str.Replace("<", "<")
Dim ch As String
ch = (char)32
str = str.Replace(ch.ToString(), " ")
ch = (char)34
str = str.Replace(ch.ToString(), """)
ch = (char)39
str = str.Replace(ch.ToString(), "&#39")
ch = (char)13
str = str.Replace(ch.ToString(), "")
ch = (char)10
str = str.Replace(ch.ToString(), "<br>")
Return True
End Function

ss为输入的文本
string ss = HTMLEncode(Textbox1.text)

#3

scindy2007-08-03 17:48

接下来用LABEL1.TEXT=SS

是这样吗?

#4

scindy2007-08-03 17:50

接下来用label1.text=ss

是这样吗?

#5

scindy2007-08-03 18:12

提示(char)是类型,不是表达式.

能再帮忙解决一下吗?

还有就是如何用label来调用这个函数呢?

label1.text=HTMLEncode(container.dataitem("newdetail"))

是这样吗?

#6

tiaoyuan2007-08-04 18:56

Private Function HTMLEncode(ByVal str As String)
str = str.Replace(">", ">")
str = str.Replace("<", "<")
Dim ch As String
ch = (char)32
str = str.Replace(ch.ToString(), " ")
ch = (char)34
str = str.Replace(ch.ToString(), """)
ch = (char)39
str = str.Replace(ch.ToString(), "&#39")
ch = (char)13
str = str.Replace(ch.ToString(), "")
ch = (char)10
str = str.Replace(ch.ToString(), "<br>")
Return True
End Function

这好像像asp里那样做吧。。。

但在asp.net里，这段话是怎样放置。