十万火急!VB6.0中的RichTextBox文本如何设置出现滚动条!!!

1：横向滚动条 2：纵向滚动条 3：双向滚动条 别着急，继续看！滚动条只有在真正需要的时候才显示出来，不会像TextBox一样显示为灰色 当MultiLine属性设置为True的时候，就会像Word一样自动换行，于是横向滚动条将不会显示 但是自动换行在RichTextBox里面是不能被禁用的，所以只能用单行来显示横向滚动条 ...

Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer()SendMessageLong RichTextBox1.hwnd, EM_LINESCROLL, 0, 1 End Sub

一. 显示时滚动条始终在下：// 让光标定位到文本框末尾 richTextBox1.Select(richTextBox1.TextLength, 0);//然后移动滚动条，使输入点(text entry point)(即光标所在的位置）显示出来 //这样也可以达到滚动到最下方的目的 richTextBox1.ScrollToCaret(); 二. 输入时滚动条始终在下：richTextBox1...

如果文本框的 MultiLine 属性设置为 True 而且它的 ScrollBars 没有设置为 None (0)，则滚动条总出现在文本框上。如果将 MultiLine 属性设置为 True，则可以在 TextBox 内用 Alignment 属性设置文本的对齐。如果 MultiLine 属性是 False，则 Alignment 属性不起作用。代码实例：Private Sub Command1_...

RichTextBox的功能与用法大体上与TextBox（文本框）相似，但其功能更加强大，缺点是占用内存空间更多。其最突出的优点是对字体的改变更灵活，多出了一些属性和方法。这里简单说几个：改变字体：控件名.Font.Name = ... '比如："宋体" （双引号必须有）改变字体大小：控件名.Font.Size = '...

这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。步骤二：编辑菜单。按Ctrl+E调出菜单编辑器...

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Command1_Click()Dim Start As Long, Length As Long Start = SendMessage(RichTextBox1.hwnd, EM_LINEINDEX...

1，新建一个工程，2，选择应用程序向导。3，按提示完成文档程序。程序完成后，里面有一段程序代码是richtextbox的高度都能随文本行数变化而变化的。并能下次启动时，记录了上次窗口的大小。把代码复制出来就可。

RichTextBox就是这个用途

那是因为“18”这里用的是全角的引号！其实这个属性值的类型是数值型，所以是不用加引号的（不过用了引号的话VB也会自动转化为数值型，所以不会出错，但是如果连引号都用错了，那就没办法了）。正确的应该是：Form18.RichTextBox1.Font.Size = 18 Form18.RichTextBox2(0).Font.Size = 16 Form...