| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 文本滚动显示 想空行怎么实现？怎么把文本显示的内容保存为文本文件呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148811) |
| -- 作者：李孝春 -- 发布时间：2020/4/15 17:57:00 -- 文本滚动显示 想空行怎么实现？怎么把文本显示的内容保存为文本文件呢？ 代码如下： Dim t As WinForm.TextBox =Forms("信息编辑").Controls("TextBox4") Dim d = t.BaseControl t.Text= t.Text & vbcrlf & "{" & dr("身份属性") & "}" & "【" & dr("姓名") & "】数据已生成如下!" & vbcrlf & "【" & dr("告知内容") & "】" & vbcrlf t.SelectionStart = t.Text.Length d.ScrollToCaret Application.DoEvents 上述代码生成如下效果： {测试}【A】数据已生成如下! 【尊敬的测试A 同志，少时诵诗书所所所所所所所所所所所所所所所所所所所所所所所所！】 {测试,代表}【B】数据已生成如下! 【尊敬的测试,代表B同志，少时诵诗书所所所所所所所所所所所所所所所所所所所所所所所所！】 1\\想修正一下实现如下效果 怎么操作呢？红色部分代码没有起作用！ {测试}【A】数据已生成如下! 【尊敬的测试A同志，少时诵诗书所所所所所所所所所所所所所所所所所所所所所所所所！】 {测试,代表}【B】数据已生成如下! 【尊敬的测试,代表B同志，少时诵诗书所所所所所所所所所所所所所所所所所所所所所所所所！】 2\\想实现当前所显示的文本数据 写入text文档 作为日志保存 怎么写代码呢？
|
| -- 作者：有点蓝 -- 发布时间：2020/4/16 8:53:00 -- 换行符不能在后面，会被忽略 |