如何使丰富的文本框自动调整

我想调整一个富文本框以适应其中的字符，而不需要滚动它....我删除了富文本框的滚动条属性，并添加了一些代码内容丰富的文本框的大小事件：如何使丰富的文本框自动调整

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

丰富的文本框现在可以调整它的高度...问题是我不能找到一种方法，使其萎缩，因为用户删除了一些行富文本框

来源

2014-02-12 Aikawa Shirou

您不必制作if条件。只要这样做...

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

来源

2014-02-12 05:41:19

如何使丰富的文本框自动调整

回答

相关问题