RichTextBox中设置和取消自动换行

最新推荐文章于 2024-03-08 15:40:47 发布

原创最新推荐文章于 2024-03-08 15:40:47 发布 · 3.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#user #function

Visual Basic 专栏收录该内容

24 篇文章

订阅专栏

博客给出了设置RichTextBox自动换行的代码。定义了常量和函数，通过SendMessage函数实现自动换行控制，还给出了调用示例。此外，也提供了简单的设置方法，即设置MultiLine和RightMargin属性。

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

Public Sub AutoSwitchLine(ByRef RichText As RichTextBox, ByVal bSwitch As Boolean)
    If bSwitch Then
        '设置 RichTextBox 自动换行
        Call SendMessage(RichText.hWnd, EM_SETTARGETDEVICE, _
        GetDC(RichText.hWnd), RichText.Width / 15)
        If RichText.RightMargin = 0 Then
            RichText.RightMargin = 1
        Else
            RichText.RightMargin = 0
        End If
    Else
        '设置 RichTextBox 不自动换行
        Call SendMessage(RichText.hWnd, EM_SETTARGETDEVICE, 0, 1)
    End If
End Sub

调用方法：
AutoSwitchLine RichTextBox1, False
上面的代码使RichTextBox1不自动换行。

上面的是比较正规的方法，如果简单的话，下面两句代码就可以了：

RichTextBox1.MultiLine=True
RichTextBox1.RightMargin=10000