0

簡単な完成したプログラムがありますが、もう 1 つ機能を追加したいのですが、方法がわかりません。テキストフィールドが選択されたときに7秒ごとにメッセージを自動的に送信するように設定しました.もちろんメッセージを繰り返します. 私がやりたいことは、2 つの別々のメッセージを交互に繰り返すだけでなく、1 つのメッセージを繰り返すことです。新番組は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 に答える