Auto Typing Application in VB.NET
Submitted by donbermoy on Friday, February 14, 2014 - 10:20.
Typing means to encode or write. It is really a hassle when we always encode or type such long sentences and paragraphs. But now, i will introduce some kind of tutorial in visual basic.net; the Auto Typing Application.
Now, let's start this tutorial!
1. Let's start with creating a Windows Form Application for this tutorial by following the following steps in Microsoft Visual Studio: Go to File, click New Project, and choose Windows Application.
2. Next, add a Label named Label1, a Button named Button1 and labeled "Start Typing", and lastly add a Timer named Timer1. You must design your layout like this:
3. In your code module, initialize this as your Global Variable:
4. Next, we will code for our Timer1. Type this code in your Timer1_Tick:
Our timer will be our basis for the auto typing. If means that in every 1 ms tick of the Timer it will display the desired text in Label1.
5. Lastly, code for Button1:
When button1 is clicked the label will started to be in "blank" and count length will be equal to 1. The string to be displayed "Hello :) This is Lyndon R. Bermoy of Sourcecodester!" and the timer will start. When the timer start, the substring will be incremented by one so that it will have an automatic typing of the every single character.
Testing: Click Button1.
Download the source code below and try it! :)
For more inquiries and need programmer for your thesis systems in any kind of programming languages, just contact my number below.
Best Regards,

- Public str_ As String
- Public count_ As Integer
- If Label1.Text.Length = str_.Length Then
- Timer1.Enabled = False
- Exit Sub
- End If
- Label1.Text = str_.Substring(0, count_)
- count_ = count_ + 1
Label1.Text.Length is equal str_.Length
means that if the text in Label1 is completely displayed its text, then the timer will stop ticking. The - Label1.Text = str_.Substring(0, count_)
- count_ = count_ + 1
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
- Label1.Text = ""
- count_ = 1
- str_ = "Hello :) This is Lyndon R. Bermoy of Sourcecodester!"
- Timer1.Enabled = True
- End Sub
- End Class

Output:

Engr. Lyndon R. Bermoy
IT Instructor/System Developer/Android Developer
Mobile: 09079373999
Telephone: 826-9296
E-mail:[email protected]
Visit and like my page on Facebook at: Bermz ISware Solutions
Subscribe at my YouTube Channel at: SerBermz
Add new comment
- 250 views