为什么我的文字会突出显示？

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)

另一个想法是向吐司形式添加一些其他控件（例如Panel），它可以在不显示的情况下接收输入焦点（它可以制作得非常小，甚至可以移动到可见部分之外表格），并确保在显示吐司表格时该控件获得焦点。