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

wistom 2004-07-22 09:16:52

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

...全文

470 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

wistom 2004-07-25

打赏
举报

webbrowser显示效果不好

_阿胜_ 2004-07-25

打赏
举报

在模块文件里输入这些：
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

pigpag 2004-07-24

打赏
举报

WebBrowser呢？

Andy__Huang 2004-07-23

打赏
举报

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

xuboying 2004-07-23

打赏
举报

Private Sub Form_Load()
RichTextBox1.RightMargin = RichTextBox1.Width + 10000
End Sub

只有当 RichTextBox 控件中的内容超出该控件的边界时，滚动条才会显示出来。如果 ScrollBars 被设置为 False，则不论内容是否超出，滚动条都不会显示出来。

仅当 RightMargin 设置为一个比控件宽度大的值时，出现一个水平滚动条。（该值也可以等于，或比控件的宽度稍微小一点。）

wistom 2004-07-23