- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 文本框显示不能换行？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=163350)
-- 发布时间：2021/4/24 11:26:00
-- 文本框显示不能换行？
For Each jt As Jtoken In joo
Dim jooo As JObject = JObject.Parse( jt.Tostring)
TX3.text+= jooo("unionid").tostring + Chr(13) + Chr(10)
Next
[此贴子已经被作者于2021/4/24 11:26:59编辑过]
-- 发布时间：2021/4/24 11:34:00
--
多行文本框才能换行：http://www.foxtable.com/webhelp/topics/1862.htm
TX3.text &= jooo("unionid").tostring & vbcrlf
-- 发布时间：2021/4/24 11:50:00
--
Dim jooo As JObject = JObject.Parse( jt.Tostring)
\'TX3.text+= jooo("unionid").tostring + Chr(13) + Chr(10)
TX3.MultiLine= True
TX3.text &= jooo("unionid").tostring & vbcrlf
Next
找到问题了 删除了尾空格
[此贴子已经被作者于2021/4/24 12:13:14编辑过]
-- 发布时间：2021/4/24 12:11:00
--
Dim jooo As JObject = JObject.Parse( jt.Tostring)
if TX3.text = "" then
TX3.text = jooo("unionid").tostring
else
TX3.text &= & vbcrlf & jooo("unionid").tostring
end if
Next