以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用代码控制多行文本换行{已解决}  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41238)

--  作者:gsnake
--  发布时间:2013/10/14 22:53:00
--  用代码控制多行文本换行{已解决}
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2013-10-20 17:59:47编辑过]

--  作者:有点甜
--  发布时间:2013/10/14 23:01:00
--  
 呃,看了例子,不知道你先表达什么
--  作者:客人
--  发布时间:2013/10/14 23:03:00
--  
我换不了行!求助您老
--  作者:gsnake
--  发布时间:2013/10/14 23:06:00
--  
看看上面怪吗?成了客人了??

呵呵!我想点一次单选项,生成一行文本!!要换行!!
--  作者:有点甜
--  发布时间:2013/10/14 23:16:00
--  
 没办法的,你试试回车换行,然后离开,然后再回去,后面的回车是会被删除掉了的。

 可以变通为获得焦点的时候,插入一个回车。

--  作者:gsnake
--  发布时间:2013/10/14 23:29:00
--  
好了,甜老师!!这样就解决了

If e.sender.checked=True Then
    Dim tb As WinForm.TextBox = e.Form.Controls("TextBox1")
    If tb.text="" Then
        tb.text= e.sender.text  & "  : " & now
    Else
        tb.text=tb.text & chr(13) & chr(10) & e.sender.text  & "  : " & now
    End If
End If

--  作者:lsy
--  发布时间:2013/10/15 7:29:00
--  
If e.Sender.Checked = True Then
    e.Form.Controls("TextBox1").Text + = Vbcrlf & e.Sender.Text  & "  : " & Now
    e.Form.Controls("TextBox1").Text = e.Form.Controls("TextBox1").Text.Trim(Vbcrlf)
End If