为什么我的文本保持突出？

Question

我正在在vb.net一个“敬酒”，每当它弹出，在体内文本框的所有文字始终强调...我怎样才能删除突出显示编程？

谢谢！

下面是这似乎是自动突出显示的代码：

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（这是一个文本框）的文本，凸显itself.I试图在某些点添加在toast.Focus（），但没有工作。

烤面包的形式名称。

Answer 1

这是更多的是猜测，但你可以尝试添加以下行，指定文本BodyL后：

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

另一个想法是添加一些其他控制到烤面包形式（如Panel），其可以接收输入焦点而不显示（它可以做得非常小，或甚至有它移动的形式的可见部分之外），并确保该控制接收被显示在烤面包形式时聚焦。