abd l rahman

الغاء مفتاح الshift

6 ردود في هذا الموضوع

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

اريد كود يلغي مفتاح الShift اثناء عمل البرنامج

وجزاكم الله خيرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم أخى العزيز,

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

وصلة الصفحة الأصلية

1- قم بعمل module جديد والصق به الكود التالي:

'---------------------------------------------------------------------'
' Module: DisableShiftKey '
' Date: July 18, 2003 '
' '
' Purpose: To stop the user from holding the shift key on startup to '
' access the database window. '
'---------------------------------------------------------------------'

Option Compare Database
Option Explicit
'----------------------------------------------------------------------

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
'----------------------------------------------------------------------

Function BypassKey(onoff As Boolean)
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, onoff
End Function
'-----------------------------------------------------------------------

2- قم بحفظ ال module باى اسم تريده.

3- قم بعمل macro جديد على أن يكون له :

الاسم : ByPassKeyOff

الفعل: Runcode

الوظيفة : BypassKey(False)

4- قم بعمل macro أخر على أن يكون له :

الاسم : ByPassKeyOn

الفعل: Runcode

الوظيفة : BypassKey(True)

5- قم بعمل مستطيل مثلا فى نموذج بداية التشغيل, على أن يكون له نفس لون النموذج (حتى يكون مختفى عند بداية التشغيل) وقم بإختيار ByPassKeyOn من حدث OnClick للمستطيل (عن طريق السهم المنزلق بجانبه).

6- قم بتشغيل الماكرو ByPassKeyOff .

7- قم بحفظ قاعدة البيانات, واغلق قاعدة البيانات.

8- عند بداية التشغيل لن يستطيع أحد فتح قاعدة البيانات بإستخدام مفتاح الشيفت.

9- لإرجاع مفتاح الشيفت للعمل مرة أخرى قم بالنقر بالماوس على المكان الذى قمت بوضع المستطيل فيه.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

جزاك الله خيرا يا اخ ميدو

انا كنت خلاص فقدت الامل في الرد

مشكووور

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

السلام عليكم أخى العزيز,

فى خدمتك.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

بسم الله الرحمن الرحيم

شكرا على هذا الكود ، ولكني لا أحبذ استخدامه ،

فمهما تكن محترفا في البرمجة ، ضع في بالك بأن هناك من هو أكثر منك أحترافا وخبرة،

دائما اعطي الفرصة لغيرك لتطوير برنامجك ، فقد تتغير أو تتجدد إحتياجات المستخدم ،

وعند قفلك للبرنامج فأن برنامجك معرض للزوال واستبداله ببرنامج آخر أكثر تلبية لإحتياجات المستخدم

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

والفضل كله عائد لك عندما أعطيت الفرصة للمستخدم بإدخال التطويرات على برنامجك

وفي النهاية ستأتي وتقول بأن الشركة الفلانية مازالت تستخدم برنامجي ، وغير ذلك من أنواع التباهي والتفاخر بأنك الصاحب الأساسي للبرنامج

حتى ولو كان التطوير من الناحية الشكلية فقط ، فبرنامجك يبقى .

شكراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

الف شكر لك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .