API 为什么返回的负值？

Question

 Dim tmpStr As String, CurTextLength As Double
            CurTextLength = SendMessage(hwndRecieve, WM_GETTEXTLENGTH, 0, "")curtextlength 监视为 CurTextLength -1073741790.0 Double有谁知道为什么吗？

Answer 1

能看一下你的SendMessage的定义吗?

Answer 2

定义错了。当前文本长度：CurTextLength应定义为Long型，因为API函数SendMessage返回值类型就是Long型（你可以查一下C++的MSDN文档）。

Answer 3

Dim CurTextLength As Long
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwndMain As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As String) As Int32

Answer 4

应该这样定义：
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long 
Dim CurTextLength As Long