¿Cómo divide la programación VB el contenido de un TextBox y lo escribe en otros TextBoxes específicos?

Const privada EM_LINELENGTH = amp;HC1

Const privada EM_LINEINDEX = amp;HBB

Función de declaración privada SendMessage Lib "user32" Alias ​​​​"SendMessageA" (ByVal hWnd mientras, ByVal wMsg mientras, ByVal wParam mientras, lParam como cualquiera) Mientras

Declaración privada Sub RtlMoveMemory Lib "KERNEL32" (lpvDest como cualquier, lpvSource como cualquier,

Declaración privada Sub RtlMoveMemory Lib "KEREL32" (lpvDest como cualquiera, lpvSource como cualquiera, ByVal cbCopy mientras)

Sub privada TB_GetLine (ByVal hWnd mientras, ByVal cual línea tan larga, línea como String)

Atenuar longitud como largo

Atenuar bArr() como byte

Atenuar bArr2() como byte

Atenuar lc como largo

p>

lc = SendMessage(hWnd, EM_LINEINDEX, whatLine, ByVal 0amp;)

longitud = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0amp;)

Si la longitud gt ; 0 entonces

ReDim bArr(longitud 1) como byte, bArr2(longitud - 1) como byte

Llame a RtlMoveMemory(bArr(0), longitud , 2)

Llamar a SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))

Llamar a RtlMoveMemory(bArr2(0), bArr(0), longitud)

Línea = StrConv( bArr2, vbUnicode )

Else

Línea = ""

Fin si

Fin Sub

La función anterior El valor de cada línea en el cuadro de texto se puede leer. El método de llamada es el siguiente, donde 0 es la primera línea

Llamar a TB_GetLine(Text1.hWnd, 0). , S)

Text2.Text = S

Ya sabes qué hacer a continuación.