Количество строк в текстбоксе

[allazar]

Проблемы с подсчетом количества строк в текстбоксе.
Использую
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
Private Sub Text1_Click()
Dim LineCount As Integer
LineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
MsgBox LineCount
End Sub
Если вставить в новый проект - все отлично.
Применяю в др. проекте - показывает кол-во строк 1 и еще скрывает текстбокс.

[Viper]

Странно... особенно насчет скрытия текстбокса.

З.Ы. Объяви lParam как ByVal lParam As Long, либо передавай ByVal 0&, хотя по идее это не должно бы вилиять на такие чудеса в конкретном проекте

[RayShade]

А я число строк считаю так:

Код: Выделить всё



linecount=(len(text1.text)-len(replace(text1.text,vbcrlf,"",-1,1)))/2



[allazar]

Фиг вам - национальная индейская изба!

[RayShade]

Кому из нас конкретно фиг?

[allazar]

RayShade
Это если принудительный переход на др строку.
А если Text1.Multiline=True?

[allazar]

RayShade
Фиг мне
Вообщем с ума можно сойти!

[RayShade]

Хм... Да... В этом случае, не поможет даже вычисление длины текста в пикселях с последующим делением на ширину контрола, потому что слова могут переноситься...

Я в растерянности