منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

ـــبـة

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

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

كود :

       Dim Ta As New LangClass

        Ta.ArabicLanguage()

(21-08-22, 06:28 PM)Taha Okla كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته

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

كود :

Dim Ta As New LangClass Ta.ArabicLanguage()

نعم اشتغل

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

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

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

وخذ هذا التعديل على الـ 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

يا سلام عليك

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

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

مشكور جدا جدا

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

Taha Okla

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

Taha Okla

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