منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة في كود تغيير لغة البرنامج - نسخة قابلة للطباعة

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

الصفحات: 1 2

مشكلة في كود تغيير لغة البرنامج - ay.alhaj - 09-10-18

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

عندي مشكلة انا قمت بوضع اجراء عام في موديول لتغيير اللغة 

ثم اقوم باستدعاء الاجراء في الفورم في حدث load

المهم الكود شغال مية بالمية لكن يسبب بطئ عند فتح الفورم 

انا استخدمت طريقة تغيير اللغة من خصائص الفورم واستخدم الكود التالي 


كود :
       If My.Settings.App_language = "AR" Then
           For Each CTRL As Control In Controls_Location
               Dim crmLang As ComponentResourceManager = New ComponentResourceManager(Form_Location.GetType)

               crmLang.ApplyResources(CTRL, CTRL.Name, New CultureInfo("AR"))

           Next CTRL
       Else
           If My.Settings.App_language = "EN" Then
               For Each CTRL As Control In Controls_Location
                   Dim crmLang As ComponentResourceManager = New ComponentResourceManager(Form_Location.GetType)

                   crmLang.ApplyResources(CTRL, CTRL.Name, New CultureInfo("AR"))
               Next CTRL
           End If
       End If
   End Sub



وكود الاستدعاء هو 

كود :
  System_Language(Me.FindAllChildren, Me)


علما بان FindAllChildren هي دالة اخرى لجلب كل الادوات من الفورم وهي مقدمة من قب المهندس عبد الله الدوسري وهي كالتالي 



كود :
   <Runtime.CompilerServices.Extension()>
   Public Function FindAllChildren(ByRef StartingContainer As System.Windows.Forms.Control) As List(Of System.Windows.Forms.Control)

       Dim Children As New List(Of System.Windows.Forms.Control)

       If StartingContainer.HasChildren = False Then
           Return Nothing
       Else
           Dim oControl As System.Windows.Forms.Control
           For Each oControl In StartingContainer.Controls
               Children.Add(oControl)
               If oControl.HasChildren Then
                   Children.AddRange(oControl.FindAllChildren())
               End If
           Next
       End If
       Return Children
   End Function





المشكلة عند فتح الفورم يأخذ وقت من5 الى 7 ثواني ثم يفتح 

ايضا عندما اخترت اللغة الانجليزية في وضع التصميم وقمت بتغيير الليبل من العربية للانجليزية قمت بتغيير المواقع لهم مع التكست بوكس الخاص بهم من جهة اليمين الي جهة اليسار 

ايضا التكست بوكس توجد في داخل جروب بوكس والجروب بوكس يوجد بداخل بانل لذلك قمت باستخدام دالة الاخ عبد الله 


ارجو من لديه الخبرة الحل لهذه المشكلة 

وجزاكم الله كل خير
Please any one can help me

RE: مشكلة في كود تغيير لغة البرنامج - asemshahen5 - 09-10-18

أطلع على هذا الموضوع : http://vb4arb.com/vb/showthread.php?tid=25563

RE: مشكلة في كود تغيير لغة البرنامج - ay.alhaj - 09-10-18

(09-10-18, 02:21 AM)asemshahen5 كتب : أطلع على هذا الموضوع : http://vb4arb.com/vb/showthread.php?tid=25563

شكرا لك على الرد اخي انا عندي الفكرة واعملتها وشغالة مية بالمية بس المشكلة بطئ في فتح الفورم ومع ذلك سوف اطلع على الامثلة لعلي القى شيء مختلف
انا مشكلتي كما وضحت سابقا انني في الفورم 

التكست بوكس توجد في داخل جروب بوكس والجروب بوكس يوجد بداخل بانل

لذلك لا استطيع التحكم في الاتجاه للكنترول الموجودين داخل الجروب بوكس فقمت في وضع اللغة الانجليزية بتغيير الاتجاه 

عندما تختار اللغة الانجليزية يقوم الفورم بتغيير موقع التكتست بوكس الى الجهة اليسار لذلك يسبب بطئ اثناء فتح الفورم

RE: مشكلة في كود تغيير لغة البرنامج - asemshahen5 - 09-10-18

انظر الى هذا المثال :

RE: مشكلة في كود تغيير لغة البرنامج - ay.alhaj - 09-10-18

(09-10-18, 03:47 AM)asemshahen5 كتب : انظر الى هذا المثال :


اخي اطلعت على المثال لكن المثال لا يعمل وكود تغيير اللغة غير موجود

RE: مشكلة في كود تغيير لغة البرنامج - مصمم - 09-10-18

انا فهمت من سؤالك ان مشكلة مش فى تغير لغة المشكلة عندك فى وقت التحويل بتاخد 7 ثوانى 
فعلا كتير

RE: مشكلة في كود تغيير لغة البرنامج - asemshahen5 - 09-10-18

(09-10-18, 04:01 AM)ay.alhaj كتب :
(09-10-18, 03:47 AM)asemshahen5 كتب : انظر الى هذا المثال :


اخي اطلعت على المثال لكن المثال لا يعمل وكود تغيير اللغة غير موجود

أعد تشغيل المثال ستجد اللغة تغيرت .

بالنسب لكود تغير اللغة موجود في :

LanguageCh\LanguageCh\My Project\Application.Designer.vb

RE: مشكلة في كود تغيير لغة البرنامج - ay.alhaj - 09-10-18

(09-10-18, 04:01 AM)مصمم كتب : انا فهمت من سؤالك ان مشكلة مش فى تغير لغة المشكلة عندك فى وقت التحويل بتاخد 7 ثوانى 
فعلا كتير

نعم هذه هي المشكلة


(09-10-18, 04:05 AM)asemshahen5 كتب :
(09-10-18, 04:01 AM)ay.alhaj كتب :
(09-10-18, 03:47 AM)asemshahen5 كتب : انظر الى هذا المثال :


اخي اطلعت على المثال لكن المثال لا يعمل وكود تغيير اللغة غير موجود

أعد تشغيل المثال ستجد اللغة تغيرت .

بالنسب لكود تغير اللغة موجود في :

LanguageCh\LanguageCh\My Project\Application.Designer.vb

شكرا ساحاول الان

RE: مشكلة في كود تغيير لغة البرنامج - asemshahen5 - 09-10-18

في المرفقات يوجد صورة عن كيفية الوصول لكود تغيير اللغة و هو سطر واحد فقط دون كل هذه العقد .
هذا فيديو كامل عن الطريقة : https://www.youtube.com/watch?v=-2ksI53bPtg

RE: مشكلة في كود تغيير لغة البرنامج - ay.alhaj - 09-10-18

(09-10-18, 04:16 AM)asemshahen5 كتب : في المرفقات يوجد صورة عن كيفية الوصول لكود تغيير اللغة و هو سطر واحد فقط دون كل هذه العقد .
هذا فيديو كامل عن الطريقة : https://www.youtube.com/watch?v=-2ksI53bPtg


اخي اعتذر الك لاني غلبتك لكن انت لم تفهم مشكلتي الاساسية 

انا مشكلتي كما وضحت سابقا انني في الفورم 

التكست بوكس توجد في داخل جروب بوكس والجروب بوكس يوجد بداخل بانل

لذلك لا استطيع التحكم في الاتجاه للكنترول الموجودين داخل الجروب بوكس فقمت في وضع اللغة الانجليزية بتغيير الاتجاه 

عندما تختار اللغة الانجليزية يقوم الفورم بتغيير موقع التكتست بوكس الى الجهة اليسار لذلك يسبب بطئ اثناء فتح الفورم