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

如何使富文本框自动调整大小

1 个答案: