关于SendMessage的疑问~

Question

下面这句怎么返回0,实际上Text1中有不止一行字符串的~
SendMessageByVal(Text1.hWnd, EM_GETLINECOUNT, 0, 0)

Answer 1

'text1的MultiLine 属性要设为true
Option ExplicitConst EM_GETLINECOUNT = &HBAPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As LongPrivate Sub Command1_Click()Dim Ret As Long
Ret = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, ByVal 0&) '取行数
Debug.Print RetEnd Sub

Answer 2

'text1的MultiLine 属性要设为true
我试试先~

Answer 3

怎么还不行啊~
返回值为1，另外&HBA代表？

Answer 4

//怎么还不行啊~
返回值为1，另外&HBA代表？检查一下你的api声明