vb.net textbox/richtextbox GetPreferredSize不起作用

Question

我有一個winforms RichTextBox和TextBox（嘗試兩個）。當我鍵入文本時，我希望該框垂直放大（或垂直較小），以便所有文本均可查看。

我使用下面的代碼在RichTextBox的TextChanged事件：

RTB.Height = RTB.GetPreferredSize(New Size(RTB.Width, 0)).Height 

這個代碼在大多數情況下，除了一個 - 當你把一個字（無空格），這是大於寬度的盒子。有任何想法嗎？

謝謝。

Answer 1

Stackoverflow找到以下答案！只是不得不尋找更好的...

Private Sub rtb_ContentsResized(ByVal sender As Object, ByVal e As System.Windows.Forms.ContentsResizedEventArgs) Handles txtQuestion.ContentsResized 
    Dim h = e.NewRectangle.Height, w = e.NewRectangle.Width 
    h = Math.Max(h, sender.Font.Height) 
    h = Math.Min(h, Me.ClientSize.Height - 10 - sender.Top) 
    h += sender.Height - sender.ClientSize.Height + 1 
    sender.Height = h 
End Sub 

從

Measure String inside RichTextBox Control

Answer 2

嘗試試驗RTB最小和最大尺寸屬性。

聽起來像設置最大寬度可能會解決您的問題。