如何取得richTextBox中某一行的字符,要求遇到中文时也能够正确取出!敬待

voidwhite 2004-04-29 06:15:04
Public Function LineText(txtRichBox As RichTextBox, lineNumber As Long) _
As String
Dim nRet As Long
nRet = SendMessage(txtRichBox.hWnd, EM_LINEINDEX, lineNumber - 1, _
ByVal 0)
LineText = Space(SendMessage(txtRichBox.hWnd, EM_LINELENGTH, _
nRet, ByVal 0) + 2)
' Mid(LineText, 1, 1) = Chr(LenB(StrConv(LineText, vbFromUnicode)) Mod 256)
' Mid(LineText, 2, 1) = Chr(LenB(StrConv(LineText, vbFromUnicode)) \ 256)
Mid(LineText, 1, 1) = Chr(Len(LineText) Mod 256)
Mid(LineText, 2, 1) = Chr(Len(LineText) \ 256)

nRet = SendMessage(txtRichBox.hWnd, EM_GETLINE, lineNumber - 1, _
ByVal LineText)

Debug.Print Len(StrConv(LineText, vbFromUnicode)), nRet
LineText = Mid(LineText, 1, nRet)
End Function
我用了这段代码可以取到英文内容的某一行,但是有中文时出乱码,如果使用textBox则没有这个现象!!
有没有更好的方法,可以推荐
...全文
18 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ryuginka 2004-04-30
up
  • 打赏
  • 举报
回复
voidwhite 2004-04-30
有人知道的?
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7547

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-04-29 06:15
社区公告
暂无公告