منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية استخدام Class في المشروع - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية استخدام Class في المشروع (/showthread.php?tid=42220)

كيفية استخدام Class في المشروع - أبو خالد الشكري - 21-08-22

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

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

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

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

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

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



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

RE: كيفية استخدام Class في المشروع - Taha Okla - 21-08-22

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

خذها من يد عربية :
كود :
       Dim Ta As New LangClass
       Ta.ArabicLanguage()


RE: كيفية استخدام Class في المشروع - أبو خالد الشكري - 21-08-22

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

خذها من يد عربية :
كود :
       Dim Ta As New LangClass
       Ta.ArabicLanguage()


نعم اشتغل

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

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

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



RE: كيفية استخدام Class في المشروع - Taha Okla - 21-08-22

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


RE: كيفية استخدام Class في المشروع - أبو خالد الشكري - 21-08-22

يا سلام عليك

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

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


مشكور جدا جدا