منتدى جزيرة الرياضيات  
     

Left Nav التسجيل التعليمـــات قائمة الأعضاء التقويم البحث مشاركات اليوم اجعل كافة الأقسام مقروءة Right Nav

Left Container Right Container
 

» منتدى جزيرة الرياضيات » الجزيرة التعليمية والفنية » جزيرة برنامج الفجوال بيسك » للاخوة أو الأستاذ خليل بالذات، كيف اعمل زر معين للكيبورد بالفيجوال مضغوط باستمرار

جزيرة برنامج الفجوال بيسك هذا القسم مخصص لبرنامج الفجوال بيسك الذي يصنع البرامج

إضافة رد
 
أدوات الموضوع تقييم الموضوع
  #1  
قديم 05-22-2008, 04:38 AM
السلفي20 السلفي20 غير متواجد حالياً
عضو
 
تاريخ التسجيل: May 2008
المشاركات: 6
012 للاخوة أو الأستاذ خليل بالذات، كيف اعمل زر معين للكيبورد بالفيجوال مضغوط باستمرار

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

سؤالي : كيف اصنع زر بالفيجوال بيسك 6 ويستجيب له الـكـيـبـورد

مثال : شغلت برنامج الفيجوال
وبعدها اضفت Coammand1
http://www.arb-up.com/files/arb-up-2008-1/1n406946.gif
وغيرت اسم Coammand1 إلى F5
http://www.arb-up.com/files/arb-up-2008-1/G8N07014.gif

لكن عندما اضغط على F5
كيف اجعل الزر فعلا يتم ضغطة بالكيبورد على انه F5 وباستمرار دون افلات
وزر اخر لافلات هذا الزر
http://www.arb-up.com/files/arb-up-2008-1/oMp07087.gif


وجزاكم الله خير اخواني مقدماً
رد مع اقتباس
  #2  
قديم 05-22-2008, 09:04 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
كود:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

MsgBox (KeyCode)
If KeyCode = 116 Then
هنا تكتب ما تريد تنفيذه عندما يضغط على F5
MsgBox "ÔßÑÇ", vbOKOnly, "ÑÓÇáÉ ÇáÈÑäÇãÌ"
End If
__________________
هذا من فضل ربي
رد مع اقتباس
  #3  
قديم 05-23-2008, 07:00 AM
السلفي20 السلفي20 غير متواجد حالياً
عضو
 
تاريخ التسجيل: May 2008
المشاركات: 6
جزاك الله خير يا استاذ خليل
بس كيف اضعه داخل الكوماند
ولو تضع لي بالمرفقات ملف مفتوح افضل عشان افهم الطريقه
ومشكور استاذي
رد مع اقتباس
  #4  
قديم 05-23-2008, 09:58 AM
السلفي20 السلفي20 غير متواجد حالياً
عضو
 
تاريخ التسجيل: May 2008
المشاركات: 6
بالمرفقات مثال مشابه لطلبي
الملفات المرفقة
نوع الملف: zip مثال.zip‏ (3.8 كيلوبايت, المشاهدات 826)
رد مع اقتباس
  #5  
قديم 05-23-2008, 05:41 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
اول مرة اشوف هذا الطلب لا اعلم كيف اعملة بس الكود السابق وضيفته اذا المستخدم ضغط على زر f5 يخرج مسج تستطيع وضع الكود الذي تريد تشغيله بداخل الكود السابق.
انسخه كاملا و ضعه في الكود فقط .
ليس بداخل الزر بل تحته كي يتنفذ عندما يضغط المستخدم على f5
__________________
هذا من فضل ربي
رد مع اقتباس
  #6  
قديم 05-23-2008, 09:34 PM
السلفي20 السلفي20 غير متواجد حالياً
عضو
 
تاريخ التسجيل: May 2008
المشاركات: 6
الله يجزاك خير يا استاذ خليل
بحاول فيه وان شاء الله يصير معاي تمام
واشكرك على المساعدة
رد مع اقتباس
  #7  
قديم 05-24-2008, 12:40 AM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
نتمنى لك الفائدة شكرا
__________________
هذا من فضل ربي
رد مع اقتباس
  #8  
قديم 07-22-2008, 03:15 PM
fadi9 fadi9 غير متواجد حالياً
عضو

 
تاريخ التسجيل: Jan 2006
المشاركات: 106
السلام عليكم

دعوني اساعدكم

بفرض يوجد على الفورم صندوق نص (text box) سميناه tx
وبفرض يوجد زر امر(command) سميناه cmd
لنفرض انه عند الضغط على زر الامر هذا يتم كتابة كلمة " السلام " بالتالي نضع الكود التالى في حدث click على ذلك الزر cmd بالشكل التالي :
Private Sub cmd_Click()
" السلام "+ Tx.text = tx.text
End Sub
الان نريد ان نجعل الزر cmd مضغوطا بان نضغط المفتاح F5 من لوحة المفاتيح
من اجل ذلك نكتب الكود التالي على حدث KEYDOWN لصندوق النص TX بالشكل التالي :
Private Sub Tx_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF5 Then
cmd_Click
End If
End Sub

في المرفق تجد التنفيذ
الملفات المرفقة
نوع الملف: rar مجلد جديد (2).rar‏ (1.5 كيلوبايت, المشاهدات 835)
رد مع اقتباس
إضافة رد


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
تقييم هذا الموضوع
تقييم هذا الموضوع:

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


الساعة الآن 01:34 PM

Style provided by: MonksDiner - Entertainment Forum
Translated To Arabic By: Nile Stars
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir