7,763
社区成员
发帖
与我相关
我的任务
分享【求助】（rainstormmaster等高手请进）：RichTextBox控件中如何获取某一行的高度？
我的RichTextBox中不同的行高度有可能都不同，而且也有些图片，行间距也有不同。
请问我如果定位到某一行后，如何获取本行的行高呢？？？
解决奉献自己全部积分（110分），决不失言！！！
请问我如果定位到某一行后，如何获取本行的行高呢？？？
解决奉献自己全部积分（110分），决不失言！！！
...全文
请发表友善的回复…
发表回复
happywqw 2006-03-28
- 打赏
- 举报
经过测试确实是支持行间距的。
Rich Edit SDK 中文参考：
http://www.cnpopsoft.com/blog/article.asp?id=3
Rich Edit SDK 中文参考：
http://www.cnpopsoft.com/blog/article.asp?id=3
zyl910 2006-01-28
- 打赏
- 举报
VB的RichTextBox好像用的是Rich Edit 1.0吧
只有Rich Edit 2.0+才支持PARAFORMAT2，支持行间距
只有Rich Edit 2.0+才支持PARAFORMAT2，支持行间距
zyl910 2006-01-28
- 打赏
- 举报
//应该说,微软的补丁多多少少还是管事的:)
同感
我的也是xp sp2,vb6 sp6
同感
我的也是xp sp2,vb6 sp6
rainstormmaster 2006-01-28
- 打赏
- 举报
应该说,微软的补丁多多少少还是管事的:)
zyl910 2006-01-28
- 打赏
- 举报
原来VB的RichTextBox支持PARAFORMAT2
rainstormmaster 2006-01-28
- 打赏
- 举报
我的系统是xp sp2,vb6 sp6
rainstormmaster 2006-01-28
- 打赏
- 举报
//但到了Rich Edit 2.0才支持PARAFORMAT2，允许用户取得/设置行间距
原来PARAFORMAT没有行间距设置功能
尽信书则不如无书,你测试一下不就知道了:)
Option Explicit
Private 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 Const WM_USER& = &H400
Private Const EM_GETPARAFORMAT = (WM_USER + 61)
Private Const EM_SETPARAFORMAT = (WM_USER + 71)
Private Const MAX_TAB_STOPS = 32&
Private Const PFM_LINESPACING = &H100&
Private Type PARAFORMAT2
cbSize As Integer
wPad1 As Integer
dwMask As Long
wNumbering As Integer
wEffects As Integer
dxStartIndent As Long
dxRightIndent As Long
dxOffset As Long
wAlignment As Integer
cTabCount As Integer
lTabStops(0 To MAX_TAB_STOPS - 1) As Long
' PARAFORMAT2
dySpaceBefore As Long
dySpaceAfter As Long
dyLineSpacing As Long
sStyle As Integer
bLineSpacingRule As Byte
bOutlineLevel As Byte
wShadingWeight As Integer
wShadingStyle As Integer
wNumberingStart As Integer
wNumberingStyle As Integer
wNumberingTab As Integer
wBorderSpace As Integer
wBorderWidth As Integer
wBorders As Integer
End Type
Private Sub Command1_Click()
Dim PF2 As PARAFORMAT2
With PF2
.cbSize = LenB(PF2)
.dwMask = PFM_LINESPACING
.bLineSpacingRule = 4
.dyLineSpacing = 100 * Screen.TwipsPerPixelY
End With
Dim i As Long
i = SendMessage(RichTextBox1.hwnd, EM_SETPARAFORMAT, 0, PF2)
End Sub
原来PARAFORMAT没有行间距设置功能
尽信书则不如无书,你测试一下不就知道了:)
Option Explicit
Private 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 Const WM_USER& = &H400
Private Const EM_GETPARAFORMAT = (WM_USER + 61)
Private Const EM_SETPARAFORMAT = (WM_USER + 71)
Private Const MAX_TAB_STOPS = 32&
Private Const PFM_LINESPACING = &H100&
Private Type PARAFORMAT2
cbSize As Integer
wPad1 As Integer
dwMask As Long
wNumbering As Integer
wEffects As Integer
dxStartIndent As Long
dxRightIndent As Long
dxOffset As Long
wAlignment As Integer
cTabCount As Integer
lTabStops(0 To MAX_TAB_STOPS - 1) As Long
' PARAFORMAT2
dySpaceBefore As Long
dySpaceAfter As Long
dyLineSpacing As Long
sStyle As Integer
bLineSpacingRule As Byte
bOutlineLevel As Byte
wShadingWeight As Integer
wShadingStyle As Integer
wNumberingStart As Integer
wNumberingStyle As Integer
wNumberingTab As Integer
wBorderSpace As Integer
wBorderWidth As Integer
wBorders As Integer
End Type
Private Sub Command1_Click()
Dim PF2 As PARAFORMAT2
With PF2
.cbSize = LenB(PF2)
.dwMask = PFM_LINESPACING
.bLineSpacingRule = 4
.dyLineSpacing = 100 * Screen.TwipsPerPixelY
End With
Dim i As Long
i = SendMessage(RichTextBox1.hwnd, EM_SETPARAFORMAT, 0, PF2)
End Sub
rainstormmaster 2006-01-28
- 打赏
- 举报
//但到了Rich Edit 2.0才支持PARAFORMAT2，允许用户取得/设置行间距
原来PARAFORMAT没有行间距设置功能
尽信书则不如无书,你测试一下不就知道了:)
Option Explicit
Private 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 Const WM_USER& = &H400
Private Const EM_GETPARAFORMAT = (WM_USER + 61)
Private Const EM_SETPARAFORMAT = (WM_USER + 71)
Private Const MAX_TAB_STOPS = 32&
Private Const PFM_LINESPACING = &H100&
Private Type PARAFORMAT2
cbSize As Integer
wPad1 As Integer
dwMask As Long
wNumbering As Integer
wEffects As Integer
dxStartIndent As Long
dxRightIndent As Long
dxOffset As Long
wAlignment As Integer
cTabCount As Integer
lTabStops(0 To MAX_TAB_STOPS - 1) As Long
' PARAFORMAT2
dySpaceBefore As Long
dySpaceAfter As Long
dyLineSpacing As Long
sStyle As Integer
bLineSpacingRule As Byte
bOutlineLevel As Byte
wShadingWeight As Integer
wShadingStyle As Integer
wNumberingStart As Integer
wNumberingStyle As Integer
wNumberingTab As Integer
wBorderSpace As Integer
wBorderWidth As Integer
wBorders As Integer
End Type
Private Sub Command1_Click()
Dim PF2 As PARAFORMAT2
With PF2
.cbSize = LenB(PF2)
.dwMask = PFM_LINESPACING
.bLineSpacingRule = 4
.dyLineSpacing = 100 * Screen.TwipsPerPixelY
End With
Dim i As Long
i = SendMessage(RichTextBox1.hwnd, EM_SETPARAFORMAT, 0, PF2)
End Sub
原来PARAFORMAT没有行间距设置功能
尽信书则不如无书,你测试一下不就知道了:)
Option Explicit
Private 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 Const WM_USER& = &H400
Private Const EM_GETPARAFORMAT = (WM_USER + 61)
Private Const EM_SETPARAFORMAT = (WM_USER + 71)
Private Const MAX_TAB_STOPS = 32&
Private Const PFM_LINESPACING = &H100&
Private Type PARAFORMAT2
cbSize As Integer
wPad1 As Integer
dwMask As Long
wNumbering As Integer
wEffects As Integer
dxStartIndent As Long
dxRightIndent As Long
dxOffset As Long
wAlignment As Integer
cTabCount As Integer
lTabStops(0 To MAX_TAB_STOPS - 1) As Long
' PARAFORMAT2
dySpaceBefore As Long
dySpaceAfter As Long
dyLineSpacing As Long
sStyle As Integer
bLineSpacingRule As Byte
bOutlineLevel As Byte
wShadingWeight As Integer
wShadingStyle As Integer
wNumberingStart As Integer
wNumberingStyle As Integer
wNumberingTab As Integer
wBorderSpace As Integer
wBorderWidth As Integer
wBorders As Integer
End Type
Private Sub Command1_Click()
Dim PF2 As PARAFORMAT2
With PF2
.cbSize = LenB(PF2)
.dwMask = PFM_LINESPACING
.bLineSpacingRule = 4
.dyLineSpacing = 100 * Screen.TwipsPerPixelY
End With
Dim i As Long
i = SendMessage(RichTextBox1.hwnd, EM_SETPARAFORMAT, 0, PF2)
End Sub
zyl910 2006-01-28
- 打赏
- 举报
Rich Edit本身是支持行间距
但到了Rich Edit 2.0才支持PARAFORMAT2，允许用户取得/设置行间距
原来PARAFORMAT没有行间距设置功能
但到了Rich Edit 2.0才支持PARAFORMAT2，允许用户取得/设置行间距
原来PARAFORMAT没有行间距设置功能
rainstormmaster 2006-01-28
- 打赏
- 举报
//VB的RichTextBox好像用的是Rich Edit 1.0吧
只有Rich Edit 2.0+才支持PARAFORMAT2，支持行间距
说是这么说,但经过测试,RichTextBox还是支持行间距的
只有Rich Edit 2.0+才支持PARAFORMAT2，支持行间距
说是这么说,但经过测试,RichTextBox还是支持行间距的
rainstormmaster 2006-01-27
- 打赏
- 举报
//如果需要减行间距的话,就用senmemessage发送 EM_GETPARAFORMAT消息
话没说完,应为:就用senmemessage发送 EM_GETPARAFORMAT消息获得行间距
话没说完,应为:就用senmemessage发送 EM_GETPARAFORMAT消息获得行间距
rainstormmaster 2006-01-27
- 打赏
- 举报
同意zyl910的意见
//所以不需要减行间距（何况你还需要算上图片高度）
如果需要减行间距的话,就用senmemessage发送 EM_GETPARAFORMAT消息
//所以不需要减行间距（何况你还需要算上图片高度）
如果需要减行间距的话,就用senmemessage发送 EM_GETPARAFORMAT消息
zyl910 2006-01-27
- 打赏
- 举报
发送EM_POSFROMCHAR消息可以得到某个字符所处的坐标位置
发送EM_EXGETSEL消息可以得到当前选择的字符位置
发送EM_LINEFROMCHAR消息可以得到字符位置所处行号
发送EM_LINEINDEX消息可以知道某行第一个字符的字符位置
所以我们可以这样做：
发送EM_EXGETSEL消息得到当前光标所处字符位置
发送EM_LINEFROMCHAR消息得到当前行行号
发送EM_LINEINDEX消息可得到当前行及下一行的字符位置
发送EM_POSFROMCHAR消息可以得到当前行及下一行的坐标位置
再将两个坐标相减，就可得到行高
这其实就是happywqw(键盘跳蚤)提出来的方法
只不过他用的是TOM
而我这是直接发送RichTextBox消息
行高是包括行间距的
注意看选择文本时的反色区域
行高是指字符高度+行间距
所以不需要减行间距（何况你还需要算上图片高度）
发送EM_EXGETSEL消息可以得到当前选择的字符位置
发送EM_LINEFROMCHAR消息可以得到字符位置所处行号
发送EM_LINEINDEX消息可以知道某行第一个字符的字符位置
所以我们可以这样做：
发送EM_EXGETSEL消息得到当前光标所处字符位置
发送EM_LINEFROMCHAR消息得到当前行行号
发送EM_LINEINDEX消息可得到当前行及下一行的字符位置
发送EM_POSFROMCHAR消息可以得到当前行及下一行的坐标位置
再将两个坐标相减，就可得到行高
这其实就是happywqw(键盘跳蚤)提出来的方法
只不过他用的是TOM
而我这是直接发送RichTextBox消息
行高是包括行间距的
注意看选择文本时的反色区域
行高是指字符高度+行间距
所以不需要减行间距（何况你还需要算上图片高度）
Walkline 2006-01-27
- 打赏
- 举报
请问 happywqw(键盘跳蚤)：
你说的“本行的最大高度＋行间距＋段前段后间距”，这个行间距和后间距如何获得或者计算呢？
你说的“本行的最大高度＋行间距＋段前段后间距”，这个行间距和后间距如何获得或者计算呢？
lanhai96 2005-12-13
- 打赏
- 举报
关注
happywqw 2005-12-13
- 打赏
- 举报
有个很笨的方法就是每个字符每个字符的算，然后找本行的最大高度＋行间距＋段前段后间距，不过对于图片好像没有办法哈！～
supergreenbean 2005-12-12
- 打赏
- 举报
不懂.......
OhPrettyLady 2005-12-12
- 打赏
- 举报
高手们都跑哪里去了？？
northwolves 2005-12-09
- 打赏
- 举报
有难度，明天想想
OhPrettyLady 2005-12-09
- 打赏
- 举报
IViewObjectEx::GetRect
Returns a rectangle describing a requested drawing aspect.
HRESULT GetRect(
DWORD dwAspect, //Requested drawing aspect
LPRECTL pRect //Pointer to the rectangle
);
Parameters
dwAspect
[in] Drawing aspect requested.
pRect
[out] Pointer to the rectangle describing the requested drawing aspect.
Return Values
S_OK
The rectangle was successfully returned.
DV_E_DVASPECT
The method does not support the specified aspect. Either the object does not support the aspect requested or the aspect is not rectangular.
Remarks
This method returns a rectangle describing the specified drawing aspect. The returned rectangle is in HIMETRIC units, relative to the object's origin. The rectangle returned depends on the drawing aspect as follows:
DVASPECT_CONTENT
Objects should return the bounding rectangle of the whole object. The top-left corner is at the object's origin and the size is equal to the extent returned by IViewObject2::GetExtent.
DVASPECT_OPAQUE
Objects with a rectangular opaque region should return that rectangle. Others should fail and return error code DV_E_DVASPECT.
If a rectangle is returned, it is guaranteed to be completely obscured by calling IViewObject::Draw for that aspect. The container should use that rectangle to clip out the object's opaque parts before drawing any object behind it during the back to front pass. If this method fails on an object with a non-rectangular opaque region, the container should draw the entire object in the back to front part using the DVASPECT_CONTENT aspect.
DVASPECT_TRANSPARENT
Objects should return the rectangle covering all transparent or irregular parts. If the object does not have any transparent or irregular parts, it may return DV_E_ASPECT. A container may use this rectangle to determine whether there are other objects overlapping the transparent parts of a given object.
Returns a rectangle describing a requested drawing aspect.
HRESULT GetRect(
DWORD dwAspect, //Requested drawing aspect
LPRECTL pRect //Pointer to the rectangle
);
Parameters
dwAspect
[in] Drawing aspect requested.
pRect
[out] Pointer to the rectangle describing the requested drawing aspect.
Return Values
S_OK
The rectangle was successfully returned.
DV_E_DVASPECT
The method does not support the specified aspect. Either the object does not support the aspect requested or the aspect is not rectangular.
Remarks
This method returns a rectangle describing the specified drawing aspect. The returned rectangle is in HIMETRIC units, relative to the object's origin. The rectangle returned depends on the drawing aspect as follows:
DVASPECT_CONTENT
Objects should return the bounding rectangle of the whole object. The top-left corner is at the object's origin and the size is equal to the extent returned by IViewObject2::GetExtent.
DVASPECT_OPAQUE
Objects with a rectangular opaque region should return that rectangle. Others should fail and return error code DV_E_DVASPECT.
If a rectangle is returned, it is guaranteed to be completely obscured by calling IViewObject::Draw for that aspect. The container should use that rectangle to clip out the object's opaque parts before drawing any object behind it during the back to front pass. If this method fails on an object with a non-rectangular opaque region, the container should draw the entire object in the back to front part using the DVASPECT_CONTENT aspect.
DVASPECT_TRANSPARENT
Objects should return the rectangle covering all transparent or irregular parts. If the object does not have any transparent or irregular parts, it may return DV_E_ASPECT. A container may use this rectangle to determine whether there are other objects overlapping the transparent parts of a given object.
加载更多回复（8）
