بوحمدان2000 قام بنشر سبتمبر 1, 2003 قام بنشر سبتمبر 1, 2003 السلام عليكم المعروف ان هناك خاصية موجودة باكسس اسمها عاموديا وتقوم بتحويل محاذاة النص الى الاتجاه العامودي ولكن باتجاه لايلائم النصوص العربية على عكس الاكسل فيه اكثر من اتجاه عامودي ..من فوق الى تحت او العكس السؤال هو هل اقدر احول الاتجاه للعامودي عبر كود معين بما يناسب اتجاه اللغة العربية مادامت الخاصية لا تدعم هذا الخيار ؟؟ ولكم خالص تحياتي... 1
محمد طاهر عرفه قام بنشر سبتمبر 2, 2003 قام بنشر سبتمبر 2, 2003 عند استخدام الخاصية Vertivcal يكون تغيير المحاذاة الراسية باستخدام خاصية المحاذاة الأفقية Text align و تغيير القيمة الي Left و Right يتم تغيير المحاذاة الرأسية
بوحمدان2000 قام بنشر سبتمبر 2, 2003 الكاتب قام بنشر سبتمبر 2, 2003 استاذنا القدير اشكرك على الرد ولكن مافي فايدة وجربت اللي قلت عليه واللي صار ان النص تحرك الى اسفل مربع النص او وسطه.. ممكن لو ترفق لي مثال جزاك الله الف خير....
محمد طاهر عرفه قام بنشر سبتمبر 2, 2003 قام بنشر سبتمبر 2, 2003 اشكرك على الرد ولكن مافي فايدة وجربت اللي قلت عليه واللي صار ان النص تحرك الى اسفل مربع النص او وسطه و هذا هو ما تصورت أنك تريده ، فأرجو التوضيح أكثر
بوحمدان2000 قام بنشر سبتمبر 2, 2003 الكاتب قام بنشر سبتمبر 2, 2003 استاذي القدير عند محاذاة النص في اكسل من خلال الامر تنسيق خلايا>> محاذاة تظهر الساعة ذات ال 180 درجة لتحدد اتجاه النص من خلالها ويكون الاتجاه بالاصل صفر درجة ان ما اريده هو ان يتجه النص 90 درجة موجب وليس 90 درجة سالب . ارجو ان تكون الفكرة اتضحت... ولك خالص تحياتي
أبو هادي قام بنشر سبتمبر 2, 2003 قام بنشر سبتمبر 2, 2003 السلام عليكم أعتقد أن هناك حل ولكنه طويل ومعقد حبتين للأخ micro في موقع الفريق العربي للبرمجة منذ شهرين تقريبا . تحياتي .
بوحمدان2000 قام بنشر سبتمبر 3, 2003 الكاتب قام بنشر سبتمبر 3, 2003 ما تقصر ياعم بوهادي... بس ممكن تلحقني بالرابط؟؟؟
محمد طاهر عرفه قام بنشر سبتمبر 3, 2003 قام بنشر سبتمبر 3, 2003 أعتقد ان هذا هو الرابط المقصود لكن لم أنجح فى فتح الملف بعد تنزيله من هنا
alhajri قام بنشر سبتمبر 3, 2003 قام بنشر سبتمبر 3, 2003 السلام عليكم هذا مثال الاخ micro لمن يريده على هذا الرابط http://www30.brinkster.com/alhajri/micro.rar
alhajri قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 الرابط يعمل وجربته الان وشغال لكن ممكن ارسله لك من عيوني اكتب بريدك وانا حاضر
محمد طاهر عرفه قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 مرفق الملف ، مع الشكر للأخين الهاجري و مايكرو micro.rar
بوحمدان2000 قام بنشر سبتمبر 4, 2003 الكاتب قام بنشر سبتمبر 4, 2003 مع الشكر الجزيل لجميع الاساتذة ومجهودهم الطيب... لكن ما لاحظتم ان المثال عبارة عن image وليس text ....... بمعنى ان استخدام هذه الطريقة فقط في رؤوس التقارير لان القيم ثابتة وليس في تفاصيل التقرير حيث القيم المتغيرة ..... !!!!
محمد طاهر عرفه قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 لم أتفحص الكود جيدا ، و لكن حاولت التعديل فيه علي السريع ، و مبدأيا هو يقوم بنقل النص المكتوب فى المربع الاصفر ( خاصية ال caption ) , و درجة الدوران التي يتم تسجيلها فى خاصية ال tag لل label بناء علي الرقم المختار و يتم النقل الي احدي خواص ملف صورة metafile باستخدام دوال ال api و بذلك يتم العرض علي هيئة صورة و يمكن التحكم فى دورانها ، و فى النص المعروض بها , و يتم نقل خصائص التنسيق أيضا من ال label و هنا طبعا فى حالتك لسنا فى حاجة الي دوران مستمر ، فسنلغي ال loop و نحدد درجة الدوران ، و قد نمرر القيمة مباشرة الي الدالة ، و مرفق مثال به ادارة النص مرة واحدة فقط 90 درجة و طبعا يمكن استبدال ال 90 ب 180 درجة و هو مازال بتاء علي النص المكتوب و يمكن تمرير القيمة الي الدالة مباشرة و قد غيرت أبعاد الصورة من هنا ' Convert Pixels back to TWIPS ctlImage.Width = 2 * (lpRect.Right * (1440 / lngXdpi)) ctlImage.Height = 5 * (lpRect.Bottom * (1440 / lngXdpi)) و درجة الدوران من هنا و يمكن تغييرها بدل 90 الي 180 و أيضا أوقفت ال loop لمنع الدوران Private Sub Label26_Click() ' ************************ ' WARNING!!!!!! ' DO NOT USE THIS METHOD ' FOR ANIMATION. ' There is a Resource Leak ' in the PlayEnhMetafile API. ' Dim lngRet As Long Dim x As Integer Dim y As Integer 'For y = 1 To 10 'For x = 0 To 360 Step 1 Me.Label26.Tag = 90 lngRet = fRotateRunTime(Me.Label26, Me.Image0) DoEvents 'Next x 'Next y ' WARNING!!!!!! ' ************************ End Sub و كاتب الكود ، أشار فىالملحوظات المكتوبة فى الكود بانه يوجد ربط لملف الصورة الي حقل ، و لكن عليك بزيارة موقعه للحصول عليه 'Stephen Lebans Stephen@lebans.com www.lebans.com و توجد فيه أداة لادارة النص و محاذاته NEW Ver 2.0 JustifyText and RotateText ActiveX controls ============= ايضا عند كتابة نص عربي ، لم يظهر جيدا ، ربما بسبب الفونت ، لكن هذه ليس هي المشكلة بصراحة أشعر بوجود حلول أسهل من كل هذا ، فهل لابد أن نفعل كل هذا لكي ندير النص !!! صراحة بهدلة :) أعتقد أننا علينا أن لا نستمر فى بحث هذه الطريقة ، و انما نحاول البحث عن حل بديل حاليا لا يخطر ببالي هذا الحل ، و لكن قد يكون هناك حل سهل متاح ، فنحاول البحث عنه مع تحياتي فى انتظار مشاركاتكم Rotate_it.rar
بوحمدان2000 قام بنشر سبتمبر 4, 2003 الكاتب قام بنشر سبتمبر 4, 2003 بصراحة أشعر بوجود حلول أسهل من كل هذا ، فهل لابد أن نفعل كل هذا لكي ندير النص !!! صراحة بهدلة انا معاك يا استاذنا لكني ملتزم بنمط معين من التقارير مفروضة علي ... لقد جربت برامج تقارير عديدة مثل كريستال ربورت وتقارير الفوكس برو والفيجوال بيسك والدلفي والاوراكل ولم اصل الى نتيجة ... اشكرك على الرابط وسوف ابحث عن تلك الاداة... خالص تحياتي وتقديري
أبو هادي قام بنشر سبتمبر 4, 2003 قام بنشر سبتمبر 4, 2003 (معدل) السلام عليكم الحقيقة هذا رد للأخ micro على سؤال في منتدى الفريق العربي للبرمجة وضعته هنا حيث رأيت أن هناك مشكلة قائمة في روابط المرفقات . ملاحظتي هي أن يقوم من يستطيع بتجربة الطباعة باستخدام زر "طباعة التقرير" ومقارنتها بسابقاتها بدون إعادة فتح التقرير من جديد ، أنا لم أجرب لعدم توفر طابعة لدي الآن ، حيث أظن أن التحديث يتم وإن لم يظهر بالتقرير مباشرة . تحياتي . تم تعديل سبتمبر 6, 2003 بواسطه أبو هادي
بوحمدان2000 قام بنشر سبتمبر 5, 2003 الكاتب قام بنشر سبتمبر 5, 2003 اساتذتي... جزاكم الله خيرا ونفعنا بعلمكم لقد وجد الاداة RotateLabelVer2.ocx بالموقع الذي ارشدتني اليه www.lebans.com وقد عملت معي من ناحية الارقام سواء عربية او هندية وقامت بعملية الجميع بتقارير اكسس .. :yess: كان عيبها كما ذكرت يا استاذ محمد انها لاتتعرف على النصوص العربية... لقد وضع مصمم الاداة الكود مفتوحا ... اذن علينا او علي بالاحرى دراسة الكود للاستفادة منه :pp: تحياتي للعم بوهادي والاستاذ محمد طاهر
أبو هادي قام بنشر سبتمبر 6, 2003 قام بنشر سبتمبر 6, 2003 السلام عليكم الأخ micro تم فحص المثال والتعديل عليه ثم اختباره وهو الآن يعمل بشكل ممتاز . مع ملاحظة أنه يمكن التعديل في الصورة من النموذج أو من التقرير مباشرة . بدل في الزاوية واطبع ثم قارن النتائج . تحياتي . micro.zip
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.