以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]richTextBox如何显示到最后一行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145648)
--  作者：天一生水
--  发布时间：2020/2/3 16:47:00
--  [求助]richTextBox如何显示到最后一行
老师好！
用代码往richTextBox中追加内容，怎样把光标落在最后一行？现在追加内容时一直停在首行，不滚动，需要手动下拉滚动条。
谢谢！
--  作者：有点蓝
--  发布时间：2020/2/3 16:57:00
--  
richTextBox控件.SelectionStart = richTextBox控件.SelectionLength
--  作者：天一生水
--  发布时间：2020/2/3 17:18:00
--  
用了没有反应，是在写入后用的：

        Dim rt = e.Form.Controls("Panelx").BaseControl.Controls("richTextBox1")
        UtilsSetLineSpace.SetLineSpace(rt, e.Form.Controls("行距").Value)
        rt.BackColor = e.Form.Controls("背景色").Value\'SystemColors.Control
        rt.ForeColor = e.Form.Controls("字体色").Value
        rt.Font = New Font(CStr(e.Form.Controls("字体").Value), CSng(e.Form.Controls("字号").Value), FontStyle.Regular)
        rt.text = "    " & str.replace(vbcrlf,vbcrlf  & "    " )        
       rt.SelectionStart = rt.SelectionLength
--  作者：有点蓝
--  发布时间：2020/2/3 17:25:00
--  
rt.SelectionStart = rt.text.length
--  作者：天一生水
--  发布时间：2020/2/3 17:51:00
--  
还是没有反应，我做个实例，老师帮忙看一下，谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:richtext.foxdb
--  作者：有点蓝
--  发布时间：2020/2/3 20:18:00
--  
rt.Select
rt.SelectionStart = rt.text.length