الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اين اضع الكود

بدأه yms12 في 23 فبراير 2009 · 2 رد · 840 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــة ،،

اريد بعد الادخال رقم في التكست بوكس وبعد الضغط على مفتاح الانتر ينفذ بعض الاوامر فاين اضع الكود

علما باني وضعت الكود مرة في KeyPress ومرة في Change ولكن عند كتابة اول حرف ينفذ الامر دون الانتظار من الانتهاء من كتابة الرقم كامل

وشكرا

#2

السلام عليكم...

يجب وضع الكود في معالج الحدث KeyDown و اختبار ما إذا كان المفتاح المضغوط هو المفتاح Enter كالتالي:

  1. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  2. If KeyCode = vbKeyReturn Then
  3. ' ...
  4. ' ...
  5. ' ...
  6. End If
  7. End Sub
  8.  

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#3

اما تضع الكود أدناه لحدث الـ KeyPress


If KeyAscii = 13 Then
MsgBox "Put here your event", vbInformation, "That's ok"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)

واما تضع الكود أدناه لحدث الـ KeyDown


If KeyCode = 13 Then
MsgBox "Put here your event", vbInformation, "That's ok"
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

علما بأن الـ Text1 هو إسم الـ TextBox

وأيضا انصحك بإستخدام طريقة الـ KeyCode لأنها مصممة لنيتك هذه

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

مواضيع مشابهة