用VB怎样提取TEXTBOX中的一行？

[leiyusong2000]

网上有一段是这样的
Sub TB_GetLine(ByVal hwnd As Long, ByVal whichLine As Long, Line As String)

Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long
lc = SendMessage(hwnd, EM_LINEINDEX, whichLine, ByVal 0&)
length = SendMessage(hwnd, EM_LINELENGTH, lc, ByVal 0&)

If length > 0 Then
ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
Call RtlMoveMemory(bArr(0), length, 2) '准备一个存储器，传递消息之前先在存储器的前两个字节填入存储器的长度
Call SendMessage(hwnd, EM_GETLINE, whichLine, bArr(0))
Call RtlMoveMemory(bArr2(0), bArr(0), length)
Line = StrConv(bArr2, vbUnicode)

Else
Line = ""
End If

End Sub




对英文支持的很好 可是到了中文就不行了。哪位大侠帮帮忙。谢谢啦

[flc]

关注

[yanlong]

用api函数呀！
EM_GETLINE