[ABO.BANCIANA]

حذف Call
لا ياتى بنتيجة
لا اعرف هل المشكلة فى نسخة الويندوز . او نسخة الفيجوال بانها لا تعمل على 7

اشكرك اخى تركى

فى انتظار حل للمشكلة

[أبو عمر]

السلام عليكم
اخي لم اتكلم عن حجم الحروف هذا ما وضعته انت في البداية

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Call SendKeys("{Tab}")
End If
End Sub
وكابه به خطأ وانا حاولت اصحح هذا الخطأ
هذا من جانب
من جانب آخر
بالنسبة لاستخدم مفتاح انتر ليعمل كمفتاح تاب

Enter Key wors like Tabe key
لا يعمل الا في الحدث KeyPress
مثال ذلك
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If
End Sub
بالتوفيق للجميع

[ABO.BANCIANA]

السلام عليكم

استاذى

جربت الكود على KeyPress ولم يعمل اساسا

ويعمل فقط على KeyDown ولكن المشكلة فى رسالة الخطأ على ويندوز 7 فقط وليس XP

تحياتى

[ABO.BANCIANA]

السلام عليكم

اسف لطرح الموضوع مرة اخرى

ولكن *

قمت بتغير نسخة الويندوز من 7 Ultimate
32 BIT

الى professional 64bit

ومازالت المشكلة قائمة
مع ملاحظة انة عند تحويل البرنامج الى ملف تنفيذى (EXE)

لا يوجد مشكلة عند الضغط على enter

هل المشكلة فى نسخة الفيجوال ؟

اسف للاطالة ولكنى لا استطيع التعامل مع السورس كود مع استخدام الويندوز 7

[ناجي إبراهيم]

السلام عليكم...

هذا يحدث بسبب القيود الأمنية لـ Windows 7 لأن الدالة SendKeys يمكن استعمالها لإرسال بيانات إلى برامج أخرى غير برنامجنا.

لديك واحد من ثلاثة حلول:

أ. بعد تحويل المشروع إلى ملف تنفيذي (EXE) انقر على الملف التنفيذي بالزر الأيمن للفأرة ثم اختر خصائص (Properties) من القائمة. و في نافذة الخصائص بدل إلى الصفحة "التوافق" (Compatibiliy) و حدد الخيار "تشغيل هذا البرنامج في وضع التوافق لـ" و اختر Windows XP.

ب. قم بتعطيل "إعدادات التحكم في حسابات المستخدمين" (User Access Contol settings) من خلال برنامج حسابات المستخدمين (User Accounts) في لوحة التحكم (Control Panel) التابعة لـ WIndows.

ج. الحل الثالث ربما الأفضل: اكتب الدالة التالية في Module:

كود :

Public Sub Sendkeys(text$, Optional wait As Boolean = False)
   Dim WshShell As Object
   Set WshShell = CreateObject("wscript.shell")
   WshShell.Sendkeys text, wait
   Set WshShell = Nothing
End Sub

نرجو الاستفادة و السلام.

[ABO.BANCIANA]

زادك الله من علمه وفقك الله لما تحبه وترضاه

الحل الثالث هو الذى اتبعتة وجاء بالنتيجة المطلوبة

بارك الله فيك استاذى

احياتى استاذ / ناجى

[ابو همام العراقي]

جزاك الله كل خير الاخ" ناجي ابراهيم " ، انا ايضا كنت اعاني من نفس المشكلة مع ويندوز 7 ، والدالة التي كتبتها حلت عندي المشكلة، بارك الله فيك

[alhoor]

فعلا ساعدتنى كثيرا من مشكله كنت اعانى منها