[๖ۣۜMrRoot]

Hello, I will teach you how to do this (Click to View)




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

1. The Code (Click to View)

Just copy-paste this in your code :)

Code

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

------
2. Usage (Click to View)

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....


------
3. FAQ (Click to View)

Q: Is this code from the internet?
A: Nope.

Q: My application freezes while animating?
A: You need to multithread it, the code works easily with multithreading.

Q: Are you the creator?
A: Yes.

Q: This is cool!
A: Thanks but ain't a question.

Q: Whats Application.DoEvents()?
A: Updates the form, just a tiny fix for some computers.

Q: And CheckForIllegalCrossThreads = True ?
A: If you want to multithread it, this comes by handy!

Q: Why 'Swag'?
A: Any better name?

Q: I've got another question?
A: PM Me!


My next project might be: make a cmd with this function :p

[MrOrang]

Your video is private man. Mind making it available for us?

[๖ۣۜMrRoot]

Your video is private man. Mind making it available for us?

Done, I was confused about the difference between private/unlisted for a bit

[Royal Bash]

This is really awesome man, thanks a ton! Will be usefull for sure ;).

[๖ۣۜMrRoot]

This is really awesome man, thanks a ton! Will be usefull for sure ;).

No problem :) I made it for myself and thought I'd share it cause I liked it!

[๖ۣۜMrRoot]

woah I thought this looked cool tho

[+Haze]

Code

CheckForIllegalCrossThreadCalls = False

Windows.Forms.Application.DoEvents()

You should never use these in your code, especially the first one. That's not good programming practice.