How do i justify text in RTF?

[milad]

what's the code i f want to make my text in richtextbox justifed?

[HeSaidJoe]

'to align your text use this before you load the text

RichTextBox1.SelAlignment = 0 'left
RichTextBox1.SelAlignment = 1 'right
RichTextBox1.SelAlignment = 2 'center

but you cant justify both left and right margins simultaneously in the same paragraph

You can also use the constants rtfLeft, rtfRight and rtfCenter for your alignment.

This is the million dollar question.

I've been battling with this and hyphenation (collectively known as H&J or hyphenation and justification) for a while.

As yet, I haven't got it going, but that could be cos I've stuffed things up.

If you are using version 2.0, 3.0 or 4.0 of the richedit dll (called riched20.dll NOT riched32.dll, which is the older non-international version), then you should be able to justify text.

While the full justify is not an option in the RichTextBox properties, there is a message that is supposed to work:

Theoretically, sending the EM_SETPARAFORMAT meaasge with a PARAFORMAT2 structure, with the Alignment mask set should justify the text. eg:

(N.B. Parts of this code have been ripped from vbaccelerators RichTextEdit control, which is supposed to support full justify, but doesn't, at least not on my machine)

Public Const PFA_LEFT = 1
Public Const PFA_RIGHT = 2
Public Const PFA_CENTER = 3
Public Const PFA_JUSTIFY = 4 'New paragraph-alignment option 2.0

Public Const MAX_TAB_STOPS = 32&
Public Const lDefaultTab = 720&

Public Type PARAFORMAT2
    cbSize As Integer
    wPad1 As Integer
    dwMask As Long
    wNumbering As Integer
    wReserved As Integer
    dxStartIndent As Long
    dxRightIndent As Long
    dxOffset As Long
    wAlignment As Integer
    cTabCount As Integer
    'rgxTabs(0 To MAX_TAB_STOPS - 1) As Byte
    'lPtrRgxTabs As Long
    lTabStops(0 To MAX_TAB_STOPS - 1) As Long
    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)  */
    bCRC As Byte                   ' /* Reserved for CRC for rapid searching *
    wShadingWeight As Integer          ' /* Shading in hundredths of a per cent  */
    wShadingStyle As Integer           ' /* Nibble 0: style, 1: cfpat, 2: 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            ' /* Space between border and text (twips)*/
    wBorderWidth As Integer           ' /* Border pen width (twips)             */
    wBorders As Integer                ' /* Byte 0: bits specify which borders   */
                                    ' /* Nibble 2: border style, 3: color index*/
End Type

Public Const EM_SETPARAFORMAT = (WM_USER + 71)


'Code to actually align the text

Dim lusrPara As PARAFORMAT2
Dim lRetVal As Long

    lusrPara.dwMask = PFM_ALIGNMENT
    lusrPara.cbSize = Len(lusrPara)
    lusrPara.wAlignment = PFA_JUSTIFY
    lRetVal= SendMessage(RichTextBox1.hWnd, EM_SETPARAFORMAT, 0, lusrPara)

In theory, that code should work (Incedentally, using the paraformat2 structure is how you are supposed to be able to make the little animations you can in word. The paraformat2 structure supports every function found in Word97 Paragrah dialog.)

But for some reason, I can't get it going. It is possible that the call is working, but the rich text box is refusing to draw it.

The other option to do this stuff, (and if you work it out, drop me a line), is to use the Text Object Model, which is really only a wrapper around the riched20 messages.

Well, milad, that's all I can tell you. I'm battling with the same problem as well, and if I find a magic answer, I'll post it for you

cheers

- gaffa

[Kafka07]

http://www.planetsourcecode.com/vb/s...27264&lngWId=1