by Jeff Clayton (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 24th September 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A snippet of code that can extract the contents of a text box that has been set to multiline, line by line
API Declarations
Public Const EM_CANUNDO = 198
Public Const EM_GETMODIFY = 184
Public Const EM_SETMODIFY = 185
Public Const EM_UNDO = 199
Public Const EM_CANPASTE = 1074
Public Const EM_FINDTEXT = 1080
Public Const EM_GETFIRSTVISIBLELINE = 206
Public Const EM_GETLINECOUNT = 186
Public Const EM_GETLINE = 196
Public Const EM_LINEFROMCHAR = 201
Public Const EM_LINEINDEX = 187
Public Const EM_LINELENGTH = 193
Public Const EM_EXLINEFROMCHAR = 1078
Public Const EM_LINESCROLL = 182
Public Const EM_SCROLLCARET = 183
Public Const EM_SETTABSTOPS = 203
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lparam As Long) As Long
Dim Lines
Dim WinH As Long
Dim i As Integer
Dim LineLength As Long
Dim charOffset As Long
'Get the windows handle of the multiline text box
WinH = txtFileName.hWnd
'Get the number of lines in the mutiline text box called txtFileName
Lines = SendMessage(WinH, EM_GETLINECOUNT, 0, 0)
For i = 0 To Lines - 1
'Retrieve the offset of first character in the line
charOffset = SendMessage(WinH, EM_LINEINDEX, i, 0)
'Now get the length of the line
LineLength = SendMessage(WinH, EM_LINELENGTH, charOffset, 0)
'Debug.Print LineLength
sFileName = Mid$(txtFileName.Text, charOffset + 1, LineLength)
Debug.Print sFileName
Next i
No comments have been posted about A snippet of code that can extract the contents of a text box that has been set to multiline, line . Why not be the first to post a comment about A snippet of code that can extract the contents of a text box that has been set to multiline, line .