Per ottenere un simpatico effetto animazione della caption delle nostre applicazioni VB.NET possiamo utilizzare la seguente routine:
Public Sub CaptionThread()
Dim strCaption As System.String = "Caption Animata ...."
Dim counter As System.Int16
While (True)
For counter = 0 To strCaption.Length
Me.Text = strCaption.Substring(0, counter)
System.Threading.Thread.Sleep(100)
Next
For counter = 0 To strCaption.Length - 1
Me.Text = strCaption.Substring(counter)
System.Threading.Thread.Sleep(100)
Next
End While
End Sub
Questa deve essere eseguita in un apposito thread della nostra form:
Private AnimationCaptionThread As System.Threading.Thread
il quale deve essere avviato nell'evento load:
Private Sub Form1_Load(.....) Handles MyBase.Load
.
.
AnimationCaptionThread = New System.Threading.Thread(AddressOf CaptionThread)
AnimationCaptionThread .Start()
.
.
End Sub
ed arrestato nell'evento Closed:
Private Sub Form1_Closed(......) Handles MyBase.Closed
.
.
AnimThread.Abort()
.
.
End Sub