如何在VB.Net中为RichTextBox控件提供填充？

Question

我正在开发vb.net中的windows应用程序。在那里我有一个形式的RichTextBox控件。现在我想在richtextbox中填充一些内容。所以我的文本将在一些空格（填充）之后开始，如word文档。

那么任何人都可以知道如何为RichTextBox控件提供填充吗？

先谢谢。

Answer 1

没有允许填充的内置属性。您可以创建自己的控件并自己处理绘画（或找到其他人 - http://www.codeproject.com/Articles/21437/A-Padded-Rich-Text-Box-Subclass）;但是您可以通过将RichTextBox停靠在Panel中来轻松实现所需的外观。

Panel确实有Padding属性。

如果使用相同的BackColor，它可能会产生所需的效果。滚动条可能看起来“关闭”;如果你需要滚动东西会变得更复杂 - 我认为你可以使用VScrollBar - 与Panel的高度相同但管理滚动会变得复杂。你想要阻止RichTextBox显示它的滚动条;但是您需要使用VScrollBar来管理滚动。

如果没有提供更好的解决方案;今晚我会试一试，看看能否让它运转起来:)）

Answer 2

我有一个类似的问题，这对我有用，对左边距最小。基本上我选择了所有文本并设置了缩进。

With RTB        'This changes the left margin for the whole thing
  Dim OldSelStart As Integer = .SelectionStart
  Dim OldSelLen As Integer = .SelectionLength
  .SelectionStart = 0
  .SelectionLength = Len(.Text)
  .SelectionIndent = 10
  .SelectionStart = OldSelStart
  .SelectionLength = OldSelLen
End With