اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

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

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

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

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

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

  • 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