Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.147.13.229] |
|
Сообщ.
#1
,
|
|
|
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const EM_GETLINECOUNT = &HBA, EM_LINEFROMCHAR = &HC9 Dim LineCount As Long, CurrentLine As Long ' Число строк в текстовом окне LineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0) ' Номер текущей строки CurrentLine = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, Text1.SelStart, 0) + 1 |