急问：EM_EXLINEFROMCHAR这个消息的16进制值是多少？

Question

如题~

Answer 1

436(hex). 1078(dec)附：获得文本框光标所在行的代码：Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, _
lParam As Any) As LongPrivate Const EM_EMPTYUNDOBUFFER = 205
Private Const EM_CANUNDO = 198
Private Const EM_GETMODIFY = 184
Private Const EM_SETMODIFY = 185
Private Const EM_UNDO = 199
Private Const EM_CANPASTE = 1074
Private Const EM_FINDTEXT = 1080
Private Const EM_GETFIRSTVISIBLELINE = 206
Private Const EM_GETLINECOUNT = 186
Private Const EM_GETLINE = 196
Private Const EM_LINEFROMCHAR = 201
Private Const EM_LINEINDEX = 187
Private Const EM_LINELENGTH = 193
Private Const EM_EXLINEFROMCHAR = 1078   'here
Private Const EM_LINESCROLL = 182
Private Const EM_SCROLLCARET = 183
Private Const EM_SETTABSTOPS = 203Public Function GetTextBoxCurrentLine(TB As TextBox) As Long
GetTextBoxCurrentLine = SendMessage(TB.hwnd, EM_LINEFROMCHAR, -1, _
ByVal 0&) + 1
End Function
Private Sub Command1_Click()
MsgBox GetTextBoxCurrentLine(Text1)
End Sub