RichTextBox行距
怎样调整RichTextBox行距？谢谢！
[解决办法]
注：把上面的Code放到1个Class：clsRichTextJustify中。
Option Explicit
Dim crt As clsRichTextJustify
Private Sub Form_Load()
Dim lAfterAdjust As Long, lBeforeAdjust As Long
lAfterAdjust = 10
lBeforeAdjust = 500
Set crt = New clsRichTextJustify
’你试试改变SetParagraphLineSpacing的第二，第三参数。
’你试试改变SetParagraphSpacing的第二，第三参数。
'Call crt.SetParagraphSpacing(RTB.hWnd, lAfterAdjust , lBeforeAdjust )
Call crt.SetParagraphLineSpacing(RTB.hWnd, ercLineSpacingTwips, lBeforeAdjust )
RTB.Text = "After considerable delay, the party proceeded to some ponds in the Bogan about five miles lower down. We were now nearly opposite to the scene of Mr. Cunningham 's disasters: "
RTB.Text = RTB.Text & "I had recognised, amongst the first hills I saw when on the Goobang Creek, the hill which I had named Mount Juson, at his request, after the maiden name of his mother. The little pyramid of bushes was no longer there, but the name of Cunningham was so identified with the botanical history of almost all the shrubs in the very peculiar scenery of that part of the country, that no other monument seemed necessary. Other recollections recalled Cunningham to my mind; his barbarous murder, and the uncertainty which still hung over the actual circumstances attending it. The shrubs told indeed of Cunningham; of both brothers, both now dead; but neither the shrubs named by the one, nor the gloomy <I/> casuarinæ </I> trees that had witnessed the bloody deed, could tell more. There the <I/> Acacia pendula </I> , first discovered and described by Allan, could only "
End Sub
