01-06-23, 04:47 PM
03-06-23, 10:38 PM
19-06-23, 08:45 PM
20-06-23, 10:15 AM
20-06-23, 05:27 PM
PHP كود :
Public Class Form1
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim t As TextBox = DirectCast(sender, TextBox)
If t.Text = "12345" Then
Button1.Focus()
SendKeys.Send("{Enter}")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox(TextBox1.Text)
End Sub
End Class
زر الامر سيتم تنفيذ حدث النقر له من خلال ارسال الامر sendkeys
لم انتبه للقسم
و اظن الفرق بسيط لمثل هذه الفكرة
و اظن الفرق بسيط لمثل هذه الفكرةهذا في اكس بي:
PHP كود :
Private Sub Command1_Click()
MsgBox (Text1.Text)
End Sub
Private Sub Text1_Change()
If Text1.Text = "12345" Then
Command1.SetFocus
SendKeys "{Enter}"
End If
End Sub