2024年6月1日发(作者：)

'/* 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 number

Private Sub Form_Load()Sub Form_Load()

= "aaa" & Chr(13) & "bbb"

Dim pf As PARAFORMAT2

With pf

.cbSize = LenB(pf)

.dwMask = PFM_LINESPACING

.bLineSpacingRule = 1 '*****

.dyLineSpacing = 300 '*****

End With

Dim i As Long

i = SendMessage(, EM_SETPARAFORMAT, 0, ByVal VarPtr(pf))

End Sub