devxlogo

SetRichTextBoxWordWrap – Set the WordWrap style of a RichTextBox control

SetRichTextBoxWordWrap – Set the WordWrap style of a RichTextBox control

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _    hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _    lParam As Any) As LongPrivate Const WM_USER As Long = &H400Private Const EM_SETTARGETDEVICE As Long = WM_USER + 72' Enable/Disable the WordWrap style of a RichTextBox control'' Example:'    Private Sub Check1_Click()'        SetRichTextBoxWordWrap RichTextBox1, (Check1.Value = vbChecked)'    End SubSub SetRichTextBoxWordWrap(ByVal ctlRichText As RichTextBox, _    Optional ByVal bState As Boolean = True)    SendMessage ctlRichText.hwnd, EM_SETTARGETDEVICE, 0, CLng(IIf(bState, 0, 1))End Sub

See also  How AI Art Generators Can Save Time and Money for Startups
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist