كيف يتم تغيير واجهة البرنامج لاكثر من لغة مع الشكر للجميع

موضوع مهم يا جماعة ومطلوب مشاركة المحترفين فيه

يوجد طريقتين على حد علمي

الاولي ان تقوم بعمل نسختين من كل نموذج احداهما عربي والاخرى انجليزي وتعرف متغير Public للغة وتضع للمستخدم اختيار اللغة عند الدخول وتضع الاختيار في المتغير الذي عرفته وتبدأ في اظهار النماذج التي تتفق مع اختيار المستخدم

الثانية هي ان تقوم بعمل ذلك في نفس النموذج ولكن هنا سوف تحتاج الي عمل عنصرين من كل نوع فمثلا اذا مان لديك Label به اسم الموظف فعليك عمل آخر وتكتب عبيه Employee Name وتستخدم خاصية Visible لاظهار احداهما حسب اللغ المختارة

;)

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

هناك اخي الكريم عدة طرق منها

استعمال ملفات ini (براي افضل طريقة)

استعمال خاصية Tag (اسهل طريقه)

ملفات المصادر (لم استعملها مسبقا)

بنسبة لطريقة الـ Tag مثال بسيط جدا اضف Label1 , check1,option1,command1

و اضف الكود التالي

' super_Pro +962795190801 www.arabteam2000.com
Dim b As Boolean

Private Sub Command1_Click()
Dim C As Control
Dim l As String * 10


For Each C In Me
l = C.Caption
C.Caption = C.Tag
C.Tag = l
 C.RightToLeft = b

Next
Me.RightToLeft = b

b = Not b
End Sub

Private Sub Form_Load()
b = True
Me.Caption = "TEST"
Label1.Caption = "Select "
Option1.Caption = "Welcome"
Check1.Caption = "HI"
Command1.Caption = "OK"
Me.Tag = "اختبار"
Label1.Tag = "اختيار"
Option1.Tag = "اهلا وسهلا"
Check1.Tag = "مرحبا"
Command1.Tag = "تم"

End Sub

و بنسبة لطريقة الاولى يوجد مثال في الموضوع التالي

دليلك الاسرع للاخ العزيز هاني)HnHn)

MLS_VBaddin.zip

اخى انا لم اجرب الاداه التى تتحدثون عنها!!!!!!!

يمكن عمل قاعدة بيانات بها كل اللابلس و التكس بوكسس باللغات المطلوبة و حين يغيير المستخدم اللغة يتم مناداة المقابل من قاعدة البيانات

في موديول :

type usertype
'اكتب الكلمة str ثم اسم إحدى الأدوات المراد تغيير لغتها ثم جملة as stringe
strtoolname as stringe
strtoolname as stringe
strtoolname as stringe
strtoolname as stringe
strtoolname as stringe
strtoolname as stringe
strtoolname as stringe
........
........
........
'أغلق النوع
End type
'لقد أنشأت للتو متغيراً جديداً , ولاستدعاءه أكتب الكود التالي في نفس الموديول 
public CHTools as usertype

تغيير لغة الأداوت :

private cmdChange_click()
CHTools.strtoolname = cmd1.caption
if list1.text = "Arabic then"
CHTools.strtoolname = "تشغيل"
End if
.................
.................
.................

وهكذا

ويفضل استخدام تركيب select case

استخم اصية اليمين شمال

والكبشن