getText函数如下:
Private Function GetText(iHwnd As Long) As String
Dim Textlen As Long
Dim text As String Textlen = SendMessage(iHwnd, WM_GETTEXTLENGTH, 0, 0)
If Textlen = 0 Then
GetText = "" '"类的文本为空"
Exit Function
End If
Textlen = Textlen + 1
text = Space(Textlen)
Textlen = SendMessage(iHwnd, WM_GETTEXT, Textlen, ByVal text)
GetText = Left(text, Textlen)End Function
请教!
请教:
“你是如何得到列表框的句柄的”----要是本软件的,就是list1.hwnd,要是其它软件的,我就用SPY++来查,但不管那一种,都没有办法得到它的文本。
“还有有的文本框屏蔽了WM_GETTEXT消息。”----对这种文本框,如何才能得到它的文本呢?继续请教!