c richtextbox读文件_richtextbox vb_richtextbox自动滚动

我想textstar是不是想让RICHTEXTBOX自动往上滚屏（指满屏了以后，自动往上滚)，如果是的，应该是这样实现：

'添加你的文本信息

txtDialog.Text=txtDialog.Text+vbCrLf+YourMsg

'把选择的焦点设置为文本的最后一行(实现自动滚屏)

txtDialog.SelStart=Len(txtDialog.Text)

'去掉文本后面的回车换行符，以求更加美观

IfMid(txtDialog.Text,1,Len(vbCrLf))=vbCrLfThen

txtDialog.Text=Mid(txtDialog.Text,Len(vbCrLf)+1,Len(txtDialog.Text))

EndIf

注：txtDialog是RichTextBox控件的名字。richtextbox vbrichtextbox vb

(以上仅供参考，如有不妥，请多多指教）郭子

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/jisuanjixue/article-35150-1.html