devxlogo

TextBoxGetLine – Return a single line in a multiline TextBox control

TextBoxGetLine – Return a single line in a multiline TextBox 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 LongConst EM_LINEINDEX = &HBBConst EM_LINELENGTH = &HC1' Return the specified line in a multiline TextBox control.Function TextBoxGetLine(tb As TextBox, ByVal lineNum As Long) As String    Dim charOffset As Long, lineLen As Long    ' Retrieve the character offset of the first character of the line.    charOffset = SendMessage(tb.hwnd, EM_LINEINDEX, lineNum, ByVal 0&)    ' Now it is possible to retrieve the length of the line.    lineLen = SendMessage(tb.hwnd, EM_LINELENGTH, charOffset, ByVal 0&)    ' Extract the line text.    TextBoxGetLine = Mid$(tb.Text, charOffset + 1, lineLen)End Function

See also  5 Strategies for Supercharging Your CRM
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