كيف يمكننى جعل الفيجوال يحول الأنجلزية للعربية؟

السلام عليكم

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

مثلاً الإمارات سيكون كالتالي

 InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New _
                System.Globalization.CultureInfo("ar-AE"))

ضع الكود في تحميل النموذج form loading event أو لتحديد خانة نصية textbox ضعه في GotFoucs

كذلك تستطيع فعل ذلك بطريقة أخرى لنفترض أن اللغة العربية هي اللغة الثانية ستمثل في هذه الحالة الرقم 1 بهذا الشكل

 InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages.Item(1)

و للعودة للغة الإنجليزية سيكون بهذا الشكل

 InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages.Item(0)

إذا لم ترغب بإستخدام الأرقام Index لتحديد اللغة فالطريقة الأولى هي الأجدر مثلاً للعودة للإنجليزية سيكون كالتالي

  InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New _
                       System.Globalization.CultureInfo("en"))

والله أعلم

شكرا أخى الكريم على الرد

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

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

ماحدش عرف حل للمشكلة ديه؟؟؟

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

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

اليك الحل يا اخي الفاضل

وهو ان تستخدم ASC للحروف فمثلا asc حرف a يساوي 97 و asc حرف ش يساوي 212

asc حرف H يساوي 72 وهو حرف أ ويساوي 195

فعليك عمل جدولين كما في المثال السابق لتحويل جميع الحروف.

فمثلا الرقم 72 يقابله 195

if asc(text1.text) = 72 then text2.text = chr(195) endif

وتحياتي لك اخي الكريم.

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

you can store it in variable then when the text lostfocus you can reterive the value of variable in the text box

أوك بس ممكن مثال بسيط على جمله صغيرة كده لو مافيهاش مشاكل يعنى

أخي Nsync ..

الحل الوحيد هو ما قاله jbsa و بعدين الحروف كلها 26 حرف يعني مش كتار اوي..

و جزاكم الله خيراً يا غملاسي على الطريقة الرائعة (اول مرة اعرف عنها) اللي كنت محتاجها فعلاً :)

أرى أن يتم تخزين الأحرف باستخدام HashTable, أي:

hs("a") = "ع"
hs("g") = "خ"

وهكذا عندها من أجل تغيير كل حرف نكتب:

Dim s as String
Dim a as String
s = "a"
a = hs(s)

هههههههه

انا كمان بعاني من المشكله ده

واكيد معروف ليه

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

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

يا اخي الكريم عند ادخال المعلومة في التكست كاملاً وعمل enter او tab او الخروج من text ينفذ امر التحويل

ويتم تحويله حرف حرف لتشكيل الكلمة التي تريد.

قمت بعمل برنامج يحول من الخط العربي في الويندوز الى الخط العربي في ( النافذا Dos ) واستطعت تحويل ملف txt كاملاً

640 الف حرف في اقل من جزأين من الثانيه.

عن طريق عمل tabel يضم 255 حرف للحروف بالويندوز وتيبل اخر يحتوي على 255 حرف التي تقابلها بالنافذا.

والافضل استخدام طريقة asc و chr لانك اذا قارنت الاحرف تستغرق وقت اكبر بكثير.

وهذا الكود لتحويل محتويات text1 الى text2 ولكن يجب ان تضع في teble الارقام المقابلة لكل حرف.

 For i = 1 To len(text1)
        Mid$(text2, i, 1) = Chr(Table(asc(Mid$(text1, i, 1)))

مش معقوله يا جماعه عايزين مثال للموضوع ده

يا ريت لو حد جربه يحطه عشان يستفيد الجميع