(VB 2010)标签的文本从其锁定大小扩展。如何滚动到最后一行?



我一直在编写一个调用批处理文件的程序(下载一些东西)。我添加了一个标签,用于向用户报告下载进度。该程序将允许多次下载,因此在某些时候标签将充满文本。发生这种情况时,文本从标签延伸出来,我看不到任何内容。我想要的是让标签滚动到标签中添加的新文本行。换句话说,我希望标签文本的焦点始终在最后一行上。some1 可以在标签上发布一个可以做到这一点的例子吗?

与史蒂夫的评论类似,我建议为此目的使用多行文本框或富文本控件。 可以将控件的 ReadOnly 属性设置为 True,将 ScrollBars 属性设置为 Both。

向此控件添加新文本时,可以使用以下代码来确保它对用户可见:

TextBox2.AppendText('New text')
TextBox2.SelectionStart = TextBox2.Text.Length
TextBox2.ScrollToCaret()

最新更新