荆条的意思:将RichTextBox设置为自动换行

来源：百度文库编辑：九乡新闻网时间：2024/04/29 12:29:02

　　答案来自问专家网站和CSDN的，解决如下：

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 Long, 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

将RichTextBox设置为自动换行火狐自动换行处理把宽带设置为自动连接宽带连接设置为自动连接怎么把宽带连接设置为自动连接【怎么把宽带连接设置为自动连接】怎么把宽带连接设置为自动连接怎么把宽带连接设置为自动连接. Excel中如何使键入表格的内容换行？手动随意换行，不使用自动换行。-天涯问答如何删除自动换行符，（注意：不是手工换行符）电脑自动开关机设置电脑自动开关机设置！设置自动开机程序自动连接宽带设置电脑自动开关机设置开机自动连接设置 vi 中设置tab为4和自动转换成空格如何将IE设置为默认Web浏览器? 怎么设置电脑自动开关机设置xp自动登录222 开机自动连接宽带设置开机自动连接宽带设置................ 开机自动连接宽带设置！ [开机自动连接宽带设置]