vb.net - 为什么我的文字一直突出显示？

Question

我正在 vb.net 中做一个“toast”，每当它弹出时，正文文本框中的所有文本总是突出显示......如何以编程方式删除突出显示？

谢谢!

这是似乎自动突出显示的代码:

Dim i As Integer
        toast.HeaderL.Text = headertext
        toast.BodyL.Text = contenttext
        toast.Show()
        toast.Opacity = 0
        i = 0
        While i < 100
            toast.SetDesktopLocation(My.Computer.Screen.WorkingArea.Right - toast.Width, My.Computer.Screen.WorkingArea.Bottom - ((toast.Height / 100) * i))
            toast.Opacity += 0.01
            wait(7)
            i += 1
        End While
        wait(4000)
        toast.Opacity = 1
        i = 0
        While i < 100
            toast.SetDesktopLocation(toast.Location.X, toast.Location.Y + toast.Height / 100)
            toast.Opacity -= 0.01
            wait(7)
            i += 1
        End While
        toast.Close()

始终，BodyL(这是一个文本框)中的文本会突出显示自身。我尝试在某些时候添加 toast.Focus()，但这不起作用。

toast 是表单名称。

Answer 1

这更像是一个猜测，但您可以尝试在将文本分配给 BodyL 后添加以下行:

toast.BodyL.Select(toast.BodyL.Text.Length, 0)

另一个想法是在 toast 表单中添加一些其他控件(例如 Panel )，它可以在不显示的情况下接收输入焦点(它可以变得非常小，甚至可以移到表单的可见部分之外)，并且确保在显示 Toast 表单时该控件获得焦点。