richtextbox에서 vb6의 유니 코드 형식으로 텍스트를 가져 오는 방법

Question

vb6의 richtextbox 컨트롤에서 텍스트를 가져 오려고합니다. 그러나 유니 코드 텍스트가 작동하지 않습니다.

text1=richtextbox1.text 

이

은 가

아무도 도와 줄 수 나에게 "????"

을했다?

---

이 코드는 작동하지 않습니다. 나는이 선언 그것을 실행하려고 :

Const GTL_USECRLF = 1 
Const GTL_PRECISE = 2 
Const GTL_NUMCHARS = 8 
Const CP_UNICODE = 1200 
Const GT_USECRLF = 1 
Private Type GETTEXTEX 
    cb As Long 
    flags As Long 
    codepage As Integer 
    lpDefaultChar As String 
    lpUsedDefChar As Boolean 
End Type 
Private Type GETTEXTLENGTHEX 
    flags As Long   ' /* flags (see GTL_XXX defines)    */ 
    codepage As Long  ' /* code page for translation (CP_ACP for default, 
          '1200 for Unicode       */ 
End Type 

그리고에 대해 내가 아는 해달라고 :

EM_GETTEXTLENGTHEX , EM_GETTEXTEX 

완전한 코드를 보내 주시기 바랍니다. (모든 선언 있음)

Answer 1

정말 쉽지.

Public Function RTBReadUnicode(ByVal RTB As RichTextLib.RichTextBox) As String 
    'Reads Text from RichTextBox as Unicode text on a system with Rich Edit 3.0 
    '(Windows Me, Windows 2000, or later). 
    Dim gtlUnicode As GETTEXTLENGTHEX 
    Dim gtUnicode As GETTEXTEX 
    Dim lngChars As Long 

    With gtlUnicode 
     .flags = GTL_USECRLF Or GTL_PRECISE Or GTL_NUMCHARS 
     .codepage = CP_UNICODE 
    End With 
    lngChars = SendMessageWLng(RTB.hWnd, EM_GETTEXTLENGTHEX, VarPtr(gtlUnicode), 0) 

    With gtUnicode 
     .cb = (lngChars + 1) * 2 
     .flags = GT_USECRLF 
     .codepage = CP_UNICODE 
    End With 
    RTBReadUnicode = String$(lngChars, 0) 
    SendMessageWLng RTB.hWnd, EM_GETTEXTEX, VarPtr(gtUnicode), StrPtr(RTBReadUnicode) 
End Function