هل يمكن توحيد إتجاه التسمية في كل من النموذج المنبثق والغير منبثق

[أحمد العيسى]

السلام عليكم

أحياناً  نلجأ  إلى إضافة خاصية منبثق لنموذج ما  وذلك للحصول على بعض الخواص الهامة

وعند إضافة أي تسمية لهذا النموذج تجد عند تشعيله أنها اتجهت إلى يسار رأس النموذج

رغم أننى قمت بضبط كل الخواص من اليمين إلى اليسار .. حتى فى الإعدادات تم ضبط :

للتوضيح أكثر

فيما يلى تسمية نموذج له خاصية منبثق : إتجهت يساراً

 

وهذه نفس التسمية لنفس النموذج عندما نزعت عنه صفة منبثق : ظلت يميناً

 

هل يمكن التحكم فى تسمية النموذج المنبثق ليظل فى الإتجاه اليميني ؟؟

[أحمد العيسى]

هذا هو السؤال الوحيد الذى لم  يرد عليه أى زميل ، وبالطبع لكم عذركم

هى ناحية جمالية ليس أكثر  ، ولذلك لم يجد  أى اهتمام من الأغلبية

لكن لاحظت أن هذا الموضوع له ارتباط بضبط خصائص الأكسس نفسه

أين بالتحديد ؟ .. لم أتوصل إليه .لأننى  قمت بالتجربة على نسخ مختلفة  :

 

على أكسس 2003 ( الواجهة العربية ) كانت التسمية لها محازاة  إلى اليمين فى النموذجين

 

على أكسس 2007 (الواجهة العربية )

 

على أكسس 2010 ( الواجهة الإنجليزية )

db.mdb

[منتصر الانسي]

ولكن هذه المشكلة لا تظهر لدى الجميع فأنا عندي يظهر العنوان ناحية اليسار في النموذجين

[jjafferr]

57 دقائق مضت, منتصر الانسي said:

ولكن هذه المشكلة لا تظهر لدى الجميع فأنا عندي يظهر العنوان ناحية اليسار في النموذجين

وانا كذلك ما كانت عندي مشكلة.

 

 

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

بينما النماذج ولأنها داخل اطار الاكسس ، فيتم التعامل معها بإعدادات الاكسس ، فتتوسط عرض النموذج.

 

عملت هذه الحيلة:

1. جعلت النموذج بدون برواز

.

2. اضفت كائن مسمى واسميته lbl_Move_Form ، ويمكنك تغيير اتجاهه حسب رغبتك

.

3. استخدمت الكود التالي لتحريك النموذج ، بعد النقر على هذا الكائن

Dim moveFrm As Boolean
Dim xDrag As Long
Dim yDrag As Long
'

Private Sub lbl_Move_Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    moveFrm = True
    xDrag = X
    yDrag = Y

End Sub

Private Sub lbl_Move_Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim xx As Long
Dim yy As Long

If moveFrm = True Then
     xx = Me.WindowLeft + X - xDrag
     yy = Me.WindowTop + Y - yDrag
     Me.Move xx, yy
End If

End Sub

Private Sub lbl_Move_Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim xx As Long
Dim yy As Long

xx = Me.WindowLeft + X - xDrag
yy = Me.WindowTop + Y - yDrag
Me.Move xx, yy
moveFrm = False

End Sub

.

والنتيجة

 

 

1646.Form_Caption_Direction.mdb

[أحمد العيسى]

2 ساعات مضت, منتصر الانسي said:

ولكن هذه المشكلة لا تظهر لدى الجميع فأنا عندي يظهر العنوان ناحية اليسار في النموذجين

تمام أخى منتصر

على أي إصدار تمت تجربتك ؟  ، أنا  أعتبرها ليست مشكلة بل فضول فى معرفة السبب .

كمثال:

على جهازي أبناط أفضل الخطوط العربية التى ابتكرتها شركة العالمية وكانت لا تعمل جيداً على كل من أوفيس 2016 ، 2019

لكن فى أوفيس 2024  زانته روعة وجمالاً  مع رموز الرياضيات ( بمعنى أنها ظهرت عليه بدون أي مشاكل )

إذن 

هل السبب في ذلك هو  إصدار الأوفيس ، أو  في تغيير خصائص النموذج نفسه الذى يعمل عليه ؟ أم الأثنين معاً  !!!!

تم تعديل منذ 50 دقائق بواسطه أحمد العيسى

[أحمد العيسى]

منذ ساعه, jjafferr said:

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

بينما النماذج ولأنها داخل اطار الاكسس ، فيتم التعامل معها بإعدادات الاكسس ، فتتوسط عرض النموذج.

عملت هذه الحيلة:

فى المثال الذي رفعته _أنا_ فى التطبيق الأصلي به خصائص النموذجين " قابل للنقل : لا "

لقد قمت بتغيير هذه الخاصية  (لنعم) بالمثال حتى تقوم  بالتحريك جنباً إلى جنب لترى الفرق بينهما

بالطبع الأفضل لى عدم تغيير هذه الخاصية بالبرنامج الأساسي ولا داعى لإضافة lbl_Move_Form 

شكراً  أخى جعفر على اهتمامك ومجهودك

[منتصر الانسي]

الان, أحمد العيسى said:

أنا  أعتبرها ليست مشكلة بل فضول فى معرفة السبب .

اعتقد ان الاخ @jjafferr سيرد على هذا التساؤل

3 دقائق مضت, أحمد العيسى said:

على جهازي أبناط أفضل الخطوط العربية التى ابتكرتها شركة العالمية وكانت لا تعمل جيداً على كل من أوفيس 2016 ، 2019

لكن فى أوفيس 2024  زانته روعة وجمالاً  مع رموز الرياضيات ( بمعنى أنها ظهرت عليه بدون أي مشاكل )

إذن 

هل السبب في ذلك هو  إصدار الأوفيس ، أو  في تغيير خصائص النموذج نفسه الذى يعمل عليه ؟ أم الأثنيم معاً  !!!!

غالبا مايكون السبب مرتبط بالويندوز ولكن لتعرف السبب بشكل أكيد جرب احد الحلين التاليين

- إما تشغيل اوفيس 2016 أو 2019 في نفس البيئة التي يعمل فيها اوفيس 2024  (نفس إصدار ونفس الإعدادات الإقليمية ولغة الواجهة للويندوز)

- أو تشغيل اوفيس 2024 في نفس البيئة الخاصة بأوفيس 2019 

في الحالتين إذا تغيرت النتيجة سيكون السبب مرتبط بويندوز وإذا ظهرت نفس النتيجة السبب مرتبط بالأوفيس

 واذا اردت فيمكنك أن تعطينا إسم هذه الخطوط لنقوم بتحميلها وتجربتها ومساعدتك في معرفة السبب الاكيد

تحياتي 

 

[jjafferr]

9 دقائق مضت, أحمد العيسى said:

لقد قمت بتغيير هذه الخاصية  (لنعم) بالمثال حتى تقوم  بالتحريك جنباً إلى جنب لترى الفرق بينهما

لا ، انا ما عملت اي تعديل

 

10 دقائق مضت, أحمد العيسى said:

فى المثال الذي رفعته _أنا_ فى التطبيق الأصلي به خصائص النموذجين " قابل للنقل : لا "

..

بالطبع الأفضل لى عدم تغيير هذه الخاصية بالبرنامج الأساسي ولا داعى لإضافة lbl_Move_Form 

اذن احذف الكود الذي يحرك النموذج ، وسيبقى المسمى كما هو والذي يمكنك تحديد اتجاهه.

 

2 دقائق مضت, منتصر الانسي said:

أنا  أعتبرها ليست مشكلة بل فضول فى معرفة السبب

وقد قمت بشرح السبب حسب قرأتي عند البحث عن حل