代码如下：
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文档 作为日志保存 怎么写代码呢？
加好友 
发短信
Post By：2020/4/15 17:57:00 [只看该作者]
