Localizable

الأخوة الأكارم

عندي نموذج

عملت فيه لغتين لغة عربية ولغة إنجليزية

والنموذج بالفعل اصبح كالتالي

Form1.ar-EG.resx

Form1.en-US.resx

استخدامت مجال الاسماء

Imports System.Globalization

Imports System.Threading

باستخدم هذا الامر للتحويل من لغة إلي لغة

Thread.CurrentThread.CurrentUICulture = New CultureInfo("EN-us")

أو

Thread.CurrentThread.CurrentUICulture = New CultureInfo("AR-EG")

المشكلة لا أستطيع التحويل بين اللغتين علي نفس النموذج

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

Imports System.Globalization
Imports System.Threading
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lang As String
        If ComboBox1.Text = "العربية" Then
            lang = "ar-Eg"
        ElseIf ComboBox1.Text = "English" Then
            lang = "en-US"
        Else
            MessageBox.Show("select Language -  أختر اللغة")
            Exit Sub
        End If
        Thread.CurrentThread.CurrentUICulture = New CultureInfo(lang)
        Form1.Show()
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.Add("العربية")
        Me.ComboBox1.Items.Add("English")
    End Sub
End Class

Localizable

مواضيع مشابهة