but then with a label & with any message in vb.Net
I've have this in php ( http://deface.botblog.ga/ (scroll down & look the console) THIS SITE IS A TEMPLATE I USE AT PAGES I DEFACED ) but remade it in vb.Net
Sub AddSwagToLabel(youritem As Object, message As String, Optional timeout As Integer = 20)
CheckForIllegalCrossThreadCalls = False
Dim pref As String = "_"
Dim eachline() As String = message.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
youritem.Text = pref
Windows.Forms.Application.DoEvents()
For i = 0 To eachline.Length - 1
Dim eachword() As String = eachline(i).Split(" ")
For ii = 0 To eachword.Length - 1
Dim eachchar() As Char = eachword(ii).ToCharArray
For iii = 0 To eachchar.Length - 1
Thread.Sleep(timeout)
youritem.Text = (youritem.Text.Replace(pref, "") & eachchar(iii)) & pref
Windows.Forms.Application.DoEvents()
Next
youritem.Text = (youritem.Text).Replace("_", "") & " _"
Windows.Forms.Application.DoEvents()
Next
youritem.Text = (youritem.Text & youritem.Text).Replace("_", "") & " _"
Windows.Forms.Application.DoEvents()
Next
youritem.Text = youritem.Text.Replace("_", "")
Windows.Forms.Application.DoEvents()
End Sub
Okay, now that you have your code, you wont have any errors, else pm me!
To use it, you just call the sub.
Like
Code
Dim YourMessage As String = "IT WORKS :ooo"
AddSwagToLabel(Label1, YourMessage)
this will animate label1 with the text given, if you want it slower just do
Code
Dim YourMessage As String = "IT WORKS :ooo"
AddSwagToLabel(Label1, YourMessage, 30)
timeout is in ms.
the timeout decides how much delay there is between writing 1 letter.
10 = extreme fast
20 = fast (default)
30 = normal
40 = below normal
50 = even normal
100 = you can guess....
