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

2003-11-15 02:51:30 138 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

leiyusong2000 墨衍会员 · AI 创作全网分发关注 + 加入社区

VB的文本框控件TextBox打开Office的Word文档有网友问我，VB的文本框控件TextBox能否打开Office的Word文档。VB的TextBox是Ansi版本的，通过open语句打开载入到TextBox中，肯定是乱码，没啥说的。但是，我们可以通过间接的方式打开Office的Word文档，通过一系列的API调用，将文档转换到TextBox中，而且保留了Word的版式（除字体变化以外）。请看下面程序：标准模块： '标准模块 Opt 阅读详情

网上有一段是这样的
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

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

...全文