[altho8]

نفس المشكلة القديمه يالغالي 

في الابون سورس اشغله يشتغل تمام

يوم احوله exe ما تشتغل تبديل الواجهات


في طريقة اجبر البرنامج على تشغيل لغة معينه 


يعني خلاص احوله exe بالواجهه الانجليزيه

[عبدالله الدوسري]

إذا كنت تستخدم  NET 4.5.

جرب هذا الكود :

كود :

System.Globalization.CultureInfo.DefaultThreadCurrentCulture = new System.Globalization.CultureInfo("en-US");
System.Globalization.CultureInfo.DefaultThreadCurrentUICulture = new System.Globalization.CultureInfo("en-US");

---

إذا الكود داخل الفورم ,, يجب أن يكون في الحدث NEW

كود :

   Public Sub New()

       Dim lLng As String = "EN-us"
       Threading.Thread.CurrentThread.CurrentCulture = New CultureInfo(lLng)
       Threading.Thread.CurrentThread.CurrentUICulture = New CultureInfo(lLng)

       ' This call is required by the designer.
       InitializeComponent()
       ' Add any initialization after the InitializeComponent() call.

   End Sub

[altho8]

استاذ عبد الله اشكرك لطول بالك 


ولكن جربت الحل نفس المشكلة 


انا استخدم نيت فريم 5.4.2

وجربت الكود الذي اعطيتني في حدث اللود وحدث new وايضا وضعته في الوجو ولم يزبط


انضر للمرفقات

الصورة الاولى وهو في وضع التصميم

والصورة الثانية بعد تحويله الى ملف exe

[silverlight]

المثال التالي ربما يعطيك فكرة بسيطة
افتح مشروع جديد و ضع به عدد 2 باتون
و اكتب الكود بالشكل التالي
اعتقد انه مش صعب انك تنفذ نفس الفكرة في مشروعك

PHP كود :

Imports System.Threading

Public Class Form1

    Private Sub InitializeArabicLanguageSupport()
        Button1.Text = "موافق"
        Button2.Text = "خروج"
        Me.Text = "برنامج"
    End Sub

    Private Sub InitializeEnglishLanguageSupport()
        Button1.Text = "Ok"
        Button2.Text = "Exit"
        Me.Text = "any text"
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        InitializeLanguage()
    End Sub

    Private Sub InitializeLanguage()
        Select Case (Thread.CurrentThread.CurrentCulture.Name)
            Case "en-EN"
                InitializeEnglishLanguageSupport()
                Return
            Case "ar-EG"
                InitializeArabicLanguageSupport()
                Return
            Case "ar-SA"
                InitializeArabicLanguageSupport()
                Return
        End Select
    End Sub

End Class 


[altho8]

لا يا الغالي صعبه 

انا انتهيت من تصميم برنامجي 

وانتهيت من الترجمة 

بهذه الطريقة يبغالي ارجع اتركم كل شي

[silverlight]

غالبا أنت تستخدم Resources لتحفظ بها المعلومات و عليك فقط قراءتها من الريسورس
أنا اعطيت فكرة للتوضيح ققط

[altho8]

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

[silverlight]

بالمرفقات مثال يوضح لك فكرة استخدام الريسورس

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

[عبدالله الدوسري]

أخوي altho8


هل ممكن تذكر الطريقة التي تحزم فيها مشروعك ليعمل في جهاز العميل

كيف تقوم بإنشاء برنامج التنصيب على جهاز العميل؟

وهل ملفات الريسورس موجودة على جهاز العميل بعد التنصيب ؟

ضع الكود الذي تستخدمة ( لا يفيد ات تضع سطر أو سطرين , ضع على سبيل المثال الكود الموجود في نافذة تسجيل الدخول )
من أي مكان في الكود تقوم بإنشاء النافذة الرئيسية ؟

[altho8]

اخوي [b]silverlight[/b]

الطريقة حلوه بس انا انتهيت من البرنامج ولازم يشتغل الاحد مافي وقت اترجمه لان الفورمات كثيررررره


[b][b]اخوي عبدالله الدوسري[/b][/b]

[b]طريقة التحزيم هي بطريقة برنامج installer wizard المضاف للفجول[/b]

[b]لم افهم قصدك كيف تقوم بانشاء برنامج التصميم[/b]

[b]انا قمت بواسطة البرنامج السابق تحزيم البرنامج ثم تسطيبه مع البرامج الاضافية مثل السكول والويندوز انستل[/b]


[b]هذا كود الدخول[/b]

PHP كود :

           adapter = New MySqlDataAdapter("SELECT * from t_user where user_name='" & txtusername.Text & "' and password='" & txtpass.text & "'", sqlConlocl)
            Dim dt As New DataTable
            adapter.Fill(dt)
            If dt.Rows.Count = 0 Then
                MsgBox("البيانات غير صحيحة")
            Else
                If dt.Rows(0)(22) = "No" Then
                    MsgBox("لم يتم تفعيل حسابك")

                Else


                    Dim mss As String = dt.Rows(0)(21)
                    MsgBox("مرحبا بك: " & mss)

                    If btLangug.Text = "En" Then
                        Dim cul As New System.Globalization.CultureInfo("en-us")
                        System.Threading.Thread.CurrentThread.CurrentUICulture = cul

                    End If




                    Interface1.ToolStrip1.Enabled = True
                    Interface1.MenuStrip1.Enabled = True
                    'كود اضافة التاريخ اثناء التسجيل علما بان الجدول سوف يضيف الوقت ونوع العملية
                    Dim nuEnter As Double
                    nuEnter = dt.Rows(0)(1)
                    sqlConlocl.Open()
                    cmd = New MySqlCommand("INSERT INTO t_movement_emp(emp_nu,Operation_type)" _
                                                    & "VALUES(@emp_nu,@Operation_type)", sqlConlocl)
                    cmd.Parameters.Add(New MySqlParameter("@emp_nu", MySqlDbType.Double)).Value = nuEnter
                    cmd.Parameters.Add(New MySqlParameter("@Operation_type", MySqlDbType.Enum)).Value = "Entry"
                    cmd.ExecuteNonQuery()










                    Interface1.Show()
                    Me.Hide()


                End If

            End If

        Catch ex As Exception
            MsgBox("Problem with internet connection in Enter Form")
            'MsgBox(ex.ToString)
        Finally
            sqlConlocl.Close()
        End Try 


[b]كيف اعرف ان ملفات السورس مضافة للبرنامج[/b]

---

هذا الكتاب فيه طريقة التحزيم الي استخدمها

https://www.kutub.info/library/book/11373