0

我有一个简单的完整程序，但我想再添加一个功能，但我不知道怎么做。我将其设置为在选择文本字段时每 7 秒自动发送一条消息，当然会重复该消息。我想要它做的是在两条单独的消息之间交替，而不是重复一条。我希望新程序每隔 12 秒发布一次。你能帮助我吗？这是我的编码。

Public Class Form1

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 Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Timer1.Enabled = True 
Timer1.Interval = (TextBox2.Text) 
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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
Timer1.Enabled = False 
End Sub 
End Class
4

1 回答 1

0

更改此代码：

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 Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox1.Text="Text1" then
             TextBox1.Text="Text2"
        Else
            TextBox1.Text="Text1"
        End If
    SendKeys.Send(TextBox1.Text)
    SendKeys.Send("{ENTER}")  End Sub

至于计时器间隔，只需通过文本框设置TextBox2.Text（如果这是您的代码，您怎么不知道？）

另请参阅此问题：https ://softwareengineering.meta.stackexchange.com/questions/6166/open-letter-to-students-with-homework-problems

于 2013-10-24T20:22:53.457 回答