テキストがハイライト表示され続けているのはなぜですか？

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）は、表示せずに入力フォーカスを受け取り（非常に小さくすることも、フォームの可視部分の外に移動させることさえできます）、トーストフォームが表示されたときにそのコントロールがフォーカスを受け取るようにします。