ازاي اخلي الكتابة تبقي من جه اليمين في التكست بوكس ويبقي المؤشر عربي علطول

السلام عليكم

جرب يا أخى هذا الكود

فى Form.Load

Private Sub Form_Load()
SendKeys ("^+")
End Sub

ولكن قد يكون أحد الأعضاء

يمتلك كود أفضل من ذلك

لقد توصلت لما تريد بالضبط

وهو بالمرفقات

وقللى رأيك ;)

Arabic_Only.rar

ولو اردت لي لغة اخرى ما العمل ؟ :)

الف شكر يا زين 50 بس لو فيها رزالة يعني ممكن تفهمني الكود بالظبط بس انت عملت الكلام اللي انا عاوزه علي تكست بوكس واحدة طب لو الفورم فيها اكتر من تكست هيبقي الكود هو نفسه ولا ايه يا باشا ؟ منتظر ردك برده

VisualBasic Lover كتب:

ولو اردت لي لغة اخرى ما العمل ؟ :)

الإنكليزية لا يوجد بها مشكلة

فكل ما عليك فعله جعل نوع

الخط "verdana" فقط

وإليك هذا المثال

عزيزى "sameh_ibm"

ضع أى Textbox على الفورم

وفى خصائص الـ Textbox

إجعل Alignment = 1

فى كل الـ Textbox

فقط ,, وبالتوفيق

english_only.rar

مشكور اوي اوي يا اخ زين 50 والله مش عارف اشكرك ازاي انت حلتلي كدة مشكلة كبيرة جدا وبقي البرنامج كدة عندي متناسق جدا جدا وبشكرك مرة تانية علي الكود ومتشكر علي اهتمامك بالسؤال والرد عليه الف الف شكر

thank you

شكراً لك الاخ زين .... المثال زين وكثر الله من امثالك

zain50:

لا داعي لإستعمال Timer !!!

إستعمل هذا:

Private Sub Text1_GotFocus()
A = LoadKeyboardLayout("00000401", KLF_ACTIVATE)
End Sub

الشكر لله يا أخى "sameh_ibm" :)

مشكور لتعقيبك الجميل يا أخ "shahrani2" :)

والمهم تكونوا استفدتم ;)

عزيزى "cipher" الكود الذى وضعته

أنت شغال كويس ولكن جرب إضغط على Alt

Shift للتحويل للإنكليزى ستجدها تحولت

وكتبت إنكليزى ,, لذلك أنا وضعتها فى Timer

حتى تكتب عربى فقط حتى لو ضغط على ألت شيفت

للتحويل للإنكليزى ,,,,

ولكن...... مشكور لإهتمامك بالموضوع ,,,

ومشاركتك الإيجابية :)

السلام عليكم

هذه طريق جميلة للكتابة

بالغة الإنكليزية فقط حتى

لو ضغط على Alt,,Shift

وهى بالمرفقات

Code.zip

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