كنت قديما في الاكسس استخدم خاصية KeyboardLanguage والمختصة في لغة الادخال في لوحة المفاتيح و خاصية NumeralShapes المختصة في شكل كتابة الارقام ، فسؤالي هو كيف يمكن استخدامهم في VB.Net
LatinField.KeyboardLanguage = 1
LatinField.NumeralShapes = 1
كنت قديما في الاكسس استخدم خاصية KeyboardLanguage والمختصة في لغة الادخال في لوحة المفاتيح و خاصية NumeralShapes المختصة في شكل كتابة الارقام ، فسؤالي هو كيف يمكن استخدامهم في VB.Net
LatinField.KeyboardLanguage = 1
LatinField.NumeralShapes = 1
السلام عليكم
بالنسبةِ لي تحويل لوحة المفاتيح إلى العربية , فإن ذلك يكمن في قالب الثقافة Culture Class و بالتحديد للبلد الحالي
سيكون بهذا الشكل.
Public Shared Sub EnabledArabicLangage() Dim ClInfo As CultureInfo 'For exaple CurrentCulture , will equal to ar-AE in UAE country InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New _ System.Globalization.CultureInfo(ClInfo.CurrentCulture.ToString)) End Sub
أما الأرقام و العملة و التاريخ يكون بتهيئة الثقافة الحالية CurrentCulture
أما لتهيئة الـمحاذاة واللغة معاً فيكون عن طريق تهيئة واجهة الثقافة الحالية CurrentUICulture يكون ذلك بهذا الشكل
Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Create culture variable Dim ClInfo As CultureInfo 'تهيئة البيانات كالعملة والتاريخ و الأرقام وغيرهم System.Threading.Thread.CurrentThread.CurrentCulture = _ New System.Globalization.CultureInfo(ClInfo.CurrentCulture.ToString) ''تهيئة الواجهة كالمحاذات واللغة معها System.Threading.Thread.CurrentThread.CurrentUICulture = _ New System.Globalization.CultureInfo(ClInfo.CurrentCulture.ToString) End Sub
ملاحظة : كما هو في الكود أفضل مكان لعمل هذا الكود هو بعد السطر InitializeComponent()
كذلك المرفق منشأ على البيئة VS.NET 2005
بالتوفيق إن شاء الله.
تم تعديل هذه المشاركة بواسطة الغملاسي في 13 نوفمبر 2005 في 11:15
في المثال يتضح المقال
شكرا اخي الغملاسي بارك الله فيك فهذه كانت مشكلة بالنسبة لي
التخصص : نظم معلومات - جامعة سبأ - اليمن
من مواضيعي :
السلسلة الذهبية في تعلم البرمجة [شرح عن الإجراءات والدوال function وبناء الـ Classes] .
السلام عليكم
الاخ العزيز الغملاسي
اشكرك جدا على كل ما تقدمه لنا وبارك الله فيك وجزاك الله خيرا
"نحن لا نستسلم... ننتصر أو نموت.... وهذه ليست النهاية... بل سيكون عليكم أن تحاربوا الجيل القادم والاجيال التي تليه... اما أنا... فإن عمري سيكون أطول من عمر شانقي."
عمر المختار
اللهم انعم على بلادي بالأمن والأمان
السلام عليكم
لا شكر على واجب أحبتي الكرام, تم وضع مثال على ذلك بطريقة أفضل من سابقتها. بالتوفيق إن شاء الله.
في المثال يتضح المقال
شكراً لك أخي الكريم على اجابتك الطيبة ، وجزاك الله عني وعن كل من استفاد ومن لم يستفد خيراً
انا كمان كنت محتاج الكود ده شكرا يا اخ غملاسي
سبحان الله وبحمده سبحان الله العظيم
لا اله الا الله محمدا رسول الله
اللهم اغفر للمسلمين والمسلمات والمؤمنين والمؤمنات الاحياء منهم والاموات
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
حمل كريستال ريبورت 10 اربعه اصدارات

هذا الموضوع مغلق.