كيف يتم تعطيل بعض مفاتيح الكيبور وتخصيصها ؟؟

آخي العزيز

يمكن يتم ذلك عن طريق كود الـ ASCII الخاص بكل مفتاح حيث يمكن وضع كود التعطيل أو التعطيل في الحدث Key Press ومرفق لك برنامج يعرفك الـ ASCII كود لكل مفتاح على لوحة المفاتيح

ASCII.rar

يعطيك العافيه اخوي black_boxer ماقصرت على الرد السريع

ولكن هل لي بشرح اكثر تفصيل

بانتظاركم

اليك هذا المثال و لدينا مربعين نص وكان التركيز على المفتاح الأول ونريد عند الضغط على مفتاح Enter ان ينتقل التركيز إلي مربع النص الثاني فما عليك إلا كتابة الكود التالي في حدث Key Press لمربع النص الأول

   
If KeyAscii = 13 Then
text2.text.SetFocus
End If

وهذا معناه اذا تم الضغط على مفتاح كوده 13 ( ASCII كود لمفتاح Enter ) ينتقل التركيز إلي مربع النص الثانى

وبالتالي عن طريق البرنامج المرفق يمكنك معرفة كود اي مفتاح واستخدامه مثل المثال السابق

ارجو ان اكون اوضحت وإذا لم تتضح الفكرة ارجو تبليغي وان في انتظارك إن شاء الله

:)

اليك هذا المثال و لدينا مربعين نص وكان التركيز على المفتاح الأول ونريد عند الضغط على مفتاح Enter ان ينتقل التركيز إلي مربع النص الثاني فما عليك إلا كتابة الكود التالي في حدث Key Press لمربع النص الأول

   
If KeyAscii = 13 Then
text2.text.SetFocus
End If

وهذا معناه اذا تم الضغط على مفتاح كوده 13 ( ASCII كود لمفتاح Enter ) ينتقل التركيز إلي مربع النص الثانى

وبالتالي عن طريق البرنامج المرفق يمكنك معرفة كود اي مفتاح واستخدامه مثل المثال السابق

ارجو ان اكون اوضحت وإذا لم تتضح الفكرة ارجو تبليغي وان في انتظارك إن شاء الله

:)

يعطيك العافيه اخوي black_boxer

ماقصرت جزاك الله خير

اقتباس

السؤال الثاني :

كيف اخصص زر من ازرار البرنامج على مفتاح من مفاتيح الكيبورد مثلا :

عندي كومند باسم "موافق" كيف اخصص مفتاح حرف الميم بالكيبورد بحيث

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

تقدر عن طريق كتابة & قبل الحرف إللي تريد تحدده ، في خاصية Caption

مثلا في كلمة ( موافق ) ، حدد حرف الميم بكتابة ( &موافق ) ، أو حدد مثلا حرف الفاء بكتابة ( موا&فق ) .

السلام عليكم

هل توجد طريقة لتعطيل الكيبورد بالكامل فقط

الحبيب99 كتب:

هل توجد طريقة لتعطيل الكيبورد بالكامل فقط

السلام عليكم

مشكور اخي BLACK_BOXER

لكن عندي سؤال

::

هو ::

اذا كتبت كذا ::

Private Sub Text2_KeyPress(KeyAscii As Integer)

If keyiscii = 199 Then

Label1.Caption = 1

End If

End Sub

شنو اسوي اريد عند الضغط على أ بالعربية ؟؟

ملاحظة : 199 = ا

مشكور اخي

بس انا اذكر اني سويت هذي بس ما استوى

اما الان جربت مرة اخرى

وبرنامجك مفيد و عجبني هواية :):):):):)

thx thx thx

حسب ما فهمت من كلامك أخي ( مبرمج محترف ) أنك تريد فقط عمل الكود أذا كان الحرف عربي وليس أنجليزي .

أولا لا بد أن تعرف أن الواجهة تعمل على اللغة العربية بواسطة الدالة :

Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

وهي دالة API

هذه الدالة سوف تعطيك رقم ( ثابت ) لا يتغير في الويندوز تدل هذه الأرقام على اللغة المقابلة لها في نظام التشغيل مثال لو أننا حصلنا على الرقم :

00000401

فأن هذا يعني ان اللغة المستعلة حاليا هي العربية (Arabic)

وأذا حصلنا على الرقم التالي :

00000409 فأن هذا يعني أن اللغة الحالية هي الأنجليزية (English) .

وتعمل كالتالي :

Dim StrName As String

GetKeyBoardLayOutName StrName

If StrName = Val("00000401") Then

Me.Caption = "اللغة الحالية هي عربية "

Else

msgbox StrName

End If

وعند معرفة اللغة المستعملة على الواجهة الحالية تستطيع وضع شرط معين لمعرفة ذلك , سوف أتركها لك .

راجع :

/index.ph...boardLayoutName

بالتوفيق ,,,,,

A7med_prof

الحبيب99 كتب:

السلام عليكم

هل توجد طريقة لتعطيل الكيبورد بالكامل فقط

msayed2004 كتب:

الحبيب99 كتب:

السلام عليكم

هل توجد طريقة لتعطيل الكيبورد بالكامل فقط

و ليه ده كله :blink: :angry: ؟

مشكور اخوي A7med_prof يعطيك العافيه

وياليت تكمل معروفك او اي واحد يتفضل علينا بالحل

انا اريد تعطيل ادارة المهام وتعطيل الاختصارات التالية :

Alt + F4

و

win + d

و

Alt + Tab

ومفتاح:

Esc

بنتظار الحل

السلام عليكم

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 9 Or KeyAscii = 27 Then

MsgBox "", , ""

KeyAscii = 0

End If

End Sub

نسيت ان اقو لك اخي ضاري

بان الكود السابق

لesc و tab اما الازرار البقايا فأنا مبرمج مبتدا ولا اعرف طريقة لهم

اذا ضغط على ctrl + esc

لم ينجح الكود

لو اني اعرف جدول الاسكي كامل لسعدتك

مع تحياتي مبرمج مبتدا

بالنسبة الى d

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 100 or KeyAscii = 68 Then

MsgBox "", , ""

KeyAscii = 0

End If

End Sub

هل هناك خطا اخي ؟؟

الحبيب99 كتب:

السلام عليكم

هل توجد طريقة لتعطيل الكيبورد بالكامل فقط

بالفعل يا أخوان هذا بحثت عنه منذ فترهـ :) ..

وياليت لو على الطريق طريقة إيقاف مفعول الماوس ..

ياليت يا أخوان إيجاد الحل :) ..

اخي اذا اردت ابطال الكيبورد و الماوس

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate()

DoEvents

BlockInput True

Sleep 10000

BlockInput False

End Sub

طبعا هذا الكود لمدة 10 ثوان لان اذا انا سويته ما يشتغل لم يعمل الماوس والكيبورد الا بعد ريستارت :)

تحياتي

نسيت الكود ماخذنه من مكتبة الاكواد

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Sub Form_Activate()

DoEvents

BlockInput True

end sub

و هذا اذا اردت ابطال الماوس و الكيبورد

لكن ارجاعهما ليس الا بعد عمل ريستاؤت :)

يعطيك العافيه اخوي مبرمج مبتدأ ماقصرت يالغالي

ويالت احد الاخوان يزودنا بمخطط KeyAscii للجميع مفاتيح الكيبورد

والف شكر لك اخوي مبرمج ماقصرت