26-07-16, 08:45 PM
(آخر تعديل لهذه المشاركة : 28-07-16, 04:34 AM {2} بواسطة الماجيك مسعد.)
السلام عليكم
حاولت ان اعمل برنامج متعدد اللغات
واستخدمت هذا الطريقة
كود Visual Basic
وهو عبر ملف ini
مثل اشهر البرامج ومثل البرامج الكبيرة
ولكنى واجهت بعض المشاكل
1 - اذا كان زر عليه صورة + نص تختفى الصورة ويظهر النص فقط
2 - اذا كن فى ليبل او صندوق نص فيه كلام كثير ويجب ان يكون اكثر من سطر (new line)
لا يظهر سوى اول سطر فقط
-------------
مثال عن ملف ini
[MGLOGIN]
001="اسم المستخدم"
002="كلمة السر"
003="دخول"
004="خروج"
005="دخول تجريبي"
هذه بعض المشكلات التى واجهتنى لحد الان
فهل يوجد حل لهذه المشاكل؟
حاولت ان اعمل برنامج متعدد اللغات
واستخدمت هذا الطريقة
كود Visual Basic
كود :
#Region "API"
Private Declare Auto Function GetPrivateProfileString Lib "kernel32" _
(ByVal lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpDefault As String, ByVal lpReturnedString As String, _
ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Private Declare Auto Function WritePrivateProfileString Lib "kernel32" _
(ByVal lpApplicationName As String, ByVal lpKeyName As String, _
ByVal lpString As String, ByVal lpFileName As String) As Long
#End Region
#Region "INI File"
Private Function Glini(ByVal a As String, ByVal b As String) As String
Dim msr As String = Application.StartupPath & "\lang\" & My.Settings.lang & ".ini"
Dim value As String = Space(255)
GetPrivateProfileString(a, b, "Err", value, Len(value), msr)
Me.LblTest.Text = value
Return Me.LblTest.Text
End Function
#End Region
#Region "Languages"
Private Sub Lang_Ok()
Me.Label2.Text = Glini("MGLOGIN", "001")
Me.Label3.Text = Glini("MGLOGIN", "002")
Me.Button1.Text = Glini("MGLOGIN", "003")
Me.Button2.Text = Glini("MGLOGIN", "004")
Me.Button3.Text = Glini("MGLOGIN", "005")
End Sub
#End Region
Private Sub rar_CheckedChanged(sender As Object, e As EventArgs) Handles rar.CheckedChanged
If rar.Checked = True Then
My.Settings.lang = "AR"
Lang_Ok()
End If
End Sub
Private Sub ren_CheckedChanged(sender As Object, e As EventArgs) Handles ren.CheckedChanged
If ren.Checked = True Then
My.Settings.lang = "EN"
Lang_Ok()
End If
End Sub
وهو عبر ملف ini
مثل اشهر البرامج ومثل البرامج الكبيرة
ولكنى واجهت بعض المشاكل
1 - اذا كان زر عليه صورة + نص تختفى الصورة ويظهر النص فقط
2 - اذا كن فى ليبل او صندوق نص فيه كلام كثير ويجب ان يكون اكثر من سطر (new line)
لا يظهر سوى اول سطر فقط
-------------
مثال عن ملف ini
[MGLOGIN]
001="اسم المستخدم"
002="كلمة السر"
003="دخول"
004="خروج"
005="دخول تجريبي"
هذه بعض المشكلات التى واجهتنى لحد الان
فهل يوجد حل لهذه المشاكل؟