Как сделать богатое текстовое поле autosize

Question

Я хочу изменить размер богатого текстового поля, чтобы он соответствовал символу внутри него, без прокрутки на нем .... Я удалил свойство полосы прокрутки богатого текстового поля и добавил код на содержание изменения размера событий богатого текстового поля:

Private Sub TextBox_ContentsResized(sender As Object, e As ContentsResizedEventArgs) Handles TextBox.ContentsResized 

    If TextBox.Height < e.NewRectangle.Height + 12 Then 

     TextBox.Height = e.NewRectangle.Height + 12 

    End If 

End Sub 

богатых текстовое поле теперь можно изменять размеры его высота ... проблема, я не могу найти способ сделать его сжать как пользователь удалить некоторые строки из богатое текстовое поле

Answer 1

Вам не обязательно устанавливать условие if. Просто сделайте это ...

Private Sub TextBox_ContentsResized(sender As Object, e As ContentsResizedEventArgs) Handles TextBox.ContentsResized 
    TextBox.Height = e.NewRectangle.Height + 12 
End Sub