vb.net - 动态调整字体大小以填满 RichTextbox

Question

如何动态调整 RichTextbox 中的文本大小，使其填满整个富文本框？任何帮助深表感谢。谢谢你。

Answer 1

这篇 MSDN 文章几乎可以回答您的问题。http://msdn.microsoft.com/en-us/library/bb986765.aspx。您可以在那里下载附件示例。

Answer 2

我认为您可能必须使用“字体”构造函数来发挥创意。例如，在单击事件上，然后使用与您的应用程序（或文本框大小）的某种关系以及所需的字体大小来构造一个新的字体。

Protected Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn.Click
  Dim yourfontsize As Integer    

  'machinery to create desired font size
  If blah then 
      yourfontsize = X() 
  Else
      yourfontsize = Y()
  End If


  yourtextbox.SelectionFont = New Font("Tahoma", yourfontsize, FontStyle.Bold)

End Sub

其中 X() 和 Y() 是根据应用程序中可能发生的其他情况返回目标字体大小的函数。

参考：http: //msdn.microsoft.com/en-us/library/yh8963yx.aspx

希望有帮助！

-sf