كود تحجيم النموذج لايعمل في ويندوز سفن 7

هل تعديل هذا الكود صعب ؟

أخي الكريم

إذا اردت تغيير دقة الشاشة للمستخدم وإعادتها عند إغلاق القاعدة يمكنك استعمال الملف المرفق

.......

وإذا اردت تحجيم النموذج بما يتناسب مع دقة شاشة المستخدم

فقط ضع في موديول الكود التالي

Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Function resizefrom(frm As Form, bestw As Integer, besth As Integer)
On Error Resume Next
wrate = DisplaySize(0) / bestw
hrate = DisplaySize(1) / besth
frm.InsideWidth = frm.InsideWidth * wrate
frm.InsideHeight = frm.InsideHeight * hrate
Dim fc As Control
For Each fc In frm.Controls
fc.Top = fc.Top * hrate
fc.Left = fc.Left * wrate
fc.Width = fc.Width * wrate
fc.Height = fc.Height * hrate
fc.FontSize = fc.FontSize * wrate
Next
End Function

وفي حدث عن تحميل النموذج قم باستدعاء الدالة كالتالي

resizefrom Me, 800, 600

حيث 800 في 600 هي دقة الشاشة المناسبة لعرض النموذج بدون تحجيم (يمكنك كتابة دقة الشاشة الحالية التي تصمم فيها البرنامج)

وإذا تغيرت عن هذا يتغير حجم النموذج سواء بالتكبير أو بالتصغير

جرب وأخبرني بالنتيجة

mas_resolution.rar

mas123 كتب:

أخي الكريم

إذا اردت تغيير دقة الشاشة للمستخدم وإعادتها عند إغلاق القاعدة يمكنك استعمال الملف المرفق

.......

وإذا اردت تحجيم النموذج بما يتناسب مع دقة شاشة المستخدم

فقط ضع في موديول الكود التالي

Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Function resizefrom(frm As Form, bestw As Integer, besth As Integer)
On Error Resume Next
wrate = DisplaySize(0) / bestw
hrate = DisplaySize(1) / besth
frm.InsideWidth = frm.InsideWidth * wrate
frm.InsideHeight = frm.InsideHeight * hrate
Dim fc As Control
For Each fc In frm.Controls
fc.Top = fc.Top * hrate
fc.Left = fc.Left * wrate
fc.Width = fc.Width * wrate
fc.Height = fc.Height * hrate
fc.FontSize = fc.FontSize * wrate
Next
End Function

وفي حدث عن تحميل النموذج قم باستدعاء الدالة كالتالي

resizefrom Me, 800, 600

حيث 800 في 600 هي دقة الشاشة المناسبة لعرض النموذج بدون تحجيم (يمكنك كتابة دقة الشاشة الحالية التي تصمم فيها البرنامج)

وإذا تغيرت عن هذا يتغير حجم النموذج سواء بالتكبير أو بالتصغير

جرب وأخبرني بالنتيجة

أخي الكريم 'mas123' شكرا لتجاوبك ولكن ليس هذا ماأريد , فقط اريد تعديل الكود بحيث يعمل في بيئة ويندوز سفن تماما كما يعمل في بيئة ويندوز اكس بي بدون مشاكل أي يقوم بتحجيم النموذج بشكل آلي بدون تدخل من المستخدم

ثم يعيد دقة الشاشة إلى ماكانت عليه بشكل آلي بدون تدخل من المستخدم أرجو أن يكون طلبي واضح لديكم وجزاكم الله الفردوس الأعلى

ياليت الأخت زهرة ام عهود تساعدنا في ايجاد الحل ولايهون الجميع

فاضل الحمود كتب:

ياليت الأخت زهرة ام عهود تساعدنا في ايجاد الحل ولايهون الجميع

اخى العزيز :

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

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

فاضل الحمود كتب:

أخي الكريم 'mas123' شكرا لتجاوبك ولكن ليس هذا ماأريد , فقط اريد تعديل الكود بحيث يعمل في بيئة ويندوز سفن تماما كما يعمل في بيئة ويندوز اكس بي بدون مشاكل أي يقوم بتحجيم النموذج بشكل آلي بدون تدخل من المستخدم

ثم يعيد دقة الشاشة إلى ماكانت عليه بشكل آلي بدون تدخل من المستخدم أرجو أن يكون طلبي واضح لديكم وجزاكم الله الفردوس الأعلى

يبدو أنك أخي الكريم لم تشاهد الملف المرفق مني في المشاركة السابقة

فهو يقوم بما تريده تماماً

من حيث قراءة دقة الشاشة الحالية للمستخدم وتخزينها في الجدول وعرضها في النموذج

وتغيير دقة الشاشة لأي دقة تريدها وتكتبها في مربعي النص السفليين مع الضغط على زر تغيير

هذا إذا أردت تغيير دقة شاشة المستخدم لتتناسب مع برنامج

...........

أما إذا أردت إعادة تحجيم النموذج سواء بتكبيره أو تصغيره ليتناسب مع دقة شاشة المستخدم فيمكنك استعمال الكود المذكور في المشاركة المشار إليها سابقاً

..........

وربنا يوفقني ويوفقك في الوصول للمطلوب

yasser saleh كتب:

اخى العزيز :

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

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

اشكرك اخي ياسر ومعك حقك وسوف أعمل بنصيحتك

mas123 كتب:

يبدو أنك أخي الكريم لم تشاهد الملف المرفق مني في المشاركة السابقة

فهو يقوم بما تريده تماماً

من حيث قراءة دقة الشاشة الحالية للمستخدم وتخزينها في الجدول وعرضها في النموذج

وتغيير دقة الشاشة لأي دقة تريدها وتكتبها في مربعي النص السفليين مع الضغط على زر تغيير

هذا إذا أردت تغيير دقة شاشة المستخدم لتتناسب مع برنامج

...........

أما إذا أردت إعادة تحجيم النموذج سواء بتكبيره أو تصغيره ليتناسب مع دقة شاشة المستخدم فيمكنك استعمال الكود المذكور في المشاركة المشار إليها سابقاً

..........

وربنا يوفقني ويوفقك في الوصول للمطلوب

أخي الكريم 'mas123' شكرا

فعلا لم ارى الملف التي أرفقته ولكن بعد أن جربته وجدته مناسبا جدا لما أردت أشكرك جزيل الشكر على إهتمامك

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

جزاكم الله خير الجزاء