为什么richbox总是不能出现水平滚动条？

Question

DisableNoScroll =   -1  'True

Answer 1

通用设置richtextbox的rightmargin属性
然后调用showscrollbar这个API函数，如：
显示水平流动条
RichTextBox1.RightMargin = 300000
ShowScrollBar RichTextBox1.hwnd, SB_HORZ, True
隐藏水平滚动条
richtextbox1.rightmargin=0
showscrollbar richtextbox1.hwnd, sb_horz,false

Answer 2

wwfang(方耀东) ,怎样让滚动条滚动？

Answer 3

用api函数sendmessage,具体的如下:
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
Public Const LB_FINDSTRING = &H18F
Public Const LB_SETHORIZONTALEXTENT = &H194
SendMessage RichTextBox1.hwnd, LB_SETHORIZONTALEXTENT, 100, 0
SendMessage RichTextBox1.hwnd, LB_SETHORIZONTALEXTENT, RichTextBox1.Width + 1000, 0