تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يمكنني أن أعرف هل تم الضغط على زر نجمة *
#1
Exclamation 
سلام  إخواني

كيف يكنني أن أعرف هل تم الضغط على زر نجمة *

جربت هذا الكود و لم ينجح


كود :
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
     
 Dim h As Boolean = GetAsyncKeyState(42)

       If h = True Then

 You pressed enter (*)

       End If
الرد
تم الشكر بواسطة:
#2
شكرا لك أخي أمير
الكود شغال لكن على الفورم فقط
الكود الدي وضعته في التايمر يشتغل في أي لحظة ضغط فيها المستخدم
الرد
تم الشكر بواسطة:
#3
بخصوص الكود فى موضوعك

ينقصه كود الـ Sub أو Function  الخاص بـ 
PHP كود :
GetAsyncKeyState 

بخصوص التحقق من خلال التايمر فهنا ستواجه مشكلة
لان سيتطلب ان تقوم بتنفيذ التحقق فى التيمة بمعدل 100 وما اقل 
وليس كل 1000 اى ثانية واحدة

لان احتمالية تنفيذ الضغط قد تحديث بين الثانية التى تتم التحقق منها
اى انه ضغط عند 400 مثلاً وتم رفع يده من على الزر فى 900 

فهنا لم تتحقق معك انه تم الضغط على *

ولكن افضل شئ يتم هو انك تضع كود الاخ Amir_alzubidy
فى الاماكن المتطلب عند الضغط على * تتم ظهور رسالة
اى كن عدد ونوع الادوات فيوضع بكل ما تريد التحقق بشئنها

طبعاً يمكنك جعل الكود واحد فقط من خلال عمل الكود على هذا الشكل
كود :
   Private Sub Form1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress, TextBox1.KeyPress, DataGridView1.KeyPress, ListBox1.KeyPress ' ....... الخ
       If e.KeyChar = Convert.ToChar(42) Then
           MsgBox("Star key Pressd ")
       End If
   End Sub

رجز على هذا الجزء فى الكود بالاعلى
كود :
Me.KeyPress, TextBox1.KeyPress, DataGridView1.KeyPress, ListBox1.KeyPress

اتمنى ان تكون الصورة وضحت كاملاً
وبخصوص Form1_KeyPress يمكنك ان تجعلها اى اسم وليكن
Check_Start_Key
ليصبح الشكل كالتالى
كود :
   Private Sub Check_Start_Key(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress, TextBox1.KeyPress, DataGridView1.KeyPress, ListBox1.KeyPress ' ....... الخ
       If e.KeyChar = Convert.ToChar(42) Then
           MsgBox("Star key Pressd ")
       End If
   End Sub

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#4
أخي [b]elgokr[/b] 

معك حق في مسألة التايمر

بالنسبة لوضع كود الاخ Amir_alzubidy فى الاماكن المتطلب عند الضغط على *

فهذا أمر مستحيل

لأنه متعب للبروسيسور 

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


لقد وجدت الحل سأضعه لإفادة الإخوة

كود :
       If (GetAsyncKeyState(Keys.Oem5) Then
           Label1.Text = "Star key Pressd "
              End If



شكرا لك أخي الكريم كثيرا على الإفادة
الرد
تم الشكر بواسطة: elgokr
#5
صحيح

شكرا لكم
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البرنامج لايبدا عند الضغط عليه makky 0 28 , 01:05 AM
آخر رد: makky
  اريد كود فتح صندوق الكاشير المحاسبي تلقائيا مجرد الضغط على Button mohamedgadain61 13 590 26-03-20, 06:29 PM
آخر رد: mohamedgadain61
Photo مشكل عند اعادة الضغط على Botton الحساب (مشكل مستمر) paveldida 5 239 09-03-20, 11:33 PM
آخر رد: paveldida
  عرض معلومات DataGridView في فورم أخر عند الضغط على الاسم aldery 8 372 28-02-20, 07:23 AM
آخر رد: alshandodi
  رسالة خطأ بمجرد الضغط داخل التكست بوكس ahmedfa71 0 143 12-02-20, 05:11 PM
آخر رد: ahmedfa71
Shocked Hard Disk Serial كيف أعرف سيريال الهاردسك الخاصي بي او الرقم التسلسلي ims.ataya 3 4,222 11-02-20, 05:13 AM
آخر رد: mustafa shaker22
  [VB.NET] كيف يمكنني البحث على نص و تلوينه بلون احمر al9atl 9 582 25-01-20, 08:07 PM
آخر رد: جميل5
  سؤال في الضغط علي زر اليوم السابع 11 597 14-01-20, 04:41 PM
آخر رد: اليوم السابع
  كيف أعرف عدد تكرار أسماء موجودة في نفس العمود في الداتاقريدفيو جيولوجي مبتدئ 1 236 26-12-19, 03:24 AM
آخر رد: اسامه الهرماوي
  [VB.NET] كيف يمكنني استعادة جدول معين (جدول فقط) من قاعدة بيانات rizakflash8 6 425 25-12-19, 08:09 PM
آخر رد: rizakflash8

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم