- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 用代码控制多行文本换行{已解决} (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41238)
-- 发布时间：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
--
我换不了行！求助您老
-- 发布时间：2013/10/14 23:06:00
--
看看上面怪吗？成了客人了？？
-- 发布时间：2013/10/14 23:16:00
--
没办法的，你试试回车换行，然后离开，然后再回去，后面的回车是会被删除掉了的。
可以变通为获得焦点的时候，插入一个回车。
-- 发布时间：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
-- 发布时间：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