اذهب الي المحتوي
أوفيسنا

الكتابة إنجليزى , عربى


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

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

لدى إستفسار لست أدرى إن كان بسيطا أم غير ذلك

كيف اجعل مربع النص (عند طباعة تقرير) أن يُظهر إتجاه النص من اليمن إذا كانت الكتابة بالعربى وأن يُظهر إتجاه النص من اليسار إذا كانت الكتابة إنجليزية؟.

ولدى استفسار آخر بعد إذنكم حيث ان لا استطيع التواجد يوميا فى هذا المنتدى الموقر (نظراً لعدة أسباب منها ارتفاع قيمة فاتورة الهاتف).

أين أستاذنا الكبير أ.م محمد طاهر ؟؟ .. ارجو ممن يراه ان يهديه سلامى.

شكرا لكم جميعا.

  • Thanks 1
رابط هذا التعليق
شارك

بعد إذن الأستاذ محمد طاهر :rol:

أولاً لاختبار اللغة الحالية إليك هذا الكود:

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Sub Command1_Click()
If GetKeyboardLayout(KLF_ACTIVATE) = 67699721 Then
    MsgBox "English"
 Else
    MsgBox "Arabic"
End If
End Sub

وهو يفترض أن المستخدم عنده لغتين (عربي - إنجليزي) ..

وسأحاول العودة بخصوص التغيير ما بينهما ..

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

السلام عليكم

قد ينفع هذا الكود :

  If Me.myText > "z" Then
    Me.myText.TextAlign = 3
  Else
    Me.myText.TextAlign = 1
  End If

بحثت كثيرا عن مثال لي لطباعة العناوين ولم أجده حيث كان يحتوي على جواب لسؤالك .

تحياتي .

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

السلام عليكم

نعم عزيزي egyptian_eg أعتقد كما تعتقد .. وللأسف لا سبيل للوصول إلى أمثلتنا حيث البحث معطل :) . كذلك أنا من طبعي لا أحتفظ بالأمثلة .

شكرا للتوضيح ولك خالص تحياتي .

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

كل أمثلتك أخي أبو هادي فى الحفظ و الصون :d

و يسعدني دائما مداخلتك ، فبالتأكيد ستكون مفيدة

أهلا بك أخي عصام ، أنا موجود و لكن مهام ادارة المنتدي الغير ظاهرة تأخذ جانبا من الوقت :pp:

مرفق المثال

Titles_AHD.zip

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

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

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

وانا شاكر لكم جميعاً سرعة ردكم بارك الله فيكم

تم تعديل بواسطه عصام ربيع
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information