مشكلة عند تغيير حجم الشاشة

[ازهر عبد العزيز]

السلام عليكم

لدي قاعدة بيانات المطلوب مني تثبيتها على لابتوبات  وحاسبات مختلفة الاحجام بعد محاولة تثبيتها وجدت امكان الازرار والنماذج الفرعية اختلفت مواقعها حاولت البحث عن حل للمشكلة لكني وجدت اغلب الحلول تتحدث في حال كون النموذج منبثق ولكني كنت اعمل بنصائح الاساتذة هنا جاعلا النماذج غير منبثقة فهل من حل للمشكلة

[jjafferr]

وعليكم السلام 🙂

 

  في 18‏/5‏/2021 at 12:24, ازهر عبد العزيز said:

كنت اعمل بنصائح الاساتذة هنا جاعلا النماذج غير منبثقة

Expand  

اهنئك على الشجاعة في اتخاذ هذا القرار ، وتأكد بأنك على الطريق الصحيح 🙂

 

ولجعل جميع الكائنات في اتجاه واحد من الشاشة :

اختار جميع الكائنات ، ثم اختار احد الجهات التسعة التي تريد تثبيت الكائنات بها ، والتجربة خير برهان :

.

جعفر

[أبوبسمله]

مشاركه مع معلمنا العزيز جعفر جزاه الله عنا كل خير 

اطلع أيضا ع شرح اكتر فالرابط التالي لأخي واستاذي د حسنين 

 

بالتوفيق اخي ازهر 

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء 

 في البرنامج المرفق وهو للاستاذ @SEMO.Pa3x  وتم التعديل عليه من قبل الاستاذ @jjafferr

كل شيء تمام عند تشغيل البرنامج   وتم تجربته على شاشة 1920 * 1080   وشاشة 1366* 768  وهو يعمل بصورة ممتازة

هل من الممكن عن طريق الاكواد  عمل مايلي (تم التعديل عليها عن طريق خصائص النموذج ولم تنجح):

1- اريد اخفاء الازرار  (التكبير والتصفير والاغلاق) علما انه بخصائص النموذج عاملهم (no)

2- النموذح يمكن طيه بسحب الماوس من الاعلى (يمكن تغيير حجمه) وقابل للنفل هل يمكن تثبيتة بصورة ثابته بالشاشة وجعله غير قابل للنقل

وشكرا لكم

example_semo.accdbFetching info...

تم تعديل مايو 20, 2021 بواسطه Ahmed_J

[jjafferr]

  في 20‏/5‏/2021 at 10:26, Ahmed_J said:

هل من الممكن

Expand  

 

تمت الاجابة على طلبك في الموضوع الاصل 🙂

 

جعفر

[jo_2010]

خالص الشكر استاذنا ومعلمنا الجليل جعفر 

[ابو جودي]

  في 18‏/5‏/2021 at 13:21, jjafferr said:

اهنئك على الشجاعة في اتخاذ هذا القرار ، وتأكد بأنك على الطريق الصحيح 🙂

 

Expand  

انا مش فاهم ايه موضوع ان تكون النماذج غير منبثقة وما المشكلة من كونها تكون منبثقة ممكن التكرم بالتوضيح جزاكم الله خيرا

[Ahmed_J]

السلام عليكم استاذ @ابا جودى

الفكرة هو جعل النموذج  يعمل على كل الشاشات باختلاف احجامها ودقة شاشاتها  (يمليء الشاشة) وجعل الازرار داخل النموذج تاخذ حجمها ومكانها الطبيعي دون تغيير .

تحياتي لك  

[ابو جودي]

  في 29‏/5‏/2021 at 20:50, Ahmed_J said:

السلام عليكم استاذ @ابا جودى

الفكرة هو جعل النموذج  يعمل على كل الشاشات باختلاف احجامها ودقة شاشاتها  (يمليء الشاشة) وجعل الازرار داخل النموذج تاخذ حجمها ومكانها الطبيعي دون تغيير .

تحياتي لك  

Expand  

بصراحة معلومة جديدة بالنسبة لى 

ولكن المشكلة ان اختفى نموذج وراء اخر 

[jjafferr]

  في 29‏/5‏/2021 at 17:30, ابا جودى said:

وما المشكلة من كونها تكون منبثقة

Expand  

 

سبحان الله ، الله ارادك ان تقع في فخ احد مشاكل النماذج المنبثقة :

مساعدة في فتح عدد اكثر من نموذج داخل النموذج الرئيسي - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

[Ahmed_J]

السلام عليكم جميعا

استاذ @jjafferr استاذ @ابا جودى  استاذ @ازهر عبد العزيز

انا جربت هذه الطريقة (النماذج غير منبثقة) على اربعة شاشات  دقة (1280*1024) و(1024*768) و(1366*768)و (1920*1080) 

وكانت النتيجة ممتازة جدا (كل شيء تمام  والنماذج تعمل مليء كل الشاشات)

* عن تجربتي الخاصة من الصعب الحصول على ذلك  من خلال جعل النماذج منبثقة وتعمل بصورة صحيحة على كل الشاشات باختلاف دقتها

تحياتي للجميع

[jjafferr]

شكرا على المعلومة والتأكيد اخوي احمد 🙂

 

جعفر

[ابو جودي]

  في 31‏/5‏/2021 at 11:32, jjafferr said:

 

سبحان الله ، الله ارادك ان تقع في فخ احد مشاكل النماذج المنبثقة :

مساعدة في فتح عدد اكثر من نموذج داخل النموذج الرئيسي - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

Expand  

السلام عليكم

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 

انا بصراحة مش فاهم حاجة لحد دلوقتى او لان ما تعرضت لاختلاف مقاسات الشاشات ومش قادر اشوف بعينى الفرق لا استطيع الوقوف على لب الموضوع

[صالح حمادي]

اطلع على هذا الموضوع

 

[Ahmed_J]

السلام عليكم استاذ @صالح حمادي استاذ @jjafferr  استاذ @ابا جودى استاذ @ازهر عبد العزيز

الكود يعمل بصورة صحيحة وهو عمل ممتاز جدا ورائع 

* فقط في حاجة تحصل  لما يكون عندك اكثر من نموذج  (عندما تكون في النموذج الواحد حقول كثيرة مثل قاعدة بيانات الموظفين )

-  عند فتح  قاعدة البيانات على النموذج الاول  او عند الانتقال من نموذج الى اخر تظهر (شاشة اشبه بالبيضاء  لمدة  2 ثانية )  قارغة وبدون  عناصر 

ثم تظهر بعد ذلك الحقول (كان النموذج بطيء في فتحه لمدة 2 ثانية)

هل من حل لهذه المشكلة او تسريع عمل فتح النماذج؟

وشكرا لك استاذي العزيز وتحياتي للجميع

Option Compare Database
Function salah(frm As Form)
On Error Resume Next
Dim x, y, X1, Y1 As Integer
Dim moyH, moyW As Double
Dim obj As Control
Dim str As String
x = frm.InsideHeight   'ارتفاع النموذج قبل التكبير
y = frm.InsideWidth ' عرض النموذج قبل التكبير
DoCmd.Maximize
X1 = frm.InsideHeight    'ارتفاع النموذج بعد التكبير
Y1 = frm.InsideWidth   ' عرض النموذج بعد التكبير
moyH = X1 / x 'معامل الإرتفاع
moyW = Y1 / y ' معامل العرض
For Each obj In frm.Controls
With obj
.Left = .Left * moyW
.Top = .Top * moyH
.Width = .Width * moyW
.Height = .Height * moyH
.FontSize = .FontSize * moyW
End With
Next
End Function

 

تم تعديل يونيو 5, 2021 بواسطه Ahmed_J

[Ahmed_J]

UP