Public Class TextMaj Inherits TextBox Public Function ArabicLang(ByVal wl As Boolean) As Boolean If wl = True Then 'تغيير لغة لوحة المفاتيح إلى اللغة العربية InputLanguage.CurrentInputLanguage = InputLanguage. _ InstalledInputLanguages().Item(1) MyBase.TextAlign = HorizontalAlignment.Right Else ' تغيير لغة لوحة المفاتيح إلى اللغة الانجليزية InputLanguage.CurrentInputLanguage = InputLanguage. _ InstalledInputLanguages().Item(0) MyBase.TextAlign = HorizontalAlignment.Left End If End Function End Class
' العربية اللغة لاختيار TextMaj1.ArabicLang(True) ' الانجليزية اللغة لاختيار TextMaj1.ArabicLang(False)
Public Class TextMaj Inherits TextBox '--وسوف نسند فيها قيمتين عربي وإنجليزي Enum تركيب من نوع Enum sellang Arabic Englech End Enum '--من نوع التركيبة نفسها ليأخذ واحدة من القيم sel-هنا تعريف متغير Private sel As sellang '--من هنا تبدءا الخاصية Property SelectLanguage() As sellang '--هنا سيتم إعادة القيمة التي يتم تحديدها في الخاصية Get Return (sel) End Get '--في هذا الجزء من الخاصية يتم تحديد أو اختيار القيمة من الخاصية Set(ByVal value As sellang) sel = value If sel = sellang.Arabic Then InputLanguage.CurrentInputLanguage = InputLanguage. _ InstalledInputLanguages().Item(1) MyBase.TextAlign = HorizontalAlignment.Right Else InputLanguage.CurrentInputLanguage = InputLanguage. _ InstalledInputLanguages().Item(0) MyBase.TextAlign = HorizontalAlignment.Left End If End Set End Property End Class
أما طريقه استدعاء تنفيذ الخاصية تتم بطريقتين الأولى عبر الشيفره وقت التنفيذ كما يلي :
TextMaj1.SelectLanguage = TextMaj.sellang.Arabic
والطريقة الثانية: عبر ضبط الخصائص في نافذة الخصائص التابعة للكائن وقت التصميم فعند عمليه البناء Build سيتم إضافة الخاصية التي صنعناها في نافذة الخصائص كما في الشكل التالي:
Cool huh? Ok, enough teasing around..
Go to our W3.CSS Tutorial to learn more!