Quantcast
Channel: VBForums
Viewing all articles
Browse latest Browse all 42220

VS 2010 Need Help!

$
0
0
Hey, I need help, can someone tell me how to multiply the amount of characters, I'm actually at a loss of words, let me try and show you the code that I need help with.

SendKeys.Send(TextBox1.Text)

Okay, so what I'd like is for someone to input a single letter in TextBox1 but it would output multiple letters so say somebody input the letter w I'd like for it to instead of sending just w I'd like for it to output

wwwwwwwwwwwwwwwwwwwwwwwwwwwwww

If it's simple please don't hate, this is the first time I've ever used VS and this is all I really need help with :/

and If someone knows how to limit the input allowable inside of a textbox (needed for the same program) so once they input 1 Character they aren't able to input any more characters AT ALL, but the 1st one is my main priority, thank you for all the help :)


Code:


Public Class Form1

    Dim number_of_ticks As Integer = 0



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = True
        ProgressBar1.Value = 100


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Timer1.Enabled = False
        Timer2.Enabled = False

        If Timer1.Enabled = True Then

            Timer1.Enabled = False

        End If

        If Timer2.Enabled = True Then

            Timer2.Enabled = False

        End If
        ProgressBar1.Value = 0

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick



        If Not number_of_ticks > 150 Then

            number_of_ticks += 1

        Else

            number_of_ticks = 0
            Timer1.Enabled = False
            Timer2.Enabled = True
        End If

        SendKeys.Send(TextBox1.Text)

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        If Not number_of_ticks > 150 Then

            number_of_ticks += 1


        Else

            number_of_ticks = 0
            Timer2.Enabled = False
            Timer1.Enabled = True

        End If
        SendKeys.Send(TextBox2.Text)

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class


Viewing all articles
Browse latest Browse all 42220

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>