اللغة في جهاز العميل لا تعمل - نسخة قابلة للطباعة

كود :

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

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

كود :

   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

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

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