25-12-23, 11:55 AM
وعليكم السلام ورحمة الله وبركاته :
للانتقال ،، أكتب الكود :
للتنفيذ مباشرة بمجرد الضغط :
للانتقال ،، أكتب الكود :
كود :
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
Button3.Focus()
End If
End Subللتنفيذ مباشرة بمجرد الضغط :
كود :
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
Button3_Click(Nothing, Nothing)
End If
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».