Pourquoi mon texte continue-t-il de surligner?

Question

Je fais un "toast" dans vb.net, et chaque fois qu'il apparaît, tout le texte dans la zone de texte du corps est TOUJOURS en surbrillance ... comment puis-je supprimer la mise en surbrillance par programmation?

Merci!

Voici le code qui semble mettre en évidence automatiquement:

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() 

toujours, le texte à l'intérieur BodyL (ce qui est une zone de texte), met en évidence itself.I essayé d'ajouter à toast.Focus() à certains points , Mais ça n'a pas marché.

toast est le nom du formulaire.

Answer 1

Il est plus d'une supposition, mais vous pouvez essayer d'ajouter la ligne suivante, après avoir attribué le texte à BodyL:

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

Une autre idée est d'ajouter un autre contrôle à la forme de pain grillé (par exemple un Panel) qui peut recevoir le focus d'entrée sans montrer (il peut être très petit, ou même l'avoir déplacé en dehors de la partie visible du formulaire), et s'assurer que ce contrôle reçoit le focus lorsque le formulaire toast est affiché.