首页 / 知识

关于winforms：仅当文本不合适时，如何在System.Windows.Forms.TextBox上显示滚动条？

2023-04-15 23:31:00

How can I show scrollbars on a System.Windows.Forms.TextBox only when the text doesn't fit?

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

这是一个只读文本框，仅用于显示。这是一个TextBox，以便用户可以复制文本。有内置的功能支持滚动条的自动显示吗？如果没有，我应该使用其他控件吗？还是我需要钩住TextChanged并手动检查是否溢出(如果是，那么如何确定文本是否适合？)

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

@nobugz，谢谢，在禁用WordWrap时可以使用。我不希望禁用自动换行，但这是两种弊端中的较小者。

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

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

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

在您的项目中添加一个新类，并粘贴以下代码。编译。将新控件从工具箱的顶部拖放到窗体上。它不是很完美，但应该为您工作。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

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);
}
}

nobugz解决方案中存在一个非常细微的错误，该错误会导致堆损坏，但仅当您使用AppendText()更新TextBox时才如此。

从OnTextChanged设置ScrollBars属性将导致Win32窗口(句柄)被破坏并重新创建。但是从Win32编辑控件(EditML_InsertText)的肠中调用OnTextChanged，此后立即期望该Win32编辑控件的内部状态不变。不幸的是，由于重新创建了窗口，因此操作系统已释放了该内部状态，从而导致访问冲突。

因此，故事的寓意是：如果要使用nobugz的解决方案，请不要使用AppendText()。

我还进行了一些实验，发现垂直栏始终显示(如果启用)，水平栏始终在启用和WordWrap == false时一直显示。

我认为您不会在这里得到想要的东西。但是，我相信用户希望Windows的默认行为比您尝试强制的默认行为更好。如果我使用的是您的应用程序，那么我的文本框房地产突然缩水，可能仅仅是因为它需要容纳一个意外的滚动条，因为我给它提供了太多的文字，我可能会因此而烦恼！

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

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);
}
}

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

对于大多数UI而言，同时具有垂直和水平滚动条的文本框非常糟糕，因此我仅对垂直滚动条感兴趣。

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

无论有没有边框，以下内容似乎都能很好地工作，并且在启用WordWrap的情况下也可以使用。

只需在需要时调用AutoScrollVertically()，然后选择指定recalculateOnResize。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

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;
}
}

滚动条文本显示不合