كيف يتم الكتابة في الTextBox باللغة العربية تلقائيا عند فتح الForm بدون الضغط على Alt+Shift من لوحة المفاتيح.
فأنا رأيت تلك الموضوع في برنامج من قبل وبحثت في الكثير من المواقع والكتب لكي أتوصل لهذه الطريقة وللأسف لم أفلح.
أريد مساعدتكم في موضوع اشغلني كثيرا
مغلق
بسم الله الرحمن الرحيم
الاخ العزيز
الحل فى استخدام الــ ascii
الذاكرة غير حاضرة فى الارقام التى سوف تجعل المدى بينها
و انا سوف ابحث لك
اسف على المعلومة غير المكتملة
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
اخى العزيز أضف هذا الكودد فى حدث ال getfocus للاداة text
senkeys "+^"
وعرفنى النتيجة
يا تخي العزيز
أنا لمحت الموضوع اللي بدك اياه في المنتدى بس مش فاكر في اي صفحة .
حاول البحث وان اساحاول من عندي
أخي راجع هذا الرابط و سوف تجد الحل إن شاء الله
بسم الله الرحمن الرحيم
ألف شكر يا أخواني على محاولتكم في حل مشكلتي
ولكن للأسف الشديد لم يفلح أي حل من الحلول المطروحة
السلام عليكم
ضع اداتين نص علي الفورم واجعلهما بالاسماء الافتراضية Text1 و Text2
وفي الفورم الصق الكود التالي :
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long Private Sub Text1_GotFocus() ActivateKeyboardLayout 67699721, 1 ' english End Sub Private Sub Text2_GotFocus() ActivateKeyboardLayout 67175425, 1 ' arabic End Sub
شرح الكود : حيت ان في الحدث Text1_GotFocus سيتم تنفيذ الكود الخاص بجعل الكبيورد تكتب باللغة الانجليزية عند دخول المؤشر الي صندوق النص وسيكتب بالغة العربية عند دخول المؤشر في صندوق النص الثاني .
تحياتي لك // دعواتك لي :blink:
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
بصراحة يا اخ بروف
انتا بتستاهل لقب بروف هاد اول اشي
بعدين اشك انك انتا من ضمن المصممين للغة الفجوال بيسك لأنو بتيجي بأكواد انا لاول مرة اشوفها وفعليا رهيبة و تادي المطلوب بدون لف ودوران
بهنيك على ها الإشي
و الى الأمام ;)
هذا الموضوع مغلق.