30-06-18, 10:47 AM
السلام عليكم ورحمة الله وبركاته
اسهل طريقة لتطبيق هذه الفكرة اولا كلاس الفورم كامل :
ثانيا ملف نصي باي اسم وفيه:
ثم المشروع مرفق
نسيت اضيف تسمية selected language
نفس الطريقة
تم التعديل
اسهل طريقة لتطبيق هذه الفكرة اولا كلاس الفورم كامل :
كود :
Imports System.Xml
Public Class Form1
Dim doc As XmlDocument
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
doc = New XmlDocument
doc.Load("langs.txt")
Dim nods As XmlNodeList = doc.DocumentElement.SelectNodes("//langs[@lang]")
For r As Integer = 0 To nods.Count - 1
ComboBox1.Items.Add(nods(r).Attributes("lang").Value)
Next
ComboBox1.SelectedIndex = 0
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Items.Count = 0 Then Exit Sub
If ComboBox1.Text.ToLower = "عربي" Then
Me.RightToLeftLayout = True
Me.RightToLeft = Windows.Forms.RightToLeft.Yes
Else
Me.RightToLeftLayout = False
Me.RightToLeft = Windows.Forms.RightToLeft.No
End If
Dim words As XmlNodeList = doc.DocumentElement.SelectNodes("//langs[@lang='" & ComboBox1.Text & "']/h")
For r As Integer = 0 To words.Count - 1
Dim hn As String = words(r).Attributes("name").Value
For Each h As Control In Me.Controls
If h.Name = hn Then
h.Text = (words(r).InnerText)
End If
Next
Next
End Sub
End Class ثانيا ملف نصي باي اسم وفيه:
كود :
<AllLangs>
<langs lang="En">
<h name="lblmain">welcome here</h>
<h name="lblname">Name</h>
<h name="lblage">Age</h>
</langs>
<langs lang="عربي">
<h name="lblmain">مرحبا بكم هنا</h>
<h name="lblname">الاسم</h>
<h name="lblage">العمر</h>
</langs>
</AllLangs>نسيت اضيف تسمية selected language
نفس الطريقة
تم التعديل
