Fully justify code

vb6 , fully justify text , rich text box Pakistan
  • 12 years ago
    How can i fully justify text in rtb. I have found some code here but its not working Public Function SetAlignment(lHwnd As Long, ByVal eAlign As ERECParagraphAlignmentConstants) Dim tP2 As PARAFORMAT2 Dim lR As Long tP2.dwMask = PFMALIGNMENT tP2.cbSize = Len(tP2) tP2.wAlignment = eAlign lR = SendMessageLong(lHwnd, EMSETTYPOGRAPHYOPTIONS, _ TOADVANCEDTYPOGRAPHY, TOADVANCEDTYPOGRAPHY) lR = SendMessage(lHwnd, EMSETPARAFORMAT, 0, tP2) End Function In the Justified text the text breaks at different lines. thnx,

Post a reply

No one has replied yet! Why not be the first?

Sign in or Join us (it's free).

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“In order to understand recursion, one must first understand recursion.”