Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
'Enter Event
'GotFocus Event
'TextChanged Event
'Leave Event
'Validating Event
'Validated Event
'LostFocus Event
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Console.WriteLine("STA")
If TextBox1.Text.Length = 3 Then
MessageBox.Show("STA")
SendKeys.SendWait("{TAB}")
'SendKeys.Send("{TAB}")
TextBox1.Enabled = False
System.Threading.Thread.Sleep(3000) ''3秒(3000ミリ秒)待機する
TextBox1.Enabled = True
MessageBox.Show("END")
End If
Console.WriteLine("END")
End Sub
Private Sub TextBox2_GotFocus(sender As Object, e As EventArgs) Handles TextBox2.GotFocus
Me.TextBox2.Text = "TEXT2"
End Sub
Private Sub TextBox5_GotFocus(sender As Object, e As EventArgs) Handles TextBox5.GotFocus
Me.TextBox5.Text = "TEXT5"
End Sub
End Class