Question

对于Multiline = True的System.Windows.Forms.TextBox，我只想在文本不适合时显示滚动条。

这是一个仅用于显示的只读文本框。它是一个TextBox，以便用户可以复制文本。是否有任何内置支持滚动条的自动显示？如果没有，我应该使用不同的控件吗？或者我是否需要挂钩TextChanged并手动检查溢出（如果是，如何判断文本是否合适？）

WordWrap和Scrollbars设置的各种组合没有运气。我想最初没有滚动条，只有当文本不符合给定方向时才会动态显示。

@nobugz，谢谢，这在WordWrap被禁用时有效。我不想禁用wordwrap，但它是两个邪恶中较小的一个。

@AndréNeves，好的一点，如果是用户可编辑的话我会这样做。我同意一致性是UI直观性的基本规则。

Answer 1

当我想解决同样的问题时，我遇到了这个问题。

最简单的方法是更改为System.Windows.Forms.RichTextBox。在这种情况下，ScrollBars属性可以保留为RichTextBoxScrollBars.Both的默认值，表示“在需要时显示水平和垂直滚动条”。如果在TextBox上提供此功能，那就太好了。

Answer 2

在项目中添加一个新类并粘贴下面显示的代码。编译。将新控件从工具箱顶部拖放到表单上。它不是很完美，但应该适合你。

using System;
using System.Drawing;
using System.Windows.Forms;

public class MyTextBox : TextBox {
  private bool mScrollbars;
  public MyTextBox() {
    this.Multiline = true;
    this.ReadOnly = true;
  }
  private void checkForScrollbars() {
    bool scroll = false;
    int cnt = this.Lines.Length;
    if (cnt > 1) {
      int pos0 = this.GetPositionFromCharIndex(this.GetFirstCharIndexFromLine(0)).Y;
      if (pos0 >= 32768) pos0 -= 65536;
      int pos1 = this.GetPositionFromCharIndex(this.GetFirstCharIndexFromLine(1)).Y;
      if (pos1 >= 32768) pos1 -= 65536;
      int h = pos1 - pos0;
      scroll = cnt * h > (this.ClientSize.Height - 6);  // 6 = padding
    }
    if (scroll != mScrollbars) {
      mScrollbars = scroll;
      this.ScrollBars = scroll ? ScrollBars.Vertical : ScrollBars.None;
    }
  }

  protected override void OnTextChanged(EventArgs e) {
    checkForScrollbars();
    base.OnTextChanged(e);
  }

  protected override void OnClientSizeChanged(EventArgs e) {
    checkForScrollbars();
    base.OnClientSizeChanged(e);
  }
}

Answer 3

我也进行了一些实验，发现如果你启用它，垂直条将始终显示，并且水平条始终显示，只要它已启用WordWrap == false。

我认为你不会在这里得到你想要的东西。但是，我相信用户希望Windows的默认行为比您试图强制的更好。如果我使用你的应用程序，如果我的文本框房地产突然缩小只是因为它需要容纳一个意想不到的滚动条，我可能会感到困扰，因为我给了它太多的文本！

也许让您的应用程序遵循Windows的外观可能是一个好主意。

Answer 4

nobugz的解决方案中存在一个非常微妙的错误，导致堆损坏，但前提是您正在使用AppendText（）来更新TextBox。

从OnTextChanged设置ScrollBars属性将导致Win32窗口（句柄）被销毁并重新创建。但是OnTextChanged是从Win32编辑控件（EditML_InsertText）的内部调用的，之后立即要求Win32编辑控件的内部状态保持不变。不幸的是，由于窗口被重新创建，操作系统已释放该内部状态，从而导致访问冲突。

故事的寓意是：如果你打算使用nobugz的解决方案，请不要使用AppendText（）。

Answer 5

我在下面的代码中取得了一些成功。

  public partial class MyTextBox : TextBox
  {
    private bool mShowScrollBar = false;

    public MyTextBox()
    {
      InitializeComponent();

      checkForScrollbars();
    }

    private void checkForScrollbars()
    {
      bool showScrollBar = false;
      int padding = (this.BorderStyle == BorderStyle.Fixed3D) ? 14 : 10;

      using (Graphics g = this.CreateGraphics())
      {
        // Calcualte the size of the text area.
        SizeF textArea = g.MeasureString(this.Text,
                                         this.Font,
                                         this.Bounds.Width - padding);

        if (this.Text.EndsWith(Environment.NewLine))
        {
          // Include the height of a trailing new line in the height calculation        
          textArea.Height += g.MeasureString("A", this.Font).Height;
        }

        // Show the vertical ScrollBar if the text area
        // is taller than the control.
        showScrollBar = (Math.Ceiling(textArea.Height) >= (this.Bounds.Height - padding));

        if (showScrollBar != mShowScrollBar)
        {
          mShowScrollBar = showScrollBar;
          this.ScrollBars = showScrollBar ? ScrollBars.Vertical : ScrollBars.None;
        }
      }
    }

    protected override void OnTextChanged(EventArgs e)
    {
      checkForScrollbars();
      base.OnTextChanged(e);
    }

    protected override void OnResize(EventArgs e)
    {
      checkForScrollbars();
      base.OnResize(e);
    }
  }

Answer 6

Aidan描述的几乎就是我面临的UI场景。由于文本框是只读的，我不需要它来响应TextChanged。而且我更喜欢自动滚动重新计算被延迟，因此在调整窗口大小时它不会每秒发射数十次。

对于大多数用户界面来说，包含垂直和水平滚动条的文本框都是邪恶的，所以我只对这里的垂直滚动条感兴趣。

我还发现MeasureString产生的高度实际上大于所需的高度。使用文本框的PreferredHeight没有边框作为行高会产生更好的结果。

以下似乎工作得很好，有或没有边框，并且它适用于WordWrap。

只需在需要时调用AutoScrollVertically（），并可选择指定recalculateOnResize。

public class TextBoxAutoScroll : TextBox
{
    public void AutoScrollVertically(bool recalculateOnResize = false)
    {
        SuspendLayout();

        if (recalculateOnResize)
        {
            Resize -= OnResize;
            Resize += OnResize;
        }

        float linesHeight = 0;
        var   borderStyle = BorderStyle;

        BorderStyle       = BorderStyle.None;

        int textHeight    = PreferredHeight;

        try
        {
            using (var graphics = CreateGraphics())
            {
                foreach (var text in Lines)
                {
                    var textArea = graphics.MeasureString(text, Font);

                    if (textArea.Width < Width)
                        linesHeight += textHeight;
                    else
                    {
                        var numLines = (float)Math.Ceiling(textArea.Width / Width);

                        linesHeight += textHeight * numLines;
                    }
                }
            }

            if (linesHeight > Height)
                ScrollBars = ScrollBars.Vertical;
            else
                ScrollBars = ScrollBars.None;
        }
        catch (Exception ex)
        {
            System.Diagnostics.Debug.WriteLine(ex);
        }
        finally
        {
            BorderStyle = borderStyle;

            ResumeLayout();
        }
    }

    private void OnResize(object sender, EventArgs e)
    {
        m_timerResize.Stop();

        m_timerResize.Tick    -= OnDelayedResize;
        m_timerResize.Tick    += OnDelayedResize;
        m_timerResize.Interval = 475;

        m_timerResize.Start();
    }

    Timer m_timerResize = new Timer();

    private void OnDelayedResize(object sender, EventArgs e)
    {
        m_timerResize.Stop();

        Resize -= OnResize;

        AutoScrollVertically();

        Resize += OnResize;
    }
}

如果文本不适合，如何在System.Windows.Forms.TextBox上显示滚动条？

6 个答案: