29-07-19, 03:59 AM
(آخر تعديل لهذه المشاركة : 29-07-19, 04:06 AM {2} بواسطة EYADISMAIL.)
(10-07-19, 10:00 AM)Sadown كتب : السلام عليكم ورحمة الله وبركاته
اخ/EYADISMAIL
انا استخدم الاجراء التالي:Public Sub PressEnter(sender As Object, e As KeyEventArgs)If e.KeyCode = Keys.Enter ThenSendKeys.Send("{TAB}")End IfEnd Subثم استخدمه مع التكست بوكس في حدث keyDown
وحطت نفس الكود اللي كتبته e.Handled = True بس ما راح الصوت
استخدم الكود في حدث KEYPRESS للتكست بوكس المتوقف عليها. وليس في حدث PressEnte
Dim x As Integer
For x = 1 To 100
("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
Next x
For x = 1 To 100
("الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ")MsgBox
Next x

