Reply to thread

Message

<blockquote data-quote="Trill" data-source="post: 229455" data-attributes="member: 35388">Here's the code I'm using:[CODE]Public Class Form1&nbsp; &nbsp; Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&nbsp; &nbsp; &nbsp; &nbsp; Timer1.Enabled = True&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click&nbsp; &nbsp; &nbsp; &nbsp; Timer1.Enabled = False&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick&nbsp; &nbsp; &nbsp; &nbsp; SendKeys.Send(TextBox1.Text())&nbsp; &nbsp; &nbsp; &nbsp; SendKeys.Send(&quot;{Enter}&quot;)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Declare Function GetKeyPress Lib &quot;user32&quot; Alias &quot;GetAsyncKeyState&quot; (ByVal key As Integer) As IntegerEnd Class[/CODE]Here's my design:<img src="http://puu.sh/4hRRH.png" alt="" class="fr-fic fr-dii fr-draggable " style="" />As you can see I've added the line you said above. Now, would I be adding it like this?[CODE]Public Class Form1&nbsp; &nbsp; Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click&nbsp; &nbsp; &nbsp; &nbsp; Timer1.Enabled = True&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click&nbsp; &nbsp; &nbsp; &nbsp; Timer1.Enabled = False&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick&nbsp; &nbsp; &nbsp; &nbsp; SendKeys.Send(TextBox1.Text())&nbsp; &nbsp; &nbsp; &nbsp; SendKeys.Send(&quot;{Enter}&quot;)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Declare Function GetKeyPress Lib &quot;user32&quot; Alias &quot;GetAsyncKeyState&quot; (ByVal key As Integer) As Integer&nbsp; &nbsp; &nbsp; &nbsp; If GetKeyPress(Keys.F4)&nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;You pressed F4!&quot;);End IfEnd Class[/CODE]Or? Basically I'm wanting the top/start button to be stopped/started using F4 and F5.</blockquote>

[QUOTE="Trill, post: 229455, member: 35388"] Here's the code I'm using: [CODE]Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick SendKeys.Send(TextBox1.Text()) SendKeys.Send("{Enter}") End Sub Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer End Class[/CODE] Here's my design: [IMG]http://puu.sh/4hRRH.png[/IMG] As you can see I've added the line you said above. Now, would I be adding it like this? [CODE] Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick SendKeys.Send(TextBox1.Text()) SendKeys.Send("{Enter}") End Sub Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer If GetKeyPress(Keys.F4) MsgBox("You pressed F4!"); End If End Class [/CODE] Or? Basically I'm wanting the top/start button to be stopped/started using F4 and F5. [/QUOTE]

Verification

Reply to thread

Connect with us

Newest members