Как определить высоту RichTextBox'а

[Alex_new_2030]

Есть RichTextBox без прокрутки окна, Multiline=True.
В него загружаю текст (размер шрафта везде одинаков). шарина его задана конкретно (например 7000). Естественно не влезший в строку текст он переносит на новые строчки.
Как мне узнать какой размер высоты (RichTextBox.Height) нужно установить, что бы виден был весь текст?
Надеюсь объяснил доходчиво.

[alibek]

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

' попробуй так
Private Type SCROLLINFO
    cbSize As Long
    fMask As Long
    nMin As Long
    nMax As Long
    nPage As Long
    nPos As Long
    nTrackPos As Long
End Type

Const SIF_RANGE = &H1
Const SB_VERT = 1

Dim lHeight As Long, OnePixel As Long

Private Declare Function GetScrollInfo Lib "user32" (ByVal hwnd As Long, ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long

Private Sub SetHeight(RTB As Control)
Dim S As SCROLLINFO, H As Long
S.cbSize = Len(S)
S.fMask = SIF_RANGE
Do
  Call GetScrollInfo(RTB.hWnd, SB_VERT, S)
  If S.nMax = 0 Then Exit Do
  H = S.nMax * Screen.TwipsPerPixelY
  RTB.Height = H
Loop
If H = 0 Then H = RTB.Height
RTB.Height = H
End Sub


Только поосторожнее с кодом
Я его в среде не проверял и если чуть ошибиться, то цикл Do...Loop получится бесконечным.

[Alex_new_2030]

Что-то не пашет !?
вызываю Call SetHeight(RTBox1)
при етом S.nMax = 0 всегда.
Может я что-то не так сделал??

[alibek]

Хм...
Вот рабочий код (с одной моей проги):

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

Dim S As ScrollInfo, H As Single
rtbAbout.Move picBox.ScaleLeft, picBox.ScaleTop, picBox.ScaleWidth, picBox.ScaleHeight
S.cbSize = Len(S)
S.fMask = SIF_RANGE
Do
  GetScrollInfo rtbAbout.hWnd, SB_VERT, S
  If S.nMax = 0 Then Exit Do
  If S.nMax = H Then Exit Do
  H = S.nMax
  rtbAbout.Height = H
Loop
If H > 0 Then rtbAbout.Height = H


rtbAbout размещен в picBox (ScaleMode=3). В свойствах rtbAbout выставлено MultiLine=True и ScrollBars=2.

[Alex_new_2030]

Не, все равно что-то не так. Может мы друг друга не поняли?
Суть проблемы состоит в следующем:

В программе, для ускорения ввода данных сделал следующее: по нажатию функциональных клавиш или комбинации их с Shift, Alt, Ctrl
в текстовое окно вставляется заранее закрепленный за комбинацией текст (клиент сам заполняет для каждой комбинации определенный текст, какой - заранее не известно, но много).
Так вот, для просмотра возможных комбинаций и соответствующего им текста, я записываю весь этот текст в RichTextBox, форматирую его для более удобной читаемости. Запихиваю RichTextBox в Frame и начинаю смещать RichTextBox вверх RichTextBox.top=RichTextBox.top - n, где n-скорость перемещения. Получается что-то вроде титров.
Так вот проблема встала в высоте RichTextBox, какой размер высоты нужно установить чтобы весь текст прокручивался? А то он определенный кусочет прокручивает. А заранее количесто введенного текста не угадаешь.

[GSerg]

Для создания титров рекомендуется не извращаться и копать в сторону ScrollDC.

[alibek]

Код, который я дал, задает такую высоту контрола, чтобы весь текст в нем умещался без создания вертикальной полосы прокрутки. Странно, что этот код не работает у тебя, у меня все работает на ура.
Вот скриншот:

Текст в окне -- это RichTextBox, который прокручивается по таймеру (он расположен в picBox и его реальный размер раза в три больше того, что виден на экране).

[Alex_new_2030]

Заработало !!!!!
Как получилось сам не знаю, вроде ни чего не менял?????
Но вот проблемка. Кагда количество текста в окне увеличиваешь, то окно расширяется как положено. А вот когда текста делаешь меньше чем было до расширения окна предыдущим текстом, то оно не сужается, а остается неизменным ????
Хотя когда выполняешь код пошагово (F8) все нормально - уменьшает размер. В чем проблема???? Уже и Refresh текстбокса делал- все равно не помагает.

[alibek]

Это уже глюки самого RichTextBox, он вечно со ScrollBars гонит.
Попробуй после смены текста изменять его высоту на пиксел, а потом уже подгонять высоту.

[Alex_new_2030]

Теперь получилось.
Нужно действительно после изменения текста - изменять размеры ричтекстбокса. Только оказывается не высоту, а ширину надо менять (уменьшил на 1). И все ОК.

Спасибо за помощь