+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود يعمل امر انتر دخال تكست (/showthread.php?tid=46157)
كود يعمل امر انتر دخال تكست - allobaed - 01-06-23
الاخوة الكرام ......الاسلام عليكم
اريد كود يعمل امر انتر دخال تكست
بحيث اذا ادخل رقم او مجموعة ارقام في النهاية ينفذ امر انتر
RE: كود يعمل امر انتر دخال تكست - ahmedabdelaliem - 03-06-23
وعليكم بالسلام ورحمة الله
اخي ارفع مثال وشرح توضيحي لما تريد
وهل تريد الضغط عند الادخال أم ماذا ؟
RE: كود يعمل امر انتر دخال تكست - اسلام الكبابى - 19-06-23
إقتباس :بحيث اذا ادخل رقم او مجموعة ارقام في النهاية ينفذ امر انتر
وكيف يعرف البرنامج أن المستخدم انتهى من كتابة مجموعة الأرقام التى يريد ادخالها ؟
أى قد يكون المستخدم يريد ادخال مجموعة من 3 أرقام
[b] وقد يكون يريد ادخال مجموعة من 4 أرقام
وقد يكون يريد ادخال مجموعة من 5 أرقام
فمتى ينفذ البرنامج أمر انتر ؟[/b]
RE: كود يعمل امر انتر دخال تكست - ahmed.m - 20-06-23
نرجو ذكر المزيد من التفاصيل
RE: كود يعمل امر انتر دخال تكست - سعود - 20-06-23
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