richtextbox中，显示滚动条的问题？

Question

我在richtextbox中的multline 设为true，可是使用垂直滚动条，就是不能使用水平滚动条，请问该怎么设置？望回复！

Answer 1

RichTextBox1.ScrollBars=1  使用水平滚动条
RichTextBox1.ScrollBars=2  使用垂直滚动条
RichTextBox1.ScrollBars=3  水平垂直都用
 

Answer 2

不好意思﹐RichTextBox1我剛試也不能﹐如果你想水平垂直滚动条都用﹐只需要用TextBox就夠了﹗
Text1.multline=True
text1.scrollBars=3

Answer 3

可是textbox 不能显示表格亚，而richtextbox可以显示表格

Answer 4

Private Sub Form_Load()
RichTextBox1.RightMargin = RichTextBox1.Width + 10000
End Sub只有当 RichTextBox 控件中的内容超出该控件的边界时，滚动条才会显示出来。如果 ScrollBars 被设置为 False，则不论内容是否超出，滚动条都不会显示出来。仅当 RightMargin 设置为一个比控件宽度大的值时，出现一个水平滚动条。（该值也可以等于，或比控件的宽度稍微小一点。）

Answer 5

一定要用那個RichTextBox嗎﹖
如果改用ListBox來顯示行不行﹖

Answer 6

在模块文件里输入这些：
Public Const WM_USER = &H400
Public Const EM_SETTARGETDEVICE = (WM_USER + 72)Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Public 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 Form_Load()
  Call SendMessage(RichTextBox1.hWnd, EM_SETTARGETDEVICE, 0, 1)
End Sub