منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] (/showthread.php?tid=12450)



أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] - PMTB01 - 08-06-15

مساء الخير علي الجميع

أريد جميع أكواد الضغط علي جميع أزرار الكيبورد : امثله :
1- كود للضغط علي زر Enter = ما هو هذا الكود ؟
2- كود للضغط علي زر Esc = ما هو هذا الكود ؟
3- كود للضغط علي Alt +Shift = ~~~~~~~~ ؟
- أريد جميع أكواد الضغط علي الأزرار

كمان كنت عايز أعرف كيف أقول له لا تنفذ هذا الأمر إلا بعد مثلاً 10 ثواني بعد الضغط علي البوتن .
بمعني اضغط علي البوتن ولا يتم تنفيذ الامر إلا بعد 10 ثواني - ما هو هذا الكود ؟

وشكراً جزيلاً لكل من سيساعدني [ بارك الله فيه ويرحمه الله هو ووالديه ]



RE: أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] - djelloul - 09-06-15

جرب هذا الكود :
ضع label على الفورم وسمه label1 مثلا
ضع timer على الفورم وسمه timer1 مثلا
في حدث اللود للفورم ضع الكود التالي:
dim t =5
في حذث tick للتايمر أي في هذا الحدث
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ضع هذا الكود :
t = t-10
Label1.Text = seconde
       If Label1.Text = "0" Then
               If e.KeyData = Keys.Enter Then
        هذا أكتب اللأمر الذي تريد تنفيذه
       End If
       End If
جرب وأخبرني
بالتوفيق


RE: أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] - Genius Live - 29-06-15

you can use, SendKeys
Example:
My.Computer.Keyboard.SendKeys("G") 'for one key
You can also do that:
My.Computer.Keyboard.SendKeys("Genius Live") 'for many keys

Rolleyes Smile Rolleyes



RE: أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] - nowaytorun - 06-07-15

بالنسبة لموضوع الوقت فده الكود
Imports System.Threading
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Thread.Sleep(10000)
       TextBox1.Text = "hello"
   End Sub
End Class
الكود ده لما بتدوس على الزر بينتظر 10 ثوانى و بعدين يكتب hello فى textbox

وبالنسبة للاكواد الضغط على أزرار الكيبورد
انت بتستخدم الامر ده للضغط على enter
SendKeys.SendWait("{ENTER}")

انظر هذا اللينك
https://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys%28v=vs.110%29.aspx



RE: أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] - Abdh111 - 13-11-15

انا عاوز أضغط علي زر انتر ينفذ اجراءات زر معين زي زر الدخول مثلا ؟
زي في بي 6 كنت تكتب اسم الزر وتضيف علامة قبل الحرف اللي تضغط عليه مجتمع مع زرار الت ينفذ كود الباتون ده
وكمان كان فيه خاصية اسمها ديلفت لاي باتون تعملها صح true
يبقا الضغط علي زر انتر ينفذ كود الزر الافتراضي default


RE: أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] - مهموم - 13-11-15

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

أخي عبده

من خصائص الفورم اذهب للخاصية AcceptButton وستجد فيه كل أزارير الفورم إختر الزر الذي تريده افتراضياً، أي ينفذ بمجرد الضغط على الإنتر.


RE: أريد أكواد للضغط علي أرزار معين في الكيبورد ؟ [ التفاصيل في الداخل ] - Abdh111 - 17-11-15

(13-11-15, 10:06 PM)مهموم كتب : السلام عليكم ورحمة الله

أخي عبده

من خصائص الفورم اذهب للخاصية AcceptButton وستجد فيه كل أزارير الفورم إختر الزر الذي تريده افتراضياً، أي ينفذ بمجرد الضغط على الإنتر.

جزاك الله خيرا حبيبي واخويا مش عاوز اقولك مهموم ربنا يجعل لك في كل أمورك خيرا كثيرا