чёта я туплю или вопрос про TextBox

[Бяка]

как програмно отлавить переход на новую стороку в TextBox`e при MultiLine = true
если я туда ввожу "2222222222222222222222222222222...."
т.е. КАК отловить тот мамент когда TextBox , при достижении каретки Width`а переброст её на новуя сторку вот так :
"22222222222222222
222222222222...."
Я идиот! Убейте меня, кто-нибудь!

[vvs_adm]

Бяка
Судя по аватару, ты этот момент отловить просто-напросто не успеваешь

P.S.: зато я уже отловил Учись!!

[Хакер]

Если Me.Font идентичен с Text1.Font то этот момент наступит, когда

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


Me.TextWidth(Text1.Text) Mod Text1.ScaleWidth


станет на 1 больше. Иначе - никак. (Ну если только не через з-цу, ковыряться на низком уровне)

[Wild VB Code for Food]

искать в строке vbCrLf

[Хакер]

Нет, vbCrLf будет если ввести Enterom a13+a10. А здесь нужно определить момент, когда TextBox перенесёт на новую строчку. И тут даже предложенный мною способ наверное не пойдёт: ведь перенос осуществляется не по буквам, а по цельным символьным блоком (т.е. по словам).

[Бяка]

он прокатывает , но только когда я набираю текст, а если я меняю резмер шрифта и приетом у меня набрано уже больше 2х строчек то он сглючивает

[Бяка]

vvs_adm
угу

[BV]

ведь перенос осуществляется не по буквам, а по цельным символьным блоком

Ну дык нечего давать новой строке право на жизнь

он прокатывает , но только когда я набираю текст, а если я меняю резмер шрифта и приетом у меня набрано уже больше 2х строчек то он сглючивает

Изменяя шрифт TextBox, меняй и шрифт формы.

[Kostyan]

Держи:

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

Private Declare Function SendMessageL Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const EM_GETLINECOUNT As Long = &HBA

Public LC As Long, LCold As Long

Private Sub Text1_Change()
LC = SendMessageL(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
If LC <> LCold Then
  'Тот самый момент, когда меняется количество строк
  LCold = LC
  Me.Caption = "Количество строк = " & LC
End If
End Sub


[Бяка]

Класс! спасибо!

а некто не знает где мона узнать цифровые значения констант:
DT_BOTTOM
DT_CALCRECT
DT_CENTER
DT_EDITCONTROL
DT_END_ELLIPSIS or DT_PATH_ELLIPSIS
DT_EXPANDTABS
DT_EXTERNALLEADING
DT_LEFT
DT_MODIFYSTRING
DT_NOCLIP
DT_NOPREFIX
DT_RIGHT
DT_RTLREADING
DT_SINGLELINE
DT_TABSTOP
DT_TOP
DT_VCENTER
DT_WORDBREAK

для DrawTextEx
в API-Guide нету я сматрел!

[Amed]

Api text viewer из набора стандартных утилит Visual Studio.

[alibek]

Лучше смотреть хидеры студии. Так точнее.