تحويل الحروف الأنجليزية للعربية

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

بارك الله فيك

جزاك الله كل خير

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

بارك الله فيك أخي محمد

بورك فيك اخي الكريم جاري التجربة

حلو حلو حلو

بس قبل اجراء تحويل جديد ياريت تمسح التحويل القديم

والى الأمام دوما ان شاء الله

رائع ،

و لكن ممكن تحدد متى نحتاج إلى مثل هذا العمل بستثناء عدم إنتباه المستخدم لكتابة نص عربي و لكن بحروف إنكليزية.

ثانيا ماذا عن توزيع المحارف بين azert و qwrt ستجد نفس المشكل

الله يعينك على حل هذا المشكل و لكن لأغراض أخرى

مشكور اخي بس لا اري فيها اي فائدة لنا ولو في يا ريت تخبرنا وشكرا لك مرة اخري وارجو ان تتقبل راي بصدر رحب

والله الموفق

شكرا وبارك الله فيك

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

تحياتي

يعطيك العافيه أخوي محمدvb فكره حلوه..

اما بالنسبة لتفادي list فبأمكانك تنفيذ الكود مباشرة على النص الموجود في الحقل بقراءته حرف حرف من البداية الى النهاية وتنفيذ الشروط عليه..والفكرة كالتالي

Dim x As Integer
Dim y As String
Dim w As String
x = 1
For i = 1 To Len(Text1.Text)
y = Left(Text1.Text, x)
w = Right(y, 1)
If w = ":" Then
MsgBox "exit"
Exit For
Else
MsgBox y
x = x + 1
End If
Next

وعاد انت عدل على الكود حسب ما يناسبك..

وبالتوفيق..

حقيقي برنامج رائع جدا

يا اخوني لو سمحت اريد حدا فيكم يعرفني ايه هيا الفائدة منه عشان اقدر استخدمه وشكرا لكم

شكراً لكم جميعاً على تصفحكم ومروركم الكريم

أخي ماكس باين بخصوص الفائدة قد يحتاجها اي شخص ولكن هي فكره خطرت في بالي ونفذتها فقط لا أكثر ومو معقول أي برنامج لابد يكون ذو فائدة لكل شخص أو أي شخص لا يبحث ألا عن برنامج يهتم به وغيره لا يريده أن يرى النور مجرد فكره وعملتها ودام انها خطرت في بالي أكيد يوماً ما سوف تخطر في بال أحد أما أن تنفعه بنفس هذه الطريقة أو أن يختصر كودها كما حصل من الأخ الجميل جزاه الله كل خير ،، تحياتي