⭐ كيف تغير اللغة في برامجك ⭐

**Foksh** · يناير 13

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء )

اليوم جئتكم بفكرة جديدة وأعتقد أنه لم يسبقني أحد بهذا الطريق ؛ وهو إضافة اختيار واجهة اللغة إلى تطبيقات وبرامج ومشاريع الآكسيس بطريقة جديدة وتقدروا تقولوا 2024 :clapping:

في البداية سأقوم بشرح المطلوب داخل القاعدة التي سيتم التطبيق عليها ،

أولاً :- جدول واحد فقط يحتوي على حقل واحد فقط أيضاً وسنسميه بـ SettingsTable ، والحقل الذي بداخله هو Language من نوع نصي ( Text ) .

ثانياً :- نموذج Settings وهو طبعاً ليس له مصدر سجلات .

وبداخله كومبوبوكس Combo box سيكون اسمه cboLanguage نوع مصدر بياناته Value List ؛ ومصدر بياناته القيم التالية ( "العربية";"English" ) .

ثالثاً :- بجانب قاعدة البيانات سنقوم بإنشاء مجلد جديد وسيتم تسميته بـ Language .

الآن خطوات العمل :-

الموديول Module :- قم بإنشاء Module جديد وسمه بـ Set_Language ؛ وهو مفتاح العمل والذي من خلاله سنعتمد على جلب الترجمة من الملفات التي سنقوم بإنشائها لاحقاً . وهذا الكود مع الشرح الكامل له بين السطور .

Option Compare Database
Option Explicit

' المتغير العام لتخزين اللغة الحالية
Public CurrentLanguage As String

' تحديث اللغة الحالية
Public Sub UpdateLanguage()
    On Error Resume Next

    ' احصل على اللغة المحددة من جدول الإعدادات
    CurrentLanguage = DLookup("Language", "SettingsTable")

    ' قم بتحديث العلامات في جميع النماذج
    UpdateLabelsInAllForms
End Sub

' تحديث العلامات في جميع النماذج
Private Sub UpdateLabelsInAllForms()
    Dim frm As AccessObject
    
    ' تحديث العلامات في جميع النماذج المحملة
    For Each frm In CurrentProject.AllForms
        If frm.IsLoaded Then
            UpdateLabelsInForm Forms(frm.Name)
        End If
    Next frm
End Sub

' تحديث العلامات في نموذج محدد
Private Sub UpdateLabelsInForm(frm As Object)
    Dim arFile As String, enFile As String
    Dim arLabels() As String, enLabels() As String
    Dim i As Integer

    ' احصل على ملف اللغة العربية واللغة الإنجليزية
    arFile = GetLanguageFilePath("Arabic.txt")
    enFile = GetLanguageFilePath("English.txt")
    
    ' اقرأ الملفات واملأ المصفوفات بالنصوص المترجمة
    arLabels = Split(ReadFile(arFile), vbCrLf, -1)
    enLabels = Split(ReadFile(enFile), vbCrLf, -1)
    
    ' قم بتحديث العلامات في النموذج
    For i = 0 To UBound(arLabels)
        UpdateLabel frm, "Label" & CStr(i + 1), arLabels(i), enLabels(i)
        UpdateLabel frm, "Command" & CStr(i + 1), arLabels(i), enLabels(i)
    Next i
End Sub

' احصل على مسار قاعدة البيانات الحالية
Private Function GetDatabasePath() As String
    Dim dbPath As String
    dbPath = CurrentDb.Name
    GetDatabasePath = Left(dbPath, InStrRev(dbPath, "\"))
End Function

' احصل على مسار ملف اللغة
Private Function GetLanguageFilePath(fileName As String) As String
    GetLanguageFilePath = GetDatabasePath() & "Language\" & fileName
End Function

' اقرأ ملف النص وارجع النص كنص نصي
Private Function ReadFile(filePath As String) As String
    Dim fileNumber As Integer
    fileNumber = FreeFile
    Open filePath For Input As fileNumber
    ReadFile = Input$(LOF(fileNumber), fileNumber)
    Close fileNumber
End Function

' تحديث علامة محددة في النموذج بناءً على اللغة الحالية
Private Sub UpdateLabel(frm As Object, labelName As String, arabicText As String, englishText As String)
    On Error Resume Next
    
    ' قم بتحديث العلامة بناءً على اللغة الحالية
    frm.Controls(labelName).Caption = IIf(CurrentLanguage = "العربية", arabicText, englishText)
    
    On Error GoTo 0
End Sub

* ملاحظة :- سنعتمد هنا على طريق بسيط جداً وهو المسميات في النماذج ، فمثلاً لو انشأنا زر في نموذج ما وكانت تسميته Caption هي حفظ وكان اسم الزر Command1 ؛ فعند الترجمة سيصبح كل زر في البرنامج باسم Command1 هو بمثابة زر الحفظ وستكون ترجمته Save ؛ لذا سنعتمد طريقة توحيد المسميات في النماذج وهذا سيجعل الأمر سهلاً جداً للصيانة ، وطبعاً لا يمكن أن يكون لعنصرين ( كائنين ) في النموذج لهما نفس الإسم .

رابعاً :- العودة إلى نموذج Settings الذي تم التحدث عنه في النقطة ( ثانياً ) ؛ سنقوم بدايةً باستكمال إنشاء الأكواد الخاصة بتغيير اللغة ، قبل الأحداث للـ Combo Box والنموذج .

سنقوم بإدراج هذه الأكواد الثلاثة البسيطة :-

' تحديث العناصر في النموذج بناءً على اللغة المختارة
Private Sub UpdateLanguageForControls()
    On Error Resume Next
    Dim ctrl As AccessObject
    For Each ctrl In Me.Controls
        ' يمكنك هنا إضافة العناصر الأخرى التي تريد تحديثها بناءً على اللغة
        ' مثلا: If TypeOf ctrl Is ComboBox Then
    Next ctrl
End Sub

' حفظ اختيار اللغة في جدول SettingsTable
Private Sub SaveLanguageChoice()
    CurrentDb.Execute "UPDATE SettingsTable SET Language='" & Me.cboLanguage & "'"
End Sub

' تغيير اللغة وتحديث العناصر ذات الصلة
Private Sub ChangeLanguage(selectedLanguage As String)
    CurrentDb.Execute "UPDATE SettingsTable SET Language='" & selectedLanguage & "'"
    UpdateLanguageForControls
End Sub

وفي حدث عند الفتح للنموذج سنقوم بإدراج هذا الكود :-

' حدث يتم تنفيذه عند فتح النموذج
Private Sub Form_Open(Cancel As Integer)
    UpdateLanguage
End Sub

وفي حدث عند التحديث للكومبوبوكس سندرج الكود التالي :-

' حدث يتم تنفيذه بعد تحديث اختيار اللغة من ComboBox
Private Sub cboLanguage_AfterUpdate()
    Dim response As VbMsgBoxResult
    Dim Language As String

    ' احصل على اللغة المحددة من ComboBox
    Language = Me.cboLanguage.Value

    ' قم بتحديد الرسالة بناءً على اللغة المختارة
    If Language = "العربية" Then
        response = MsgBox("هل ترغب في تغيير اللغة إلى العربية؟", vbQuestion + vbYesNo, "التأكيد")
    ElseIf Language = "English" Then
        response = MsgBox("Do you want to change the language to English?", vbQuestion + vbYesNo, "Confirmation")
    End If

    ' قم باتخاذ الإجراء المناسب بناءً على رد المستخدم
    If response = vbYes Then
        SaveLanguageChoice
        Application.Quit
    Else
        SaveLanguageChoice
        DoCmd.Close
    End If
End Sub

الآن نأتي لأهم نقطة في هذا الموضوع ، ألا وهي . أين ستكون الترجمة ؟

طبعاً قمنا سابقاً بإنشاء المجلد Language بجانب قاعدة البيانات ، الآن سنذهب إليه وسنقوم بإنشاء ملفين نصيين Text الأول Arabic.txt ، والثاني English.txt .

في الأعلى افترضنا انه لدينا في النموذج زر اسمه Command1 والـ Caption له كانت حفظ ، الآن سنقوم بكتابة المسمى بالعربي وهو حفظ في ملف النص Arabic ، وفي الملف الثاني English سنكتب Save وهو أول أمر قمنا به كتجربة ( لاحظ أن Command يتبعها الرقم 1 ) وعليه فأن أي مسمى Command1 في أي نموذج سيكون اسمه حفظ أو Save عند اختيار الإنجليزية .

وفي النهاية سأترك مرفق يحتوي تطبيق لما تحدثنا به سابقاً .

والمتابعة لأي استفسار أو توضيح :rol:

Change Language.zip

تم تعديل يناير 14 بواسطه Foksh

**ابوخليل** · يناير 13

ما شاء الله تبارك الله

سلمت الأنامل .. عمل جميل ورائع .. وطريقة علمية سلسة

**Foksh** · يناير 13

4 دقائق مضت, ابوخليل said:

ما شاء الله تبارك الله

سلمت الأنامل .. عمل جميل ورائع .. وطريقة علمية سلسة

مشكور استاذنا ومعلمنا @ابوخليل ، هذا تعليمكم :wub:

**ابوخليل** · يناير 13

الجميل في هذا .. التوافق مع معالج اكسس لمستخدم النسخة الانجليزية .. لأن اكسس يعطي الازرار هذه التسمية Command1 و 2 ، 3 وهكذا

انا لم ادقق كثيرا .. هل تسميات الحقول والاشياء الأخرى تتبع تسميات المعالج ايضا ؟

**Foksh** · يناير 13

2 دقائق مضت, ابوخليل said:

الجميل في هذا .. التوافق مع معالج اكسس لمستخدم النسخة الانجليزية .. لأن اكسس يعطي الازرار هذه التسمية Command1 و 2 ، 3 وهكذا

انا لم ادقق كثيرا .. هل تسميات الحقول والاشياء الأخرى تتبع تسميات المعالج ايضا ؟

نعم تتبع 100 %

في الاكواد يوجد ملاحظات لم اتطرق لها ، تركتها محور نقاش لأساتذتي

تم تعديل يناير 13 بواسطه Foksh

**ابوخليل** · يناير 13

بكذا انت منحت من يقوم بالتصميم راحة تامة من معاناة اختيار التسميات ... مرة ومرتين ويعتاد على هذه التسميات

:signthankspin:

**Moosak** · يناير 13

عمل راااائع ما شاء الله تبارك الرحمن أخي @Foksh :clapping:

عندي سؤال : لماذا لم تحفظ الترجمة في جدول بالبرنامج بدل حفظها في ملفات خارجية ؟ 🙂

ثانيا : أضفت لمسة للبرنامج وهي أنه يقوم بإعادة تشغيل البرنامج تلقائيا بعد اختيار اللغة المطلوبة 🙂

وذلك باستخدام هذا الكود :

Sub RestartAccess()
    Dim vbsFilePath As String
    vbsFilePath = CurrentProject.Path & "\Restart.vbs" ' Change the file path as needed
    
    Dim vbsContent As String
    vbsContent = "WScript.Sleep(2000)" & vbCrLf & _
                 "CreateObject(""Shell.Application"").Namespace(0).ParseName(""" & CurrentProject.FullName & """).InvokeVerb ""Open"""
    
    ' Create the VBS file and write the content
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim vbsFile As Object
    Set vbsFile = fso.CreateTextFile(vbsFilePath, True, False)
    vbsFile.Write vbsContent
    vbsFile.Close
    
    ' Shell execute the VBS file to restart Access
    Shell "wscript.exe """ & vbsFilePath & """", vbNormalFocus
    
    ' Exit Access
    Application.Quit
End Sub

Change Language.zip

safaa salem5 · يناير 13

1 hour ago, Moosak said:
عمل راااائع ما شاء الله تبارك الرحمن أخي @Foksh

عندي سؤال : لماذا لم تحفظ الترجمة في جدول بالبرنامج بدل حفظها في ملفات خارجية ؟ 🙂

ثانيا : أضفت لمسة للبرنامج وهي أنه يقوم بإعادة تشغيل البرنامج تلقائيا بعد اختيار اللغة المطلوبة 🙂

وذلك باستخدام هذا الكود :
Sub RestartAccess()
    Dim vbsFilePath As String
    vbsFilePath = CurrentProject.Path & "\Restart.vbs" ' Change the file path as needed
    
    Dim vbsContent As String
    vbsContent = "WScript.Sleep(2000)" & vbCrLf & _
                 "CreateObject(""Shell.Application"").Namespace(0).ParseName(""" & CurrentProject.FullName & """).InvokeVerb ""Open"""
    
    ' Create the VBS file and write the content
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim vbsFile As Object
    Set vbsFile = fso.CreateTextFile(vbsFilePath, True, False)
    vbsFile.Write vbsContent
    vbsFile.Close
    
    ' Shell execute the VBS file to restart Access
    Shell "wscript.exe """ & vbsFilePath & """", vbNormalFocus
    
    ' Exit Access
    Application.Quit
End Sub
Change Language.zip 93.45 kB · 0 downloads

هل ممكن تغيير اتجاه مربعات النص جهة اليمين فى حين اختيار اللغه الانجليزيه

والعكس فى حين اختيار اللغه العربيه

**Foksh** · يناير 13

أستاذنا الغالي @Moosak ، نورتني بكلامك الجميل ،

2 ساعات مضت, Moosak said:

عندي سؤال : لماذا لم تحفظ الترجمة في جدول بالبرنامج بدل حفظها في ملفات خارجية ؟ 🙂

بصراحة حبيت يكون الموضوع مختلف عما قد يخطر في البال ، ومن جهة التعديل سيكون الأمر أسهل من خارج قاعدة البيانات .

2 ساعات مضت, Moosak said:

ثانيا : أضفت لمسة للبرنامج وهي أنه يقوم بإعادة تشغيل البرنامج تلقائيا بعد اختيار اللغة المطلوبة 🙂

وبالنسبة للمستك السحرية ، فبارك الله فيك ، وهكذا زاد الجميل جمالاً بالنسبة لي :wub:

مع تصحيح اسم الدالة RestartAccess

منذ ساعه, safaa salem5 said:

هل ممكن تغيير اتجاه مربعات النص جهة اليمين فى حين اختيار اللغه الانجليزيه

والعكس فى حين اختيار اللغه العربيه

أخت صفاء ، للأسف لم أقم بتطوير الفكرة لهذا الحد :biggrin: ؛ ومن وجهة نظري أعتقد أن لها تبعات أخرى ومشاكل بالنسبة لموضوع الإرتساء للكائنات .

تم تعديل يناير 13 بواسطه Foksh

gavan · يناير 13

💯💖مشكور على المجهود , مبدع

**Foksh** · يناير 13

منذ ساعه, gavan said:

💯💖مشكور على المجهود , مبدع

يسعدني ويشرفني مرورك العطر 🥰

gamal gamal · يناير 14

سلمت يمينك يا غالى

على الأفكار المفيدة

والأعمال المبدعة

**Foksh** · يناير 14

32 دقائق مضت, gamal gamal said:

سلمت يمينك يا غالى

على الأفكار المفيدة

والأعمال المبدعة

أشكرك مرورك وتعليقك اللطيف أخونا @gamal gamal :fff:

**عمر ضاحى** · يناير 15

ما شاء الله :fff: :fff: :fff: :fff: :fff: :fff:
مجهود كبير :fff: :fff: :fff: :fff: :fff: :fff:

🤲 ربنا يجعله فى ميزان حسناتك 🤲

تسلم ايدك :fff: :fff: :fff: :fff: :fff: :fff:

**Foksh** · يناير 15

5 ساعات مضت, عمر ضاحى said:

ما شاء الله
مجهود كبير

🤲 ربنا يجعله فى ميزان حسناتك 🤲

تسلم ايدك

صديقي العزيز أستاذ عمر ، 🥰

أجمعين يا رب العالمين 🤲

يسعدني ويشرفني مرورك 🤗

abofayez1 · يناير 15

رائع كعادتك ... شكرا لك

**Foksh** · يناير 15

2 دقائق مضت, abofayez1 said:

رائع كعادتك ... شكرا لك

مرورك الاروع صديقي العزيز 🥰

**jo_2010** · يناير 16

الخبير الفا

في 13‏/1‏/2024 at 16:51, Foksh said:
السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء )

اليوم جئتكم بفكرة جديدة وأعتقد أنه لم يسبقني أحد بهذا الطريق ؛ وهو إضافة اختيار واجهة اللغة إلى تطبيقات وبرامج ومشاريع الآكسيس بطريقة جديدة وتقدروا تقولوا 2024

في البداية سأقوم بشرح المطلوب داخل القاعدة التي سيتم التطبيق عليها ،

أولاً :- جدول واحد فقط يحتوي على حقل واحد فقط أيضاً وسنسميه بـ SettingsTable ، والحقل الذي بداخله هو Language من نوع نصي ( Text ) .

ثانياً :- نموذج Settings وهو طبعاً ليس له مصدر سجلات .

وبداخله كومبوبوكس Combo box سيكون اسمه cboLanguage نوع مصدر بياناته Value List ؛ ومصدر بياناته القيم التالية ( "العربية";"English" ) .

ثالثاً :- بجانب قاعدة البيانات سنقوم بإنشاء مجلد جديد وسيتم تسميته بـ Language .

الآن خطوات العمل :-

الموديول Module :- قم بإنشاء Module جديد وسمه بـ Set_Language ؛ وهو مفتاح العمل والذي من خلاله سنعتمد على جلب الترجمة من الملفات التي سنقوم بإنشائها لاحقاً . وهذا الكود مع الشرح الكامل له بين السطور .
Option Compare Database
Option Explicit

' المتغير العام لتخزين اللغة الحالية
Public CurrentLanguage As String

' تحديث اللغة الحالية
Public Sub UpdateLanguage()
    On Error Resume Next

    ' احصل على اللغة المحددة من جدول الإعدادات
    CurrentLanguage = DLookup("Language", "SettingsTable")

    ' قم بتحديث العلامات في جميع النماذج
    UpdateLabelsInAllForms
End Sub

' تحديث العلامات في جميع النماذج
Private Sub UpdateLabelsInAllForms()
    Dim frm As AccessObject
    
    ' تحديث العلامات في جميع النماذج المحملة
    For Each frm In CurrentProject.AllForms
        If frm.IsLoaded Then
            UpdateLabelsInForm Forms(frm.Name)
        End If
    Next frm
End Sub

' تحديث العلامات في نموذج محدد
Private Sub UpdateLabelsInForm(frm As Object)
    Dim arFile As String, enFile As String
    Dim arLabels() As String, enLabels() As String
    Dim i As Integer

    ' احصل على ملف اللغة العربية واللغة الإنجليزية
    arFile = GetLanguageFilePath("Arabic.txt")
    enFile = GetLanguageFilePath("English.txt")
    
    ' اقرأ الملفات واملأ المصفوفات بالنصوص المترجمة
    arLabels = Split(ReadFile(arFile), vbCrLf, -1)
    enLabels = Split(ReadFile(enFile), vbCrLf, -1)
    
    ' قم بتحديث العلامات في النموذج
    For i = 0 To UBound(arLabels)
        UpdateLabel frm, "Label" & CStr(i + 1), arLabels(i), enLabels(i)
        UpdateLabel frm, "Command" & CStr(i + 1), arLabels(i), enLabels(i)
    Next i
End Sub

' احصل على مسار قاعدة البيانات الحالية
Private Function GetDatabasePath() As String
    Dim dbPath As String
    dbPath = CurrentDb.Name
    GetDatabasePath = Left(dbPath, InStrRev(dbPath, "\"))
End Function

' احصل على مسار ملف اللغة
Private Function GetLanguageFilePath(fileName As String) As String
    GetLanguageFilePath = GetDatabasePath() & "Language\" & fileName
End Function

' اقرأ ملف النص وارجع النص كنص نصي
Private Function ReadFile(filePath As String) As String
    Dim fileNumber As Integer
    fileNumber = FreeFile
    Open filePath For Input As fileNumber
    ReadFile = Input$(LOF(fileNumber), fileNumber)
    Close fileNumber
End Function

' تحديث علامة محددة في النموذج بناءً على اللغة الحالية
Private Sub UpdateLabel(frm As Object, labelName As String, arabicText As String, englishText As String)
    On Error Resume Next
    
    ' قم بتحديث العلامة بناءً على اللغة الحالية
    frm.Controls(labelName).Caption = IIf(CurrentLanguage = "العربية", arabicText, englishText)
    
    On Error GoTo 0
End Sub
* ملاحظة :- سنعتمد هنا على طريق بسيط جداً وهو المسميات في النماذج ، فمثلاً لو انشأنا زر في نموذج ما وكانت تسميته Caption هي حفظ وكان اسم الزر Command1 ؛ فعند الترجمة سيصبح كل زر في البرنامج باسم Command1 هو بمثابة زر الحفظ وستكون ترجمته Save ؛ لذا سنعتمد طريقة توحيد المسميات في النماذج وهذا سيجعل الأمر سهلاً جداً للصيانة ، وطبعاً لا يمكن أن يكون لعنصرين ( كائنين ) في النموذج لهما نفس الإسم .

رابعاً :- العودة إلى نموذج Settings الذي تم التحدث عنه في النقطة ( ثانياً ) ؛ سنقوم بدايةً باستكمال إنشاء الأكواد الخاصة بتغيير اللغة ، قبل الأحداث للـ Combo Box والنموذج .

سنقوم بإدراج هذه الأكواد الثلاثة البسيطة :-
' تحديث العناصر في النموذج بناءً على اللغة المختارة
Private Sub UpdateLanguageForControls()
    On Error Resume Next
    Dim ctrl As AccessObject
    For Each ctrl In Me.Controls
        ' يمكنك هنا إضافة العناصر الأخرى التي تريد تحديثها بناءً على اللغة
        ' مثلا: If TypeOf ctrl Is ComboBox Then
    Next ctrl
End Sub

' حفظ اختيار اللغة في جدول SettingsTable
Private Sub SaveLanguageChoice()
    CurrentDb.Execute "UPDATE SettingsTable SET Language='" & Me.cboLanguage & "'"
End Sub

' تغيير اللغة وتحديث العناصر ذات الصلة
Private Sub ChangeLanguage(selectedLanguage As String)
    CurrentDb.Execute "UPDATE SettingsTable SET Language='" & selectedLanguage & "'"
    UpdateLanguageForControls
End Sub
وفي حدث عند الفتح للنموذج سنقوم بإدراج هذا الكود :-
' حدث يتم تنفيذه عند فتح النموذج
Private Sub Form_Open(Cancel As Integer)
    UpdateLanguage
End Sub
وفي حدث عند التحديث للكومبوبوكس سندرج الكود التالي :-
' حدث يتم تنفيذه بعد تحديث اختيار اللغة من ComboBox
Private Sub cboLanguage_AfterUpdate()
    Dim response As VbMsgBoxResult
    Dim Language As String

    ' احصل على اللغة المحددة من ComboBox
    Language = Me.cboLanguage.Value

    ' قم بتحديد الرسالة بناءً على اللغة المختارة
    If Language = "العربية" Then
        response = MsgBox("هل ترغب في تغيير اللغة إلى العربية؟", vbQuestion + vbYesNo, "التأكيد")
    ElseIf Language = "English" Then
        response = MsgBox("Do you want to change the language to English?", vbQuestion + vbYesNo, "Confirmation")
    End If

    ' قم باتخاذ الإجراء المناسب بناءً على رد المستخدم
    If response = vbYes Then
        SaveLanguageChoice
        Application.Quit
    Else
        SaveLanguageChoice
        DoCmd.Close
    End If
End Sub
الآن نأتي لأهم نقطة في هذا الموضوع ، ألا وهي . أين ستكون الترجمة ؟

طبعاً قمنا سابقاً بإنشاء المجلد Language بجانب قاعدة البيانات ، الآن سنذهب إليه وسنقوم بإنشاء ملفين نصيين Text الأول Arabic.txt ، والثاني English.txt .

في الأعلى افترضنا انه لدينا في النموذج زر اسمه Command1 والـ Caption له كانت حفظ ، الآن سنقوم بكتابة المسمى بالعربي وهو حفظ في ملف النص Arabic ، وفي الملف الثاني English سنكتب Save وهو أول أمر قمنا به كتجربة ( لاحظ أن Command يتبعها الرقم 1 ) وعليه فأن أي مسمى Command1 في أي نموذج سيكون اسمه حفظ أو Save عند اختيار الإنجليزية .

وفي النهاية سأترك مرفق يحتوي تطبيق لما تحدثنا به سابقاً .

والمتابعة لأي استفسار أو توضيح

Change Language.zip 63.88 kB · 35 downloads

الخبير الفاضل والمعلم المبدع Foksh

شكرا على ابدعاتك المتجددة

**Foksh** · يناير 16

1 ساعه مضت, jo_2010 said:

الخبير الفا

الخبير الفاضل والمعلم المبدع Foksh

شكرا على ابدعاتك المتجددة

يسعدني مرورك الكريم أخونا @jo_2010

**Foksh** · يناير 19

في إحدى التجارب لي على ما تم طرحه في الموضوع ، قمت بتجربة لتجربة سابقة لي في التعامل مع ملفات الـ Dll الوهمية ( الملفات المُعاد تسمية لاحقتها 😅 ) .

فمثلاً بعد تطبيق المسميات للعناصر باللغتين ( العربية ، الإنجليزية ) داخل ملفات Arabic.txt و English.txt قمت بتغيير لاحقة الملفين من txt إلى dll وحتى من داخل الأكواد في المديول في هذين السطرين :-

في 13‏/1‏/2024 at 17:51, Foksh said:
GetLanguageFilePath("Arabic.txt")
    enFile = GetLanguageFilePath("English.txt")

ليصبحا بهذا التغيير :-

GetLanguageFilePath("Arabic.dll")
    enFile = GetLanguageFilePath("English.dll")

وقد كانت التجربة ناجحة 😀 بأن تم قراءة ترجمة المكونات المستهدفة لهذه الوظيفة .

قد تكون الفكرة لغير المهتمين غير مجدية ؛ إلا أنها فكرة لحماية الملفات مؤقتا من أيدي العابثين 😅.

إلا أنني وددت مشاركتكم أصوات ( بنات أفكاري ) .

ودمتم بخير 🤗

تم تعديل يناير 19 بواسطه Foksh

**Foksh** · يناير 24

السلام عليكم ورحمة الله وبركاته

في ملاحظة جانبية سأتطرق إليها للتوضيح في نقطة قد يتساءل البعض عنها في هذا الجزء

For i = 0 To UBound(arLabels)
        UpdateLabel frm, "Label" & CStr(i + 1), arLabels(i), enLabels(i)
        UpdateLabel frm, "Command" & CStr(i + 1), arLabels(i), enLabels(i)
    Next i
End Sub

تمت إضافة هذا الجزء من الكود ليشمل الـ Lable كما في الجزء الأول ، والـ Command في الجزء الثاني. حيث أن المسميات ستكون متبوعة برقم وهو الذي سيحدد رقم السطر في ملفات اللغة ( Arabic , English ) ، فهنا نستطيع التوحيد في مسميات البرنامج ( كتوحيد المقامات في الرياضيات 😅 ) طبعاً هنا سنحتاج جزء واحد من السطر ، ولنفترض أن الكود سيصبح بهذا الشكل:-

For i = 0 To UBound(arLabels)
        UpdateLabel frm, "Officna" & CStr(i + 1), arLabels(i), enLabels(i)
    Next i
End Sub

هنا قمت بتوحيد جميع العناصر والكائنات في المشروع ( مربعات نص ، ليبلات ، ازرار ..... إلخ ) تحت اسم Officna

وهنا يسهل علينا - وكما ذكر معلمنا الفاضل @ابوخليل - حفظ المسميات وسهولة الوصول إليها وتحديدها ..

ودمتم بخير 🤗

تم تعديل يناير 25 بواسطه Foksh

**Moosak** · يناير 25

أستاذ @Foksh أين وضعت الملف المحدث ؟ 🙂

**Foksh** · يناير 25

1 ساعه مضت, Moosak said:

أين وضعت الملف المحدث

تم تعديل العبارة بشكل تعبيري أفضل أستاذي الكبير @Moosak

شكراً لك تنبيهي لإعادة صياغة العبارة السابقة

**Moosak** · يناير 25

4 ساعات مضت, Foksh said:

تم تعديل العبارة بشكل تعبيري

حبيبنا @Foksh أقترح عليك أن تضع آخر نسخة بالتحديثات وسنقوم بتحديثها في المشاركة الأولى .. وذلك لتسهيل العمل على المستفيدين والمتعلمين أمثالنا

**Foksh** · يناير 25

19 دقائق مضت, Moosak said:

حبيبنا @Foksh أقترح عليك أن تضع آخر نسخة بالتحديثات وسنقوم بتحديثها في المشاركة الأولى .. وذلك لتسهيل العمل على المستفيدين والمتعلمين أمثالنا

أستاذنا الكبير @Moosak

هو لم يكن تحديث بالمعنى الحرفي . أنا فقط اختلطت علي الأمور في التعبير أثناء كتابة الرد . وقمت بشرح نقطة كانت موجودة أساساً ولكني تطرقت إليها :rol:

وفي حال وجود تحديثات جديدة ، لن أتأخر في طرحها وتحديث الروابط :fff:

تسجيل الدخول

⭐ كيف تغير اللغة في برامجك ⭐

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information