[أبو خالد الشكري]

السلام عليكم أخواني المبرمجين
وأسعد الله أوقاتكم بكل خير 

حقيقة أنا حبيت أستخدم Class في مشروعي ، ولكن للأسف لم أتمكن من معرفة طريقة استدعاء الـ Class في الفورم !

المشروع المرفق هو عبارة عن Class بسيط جدا بهدف التجربة ومعرفة الطريقة .

الـ Class فيه كود تحويل لغة الكتابة في TextBox إلى اللغة العربية .

حاولت استدعاءه ولكني لم أتمكن من معرفة طريقة استدعاء الكود من الـ Class 

أرجو منكم كشف السر المكنون ، وإعلانه على الملأ



ولكم مني خالص التحية والمحــ ـــبـة

[Taha Okla]

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

خذها من يد عربية :

كود :

       Dim Ta As New LangClass
       Ta.ArabicLanguage()

[أبو خالد الشكري]

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

خذها من يد عربية :

كود :

       Dim Ta As New LangClass
       Ta.ArabicLanguage()

نعم اشتغل

يبدو أني لم أطبق الكود بطريقة صحيحة

لك خالص الشكر والتقدير أستاذ طه

ما قصرت ، جزاك الله خيرا .

[Taha Okla]

وخذ هذا التعديل على الـ Class  من أجل الدراويش  - ولتغيير اللغة كما تريد (عربي - انكليزي - تمر )..

كود :

Public Class LangClass
   Enum pLanguage
       En = 0
       Ar = 1
   End Enum
   Public Sub SelectLanguage(ArEn As pLanguage)

       Dim lang As InputLanguage

       For Each lang In InputLanguage.InstalledInputLanguages
           If ArEn = 1 Then
               If lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
                   InputLanguage.CurrentInputLanguage = lang
               End If
           ElseIf ArEn = 0 Then
               ' If Not lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
               If lang.Culture.EnglishName.ToUpper Like "*English*".ToUpper Then
                   InputLanguage.CurrentInputLanguage = lang
               End If
           End If
       Next
   End Sub

End Class

فيصبح كود الاستدعاء هو :

كود :

   Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus

       Dim Ta As New LangClass
       Ta.SelectLanguage(pLanguage.En)

   End Sub

   Private Sub TextBox2_GotFocus(sender As Object, e As EventArgs) Handles TextBox2.GotFocus

       Dim Ta As New LangClass
       Ta.SelectLanguage(pLanguage.Ar)

   End Sub

[أبو خالد الشكري]

يا سلام عليك

إيش هذي الحلاوة ما شاء الله

أنت رائع دائما أستاذ طه


مشكور جدا جدا