Bob*_*Bob 399
我会定期添加新的文本行.我希望每当添加新行时,文本框都会自动滚动到最底部的条目(最新的条目).
如果使用TextBox.AppendText(string text),它将自动滚动到新附加文本的末尾.如果你在循环中调用它,它可以避免闪烁的滚动条.
它也恰好比连接到.Text属性快一个数量级.虽然这可能取决于你调用它的频率; 我正在测试一个紧凑的循环.
如果在显示文本框之前调用它,或者如果文本框不可见(例如,在TabPanel的不同选项卡中),则不会滚动.请参见TextBox.AppendText()而不是自动滚动.这可能重要,也可能不重要,具体取决于您是否在用户看不到文本框时需要自动滚动.
似乎其他答案中的替代方法在这种情况下也不起作用.一种方法是在VisibleChanged事件上执行额外的滚动:
textBox.VisibleChanged += (sender, e) =>
{
if (textBox.Visible)
{
textBox.SelectionStart = textBox.TextLength;
textBox.ScrollToCaret();
}
};
在内部,AppendText做这样的事情:
textBox.Select(textBox.TextLength + 1, 0);
textBox.SelectedText = textToAppend;
但是没有理由手动完成.
(如果你自己反编译,你会发现它使用了一些可能更有效的内部方法,并且具有似乎是一个小的特殊情况.)
GWL*_*osa 143
您可以使用以下代码段:
myTextBox.SelectionStart = myTextBox.Text.Length;
myTextBox.ScrollToCaret();
它将自动滚动到结尾.
Joh*_*ach 38
看来.NET 4.0中的界面发生了变化.有以下方法可以实现上述所有目的.正如Tommy Engebretsen所建议的那样,将它放在TextChanged事件处理程序中会使其自动化.
textBox1.ScrollToEnd();
小智 16
尝试将建议的代码添加到TextChanged事件:
private void textBox1_TextChanged(object sender, EventArgs e)
{
textBox1.SelectionStart = textBox1.Text.Length;
textBox1.ScrollToCaret();
}
textBox1.Focus()
textBox1.SelectionStart = textBox1.Text.Length;
textBox1.ScrollToCaret();
对我不起作用(Windows 8.1,不管是什么原因).
因为我还在.NET 2.0上,所以我不能使用ScrollToEnd.
但这有效:
public class Utils
{
[System.Runtime.InteropServices.DllImport("user32.dll", CharSet = System.Runtime.InteropServices.CharSet.Auto)]
private static extern int SendMessage(System.IntPtr hWnd, int wMsg, System.IntPtr wParam, System.IntPtr lParam);
private const int WM_VSCROLL = 0x115;
private const int SB_BOTTOM = 7;
/// <summary>
/// Scrolls the vertical scroll bar of a multi-line text box to the bottom.
/// </summary>
/// <param name="tb">The text box to scroll</param>
public static void ScrollToBottom(System.Windows.Forms.TextBox tb)
{
if(System.Environment.OSVersion.Platform != System.PlatformID.Unix)
SendMessage(tb.Handle, WM_VSCROLL, new System.IntPtr(SB_BOTTOM), System.IntPtr.Zero);
}
}
VB.NET:
Public Class Utils
<System.Runtime.InteropServices.DllImport("user32.dll", CharSet := System.Runtime.InteropServices.CharSet.Auto)> _
Private Shared Function SendMessage(hWnd As System.IntPtr, wMsg As Integer, wParam As System.IntPtr, lParam As System.IntPtr) As Integer
End Function
Private Const WM_VSCROLL As Integer = &H115
Private Const SB_BOTTOM As Integer = 7
''' <summary>
''' Scrolls the vertical scroll bar of a multi-line text box to the bottom.
''' </summary>
''' <param name="tb">The text box to scroll</param>
Public Shared Sub ScrollToBottom(tb As System.Windows.Forms.TextBox)
If System.Environment.OSVersion.Platform <> System.PlatformID.Unix Then
SendMessage(tb.Handle, WM_VSCROLL, New System.IntPtr(SB_BOTTOM), System.IntPtr.Zero)
End If
End Sub
End Class
小智 8
我需要添加刷新:
textBox1.SelectionStart = textBox1.Text.Length;
textBox1.ScrollToCaret();
textBox1.Refresh();
我用这个。简单、干净、快速！
txtTCPTxRx.AppendText(newText);
下面是我实际使用的代码
ThreadSafe(() =>
{
string newLog = $"{DateTime.Now:HH:mm:ss:ffff->}{dLog}{Environment.NewLine}";
txtTCPTxRx.AppendText(newLog);
});
我发现了一个简单的区别，在这个线程中没有解决。
如果您将所有ScrollToCarat()调用作为表单Load()事件的一部分进行，则它不起作用。我刚刚将我的ScrollToCarat()电话添加到我的表单Activated()事件中，它工作正常。
编辑
重要的是只在第一次Activated触发表单事件时滚动（而不是在后续激活时），否则每次激活表单时它都会滚动，这可能是您不想要的。
因此，如果您只是Activated()在程序加载时捕获事件以滚动文本，那么您可以取消订阅事件处理程序本身内的事件，因此：
Activated -= new System.EventHandler(this.Form1_Activated);
如果您在每次激活表单时还有其他事情需要做，您可以bool在第一次Activated()触发事件时将 a 设置为 true ，这样您就不会在后续激活时滚动，但仍然可以做您需要做的其他事情做。
另外，如果您TextBox是一个标签，是不是在SelectedTab，ScrollToCarat()不会有任何效果。因此，您至少需要在滚动时将其设为选定的选项卡。如果执行此操作时表单闪烁，您可以将代码包装在 aYourTab.SuspendLayout();和YourTab.ResumeLayout(false);pair 中。
编辑结束
希望这可以帮助！