|
发表于 2012-8-25 22:03:18
|
显示全部楼层
- Public Property Get Text(hwnd As Long) As String
- Dim Buf(10000) As Byte, Length As Long
- Length = GetWindowTextLength(hwnd)
- SendMessage hwnd, WM_GETTEXT, Length, ByVal VarPtr(Buf(0))
- Text = StrConv(Buf, vbUnicode)
- End Property
复制代码 这段有点问题.....缓冲区有点小,在我这会崩掉- Public Property Get Text(hwnd As Long) As String
- Dim Buf() As Byte, Length As Long
- Length = GetWindowTextLength(hwnd)
- ReDim Buf(Length)
- SendMessage hwnd, WM_GETTEXT, Length, ByVal VarPtr(Buf(0))
- Text = StrConv(Buf, vbUnicode)
- End Property
复制代码 改成这样测试通过 |
|