Foxtable(狐表)用户栏目专家坐堂 → 文本滚动显示 想空行怎么实现?怎么把文本显示的内容保存为文本文件呢?


  共有2655人关注过本帖树形打印复制链接

主题:文本滚动显示 想空行怎么实现?怎么把文本显示的内容保存为文本文件呢?

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
文本滚动显示 想空行怎么实现?怎么把文本显示的内容保存为文本文件呢?  发帖心情 Post By: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文档  作为日志保存  怎么写代码呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107896 积分:548849 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/16 8:53:00 [只看该作者]

换行符不能在后面,会被忽略


 回到顶部