vb.net 使用自动换行自动调整多行文本框高度

Question

我正在尝试在 Visual Studio 2013 的 Windows 窗体应用程序中创建一个固定宽度的文本框，该文本框将以单行高度开始，并随着用户键入和文本换行(自动换行)或用户按下时扩展输入创建一个新行。理想情况下，我想设置一个最大高度，此时将添加垂直滚动条。此外，当用户删除内容时，文本框也应该缩小。

也更希望能够使用富文本框，但我会选择常规文本框。

请告诉我，不需要一些疯狂的解决方法来完成应该相对容易的事情。

提前致谢!!

Answer 1

这对我有用:

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _
    Handles TextBox1.TextChanged
    TextBox1.Height = 
        TextRenderer.MeasureText(
            TextBox1.Text,
            TextBox1.Font,
            New Size(TextBox1.ClientSize.Width, 1000),
            TextFormatFlags.WordBreak
        ).Height
End Sub