荆条的意思:将RichTextBox设置为自动换行
来源:百度文库 编辑:九乡新闻网 时间:2024/05/15 10:10:35
答案来自问专家网站和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
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
开机自动连接宽带设置
开机自动连接宽带设置................
开机自动连接宽带设置!
[开机自动连接宽带设置]