将RichTextBox设置为自动换行

来源：百度文库编辑：神马文学网时间：2024/05/23 23:25:57

日研究文本控件和字符串，研究得头混脑胀，问题真是太多了。
这只是其中的一个问题，答案来自问专家网站和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设置为自动换行 css之自动换行 css实现页面文字不换行、自动换行、强制换行 Excel轻松实现自动换行 RichTextBox 如何是ppt自动换行后左自动为窗体和报表添加代码并设置右键怎么把宽带连接设置为自动连接页面文字不换行、自动换行、强制换行的CSS实现_CSS教程,DIV CSS视频教程,DIV... 设置自动开关机电脑自动开关机设置电脑自动开关机设置！！！！电脑自动开关机设置电脑自动开关机设置电脑自动开关机设置电脑自动开关机设置电脑自动开关机设置电脑自动开关机设置！电脑自动开关机设置电脑自动开关机设置！怎么把宽带连接设置为自动连接 - 精华知识 - 搜搜问问如何将 Word 的修订视图模式设置为 Final？如何将 Word 的修订视图模式设置为 Final？ RichTextBox 控件