[求助]如何设置richtextbox控件的行间距 已经知道它是由\up和\dnRTF格式代码来控制的,但是如果SELTEXT属性中也包括这些格式控制代码就不好做了,有没有更简单的方法可以实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Option ExplicitPrivate Declare Function SendMessage& Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any)Private Const WM_USER& = &H400Private Const EM_GETPARAFORMAT = (WM_USER + 61)Private Const EM_SETPARAFORMAT = (WM_USER + 71)Private Const MAX_TAB_STOPS = 32&Private Type PARAFORMAT2 'Los primeros campos coinciden con PARAFORMAT y se usan igual cbSize As Integer wPad1 As Integer dwMask As Long wNumbering As Integer wEffects As Integer 'No usado en PARAFORMAT dxStartIndent As Long dxRightIndent As Long dxOffset As Long wAlignment As Integer cTabCount As Integer lTabStops(0 To MAX_TAB_STOPS - 1) As Long ' Desde aquí lo a?adido por PARAFORMAT2 dySpaceBefore As Long '/* Vertical spacing before para */ dySpaceAfter As Long '/* Vertical spacing after para */ dyLineSpacing As Long '/* Line spacing depending on Rule */ sStyle As Integer ' /* Style handle */ bLineSpacingRule As Byte '/* Rule for line spacing (see tom.doc) */ bOutlineLevel As Byte '/* Outline Level*/'antes bCRC As Byte wShadingWeight As Integer '/* Shading in hundredths of a per cent */ wShadingStyle As Integer '/* Byte 0: style, nib 2: cfpat, 3: cbpat*/ wNumberingStart As Integer '/* Starting value for numbering */ wNumberingStyle As Integer ' /* Alignment, Roman/Arabic, (), ), ., etc.*/ wNumberingTab As Integer '/* Space bet 1st indent and 1st-line text*/ wBorderSpace As Integer ' /* Border-text spaces (nbl/bdr in pts) */ wBorderWidth As Integer '/* Pen widths (nbl/bdr in half twips) */ wBorders As Integer '/* Border styles (nibble/border) */End Type' /* PARAFORMAT mask values */Private Const PFM_STARTINDENT = &H1&Private Const PFM_RIGHTINDENT = &H2&Private Const PFM_OFFSET = &H4&Private Const PFM_ALIGNMENT = &H8&Private Const PFM_TABSTOPS = &H10&Private Const PFM_NUMBERING = &H20&Private Const PFM_OFFSETINDENT = &H80000000' /* PARAFORMAT numbering options */Private Const PFN_BULLET = &H1&' /* PARAFORMAT alignment options */Private Const PFA_LEFT = &H1&Private Const PFA_RIGHT = &H2&Private Const PFA_CENTER = &H3&'/* PARAFORMAT 2.0 masks */Private Const PFM_SPACEBEFORE = &H40&Private Const PFM_SPACEAFTER = &H80&Private Const PFM_LINESPACING = &H100&Private Const PFM_STYLE = &H400&Private Const PFM_NUMBERINGSTYLE = &H2000& ' /* RE 3.0 */Private Const PFM_NUMBERINGTAB = &H4000& ' /* RE 3.0 */Private Const PFM_NUMBERINGSTART = &H8000& ' /* RE 3.0 */Private Const PFM_TABLE = &HC0000000 ' /* RE 3.0 */'// The following three properties are read onlyPrivate Const PFM_COLLAPSED = &H1000000 '/* RE 3.0 */Private Const PFM_OUTLINELEVEL = &H2000000 '/* RE 3.0 */Private Const PFM_BOX = &H4000000 '/* RE 3.0 */'/* PARAFORMAT2 wNumbering options (see also PFN_BULLET) */Private Const PFN_ARABIC = 2 '/* tomListNumberAsArabic: 0, 1, 2, ...*/Private Const PFN_LCLETTER = 3 '/* tomListNumberAsLCLetter: a, b, c, ...*/Private Const PFN_UCLETTER = 4 '/* tomListNumberAsUCLetter: A, B, C, ...*/Private Const PFN_LCROMAN = 5 '/* tomListNumberAsLCRoman: i, ii, iii, ...*/Private Const PFN_UCROMAN = 6 '/* tomListNumberAsUCRoman: I, II, III, ...*/'/* PARAFORMAT2 wNumberingStyle options */Private Const PFNS_PAREN = &H0 '/* default, e.g., 1) */Private Const PFNS_PARENS = &H100 '/* tomListParentheses/256, e.g., (1) */Private Const PFNS_PERIOD = &H200 '/* tomListPeriod/256, e.g., 1. */Private Const PFNS_PLAIN = &H300 '/* tomListPlain/256, e.g., 1 */Private Const PFNS_NONUMBER = &H400 '/* Used for continuation w/o numberPrivate Sub Form_Load() Dim pf As PARAFORMAT2 With pf .cbSize = LenB(pf) pf.dwMask = PFM_LINESPACING .bLineSpacingRule = 4 .dyLineSpacing = 40 * 15 End With Dim i As Long i = SendMessage(Me.RichTextBox1.hwnd, EM_SETPARAFORMAT, 0, ByVal VarPtr(pf))End Sub 安装工厂生成的安装程序能支持多语言安装吗? 100分求解网页图象保存方法! 怎么判断Commondialog打开保存对话框时,用户是单击了取消按钮!!! 有個可以壓縮.exe的軟件叫什麼??記得名字帶有“pack”字樣 终于升到四个角了,散分. *高分求救* 如何用程序控制弹开和关闭指定盘符的光驱?谢谢! 到金碟面试应怎么谈 如何用vb编写网络寻呼 动态数组的赋值。。。急 请问怎样向ACCESS数据库添加一个外部的FOXPRO表和该表的记录 怎样用VB的代码创建Access数据库?谢谢! 含有Flash文件的网页怎样编译成chm帮助?
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any)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 Type PARAFORMAT2
'Los primeros campos coinciden con PARAFORMAT y se usan igual
cbSize As Integer
wPad1 As Integer
dwMask As Long
wNumbering As Integer
wEffects As Integer 'No usado en PARAFORMAT
dxStartIndent As Long
dxRightIndent As Long
dxOffset As Long
wAlignment As Integer
cTabCount As Integer
lTabStops(0 To MAX_TAB_STOPS - 1) As Long
' Desde aquí lo a?adido por PARAFORMAT2
dySpaceBefore As Long '/* Vertical spacing before para */
dySpaceAfter As Long '/* Vertical spacing after para */
dyLineSpacing As Long '/* Line spacing depending on Rule */
sStyle As Integer ' /* Style handle */
bLineSpacingRule As Byte '/* Rule for line spacing (see tom.doc) */
bOutlineLevel As Byte '/* Outline Level*/'antes bCRC As Byte
wShadingWeight As Integer '/* Shading in hundredths of a per cent */
wShadingStyle As Integer '/* Byte 0: style, nib 2: cfpat, 3: cbpat*/
wNumberingStart As Integer '/* Starting value for numbering */
wNumberingStyle As Integer ' /* Alignment, Roman/Arabic, (), ), ., etc.*/
wNumberingTab As Integer '/* Space bet 1st indent and 1st-line text*/
wBorderSpace As Integer ' /* Border-text spaces (nbl/bdr in pts) */
wBorderWidth As Integer '/* Pen widths (nbl/bdr in half twips) */
wBorders As Integer '/* Border styles (nibble/border) */
End Type' /* PARAFORMAT mask values */
Private Const PFM_STARTINDENT = &H1&
Private Const PFM_RIGHTINDENT = &H2&
Private Const PFM_OFFSET = &H4&
Private Const PFM_ALIGNMENT = &H8&
Private Const PFM_TABSTOPS = &H10&
Private Const PFM_NUMBERING = &H20&
Private Const PFM_OFFSETINDENT = &H80000000' /* PARAFORMAT numbering options */
Private Const PFN_BULLET = &H1&' /* PARAFORMAT alignment options */
Private Const PFA_LEFT = &H1&
Private Const PFA_RIGHT = &H2&
Private Const PFA_CENTER = &H3&'/* PARAFORMAT 2.0 masks */
Private Const PFM_SPACEBEFORE = &H40&
Private Const PFM_SPACEAFTER = &H80&
Private Const PFM_LINESPACING = &H100&
Private Const PFM_STYLE = &H400&
Private Const PFM_NUMBERINGSTYLE = &H2000& ' /* RE 3.0 */
Private Const PFM_NUMBERINGTAB = &H4000& ' /* RE 3.0 */
Private Const PFM_NUMBERINGSTART = &H8000& ' /* RE 3.0 */
Private Const PFM_TABLE = &HC0000000 ' /* RE 3.0 */
'// The following three properties are read only
Private Const PFM_COLLAPSED = &H1000000 '/* RE 3.0 */
Private Const PFM_OUTLINELEVEL = &H2000000 '/* RE 3.0 */
Private Const PFM_BOX = &H4000000 '/* RE 3.0 */'/* PARAFORMAT2 wNumbering options (see also PFN_BULLET) */
Private Const PFN_ARABIC = 2 '/* tomListNumberAsArabic: 0, 1, 2, ...*/
Private Const PFN_LCLETTER = 3 '/* tomListNumberAsLCLetter: a, b, c, ...*/
Private Const PFN_UCLETTER = 4 '/* tomListNumberAsUCLetter: A, B, C, ...*/
Private Const PFN_LCROMAN = 5 '/* tomListNumberAsLCRoman: i, ii, iii, ...*/
Private Const PFN_UCROMAN = 6 '/* tomListNumberAsUCRoman: I, II, III, ...*/'/* PARAFORMAT2 wNumberingStyle options */
Private Const PFNS_PAREN = &H0 '/* default, e.g., 1) */
Private Const PFNS_PARENS = &H100 '/* tomListParentheses/256, e.g., (1) */
Private Const PFNS_PERIOD = &H200 '/* tomListPeriod/256, e.g., 1. */
Private Const PFNS_PLAIN = &H300 '/* tomListPlain/256, e.g., 1 */
Private Const PFNS_NONUMBER = &H400 '/* Used for continuation w/o numberPrivate Sub Form_Load()
Dim pf As PARAFORMAT2
With pf
.cbSize = LenB(pf)
pf.dwMask = PFM_LINESPACING
.bLineSpacingRule = 4
.dyLineSpacing = 40 * 15
End With
Dim i As Long
i = SendMessage(Me.RichTextBox1.hwnd, EM_SETPARAFORMAT, 0, ByVal VarPtr(pf))
End Sub