Question

VB 这个Debug.Print结果怎么样才能输出在TEXT1.TEXT

Private Sub Command1_Click()
Dim hwndNotepad As Long
Dim hwndEdit As Long
Dim byt() As Byte
Dim lLen As Long

hwndNotepad = FindWindowEx(0, 0, "Notepad", vbNullString)
If hwndNotepad = 0 Then
MsgBox "Can't find notepad window"
Exit Sub
End If
hwndEdit = FindWindowEx(hwndNotepad, 0, "Edit", vbNullString)
lLen = SendMessage(hwndEdit, WM_GETTEXTLENGTH, 0, 0)
If lLen > 0 Then
ReDim byt(0 To lLen) As Byte
SendMessage hwndEdit, WM_GETTEXT, ByVal lLen, byt(1)
End If
Debug.Print StrConv(byt, vbUnicode)
End Sub
这个网上看到的一段代码，大约就是判断记事本里面的内容，然后输出结果，但是结果怎么输入到一个TEXT控件去呢？
我试过直接
Text1.text=byt
然后得到全是“？”

Answer 1

Debug.Print StrConv(byt, vbUnicode)

不就是输出内容为：StrConv(byt, vbUnicode) 吗？
那么把 StrConv(byt, vbUnicode) 赋值给文本框呀？
text1.text = StrConv(byt, vbUnicode)

追问

确实不行的。要不我也不会来问了。
text1.text = StrConv(byt, vbUnicode)的结果是一片空白。
text1.text=byt 的结果是“？？？？？？？？“

但是程序没有报代码错误，所以肯定哪里有问题了。

追答

那请问？
Debug.Print StrConv(byt, vbUnicode)

输出什么内容？

追问

输出的内容和记事本上面的一样。例如记事本上写入“我是一个青蛙王子。”
Debug.Print StrConv(byt, vbUnicode)或者
Print StrConv(byt, vbUnicode)
都能输出“我是一个青蛙王子。”
text控件则是一片空白。我也换过label控件来试过，也是空白。
感觉好像是Unicode转码之后对于text不支持？
反正不知道怎么搞~~

追答

你试试
text1.text = cstr(StrConv(byt, vbUnicode))呢？

追问

还是不能成功，依旧是空白。
以前曾经看到过有段代码好像是可以扩展Text功能的。不知道是不是需要那个。
我试过textbox，richtextbox，照样不行。richtextbox有时候出现内存溢出。字数少一点的时候显示一堆韩文，但是这些韩文百度翻译不出来的。

追答

试试，能否，一个一个字节地用chrb()函数转换。

Answer 2

Text1.text=StrConv(byt, vbUnicode)
照抄都不会？