لنفرض إذا ضغطت F2 يطلع لي مسج يقول لي الزر الي ضغطت علي هو F2 و هكذا ...
كيفية استعمال F2 و F3 لإنتاج حدث ما
مغلق
السلام عليكم ورحمة الله وبركاته
أخى الكريم هذا هو الكود
If KeyCode = vbKeyF1 Then
Command1_Click
End If
هذا الكود عبارة عن تنفيذ الحدث الموجود فى الكوماند رقم واحد عند الضغط على F1
ويكتب هذا الكود فى Form_KeyDown
والله الموفق
شكرا لك يا أخي بس هذا الحدث يعمل إذا كان لا يوجد شي على الفورم(زر تكست بوكس ...)
و مع وجود زر أو تكست بوكس على الفورم فإن هذا الحدث لا ينفذ
أخي / alhootti
ضع الكود السابق في حدث الـ "KeyPress" للـ "TextBox" أو للـ CommandButton
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
السلام
هكذا تضع الكود
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 112 Then 'هنا ضع الأكواد التي تريدها KeyAscii = 0 End If End Sub
واجعل خاصية Key Prview = True في الفورم
بالتوفيق B)
ساعد غيرك لو تدري ما معنى حب الخيري
تمام كما قال لك الاخ / jamal2002
بالتوفيق
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
أيضا يمكننا :
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.KeyPreview = True
Select case KeyCode
Case VBKeyF2
نكتب الاجراء
Case VBKeyF1
نكتب الاجراء
end select
End Sub
تم تعديل هذه المشاركة بواسطة Samir69 في 19 أغسطس 2005 في 16:46
هذا الموضوع مغلق.