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).


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.”