حذف 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
بالتوفيق للجميع
السلام عليكم
استاذى
جربت الكود على KeyPress ولم يعمل اساسا
ويعمل فقط على KeyDown ولكن المشكلة فى رسالة الخطأ على ويندوز 7 فقط وليس XP
تحياتى
السلام عليكم
اسف لطرح الموضوع مرة اخرى
ولكن *
قمت بتغير نسخة الويندوز من 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
نرجو الاستفادة و السلام.
زادك الله من علمه وفقك الله لما تحبه وترضاه
الحل الثالث هو الذى اتبعتة وجاء بالنتيجة المطلوبة
بارك الله فيك استاذى
احياتى استاذ / ناجى
جزاك الله كل خير الاخ" ناجي ابراهيم " ، انا ايضا كنت اعاني من نفس المشكلة مع ويندوز 7 ، والدالة التي كتبتها حلت عندي المشكلة، بارك الله فيك
فعلا ساعدتنى كثيرا من مشكله كنت اعانى منها