منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تشغيل برنامجي على حسب دقة شاشة المستخدم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته
أنا صممت برنامج يا أخوان عن طريق  vb6 على اللاب توب تبعي طبعا دقة الشاشة اللي عندي 1366*768 
ولكن عند تشغيله على أجهزة المستخدمين الآخرين لاتظهر كافة النوافذ والايقونات بسبب اختلاف دقة الشاشة

أريد حلاً ياشباب يجعل برنامج يتناسب مع دقة أي شاشة .
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إطلع على هذا الموضوع في هذه المشاركة :
http://vb4arb.com/vb/showthread.php?tid=14574
يعطيك العافية أخي
ولكن هذا الموضوع غير واضح لي ممكن توضحه ربي يسعدك
وهل يخص الادوات ام النوافذ
السلام عليكم ورحمة الله و بركاته
اهلا بك اخي الكريم
هذا ردّي المتواضع على سؤالك
الهدف من المثال في مشاركة اخي احمد جزاه الله خير
هو ترك المجال للكود تكبير النافذة حسب دقة شاشة المستخدم
بالاضافة الى تنسيق الادوات كل حسب موضعه و مكانه الخاص و انما
للحفاظ على تناسق الشكل اولا و التخلص من مشكلة تآكل اطراف الشاشة
كما تلاحظ بأن النافذة في المثال السابق لم يتم تقييد حجمها و انما تركنا المجال
للمستخدم حرية التكبير و التصغير "Sizable" اما بالسحب و الافلات او من خلال الكونترول التي في الاعلى " Maximized"
و هذا مثال آخر لادة جميلة انا استخدمها و تمت تجربتها على كثير من الشاشات .

[attachment=13624]
(24-03-17, 12:41 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم ورحمة الله و بركاته
اهلا بك اخي الكريم
هذا ردّي المتواضع على سؤالك
الهدف من المثال في مشاركة اخي احمد جزاه الله خير
هو ترك المجال للكود تكبير النافذة حسب دقة شاشة المستخدم
بالاضافة الى تنسيق الادوات كل حسب موضعه و مكانه الخاص و انما
للحفاظ على تناسق الشكل اولا و التخلص من مشكلة تآكل اطراف الشاشة
كما تلاحظ بأن النافذة في المثال السابق لم يتم تقييد حجمها و انما تركنا المجال
للمستخدم حرية التكبير و التصغير "Sizable"  اما بالسحب و الافلات او من خلال الكونترول التي في الاعلى " Maximized"
و هذا مثال آخر لادة جميلة انا استخدمها و تمت تجربتها على كثير من الشاشات .

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


يمكنك الاستعانة بهذه الخطوات :


يمكنك الضغط على Ctrl+T
و بعد ذلك البحث عن الاداة بناء على مسارها المحدد

[attachment=13628]

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

[attachment=13629]

الى ان يتم وضع الاداة في شريط الادوات كما هو واضح امامنا الآن

[attachment=13630]

بعد ذلك عليك سحب الاداة الى النافذة التي تريد

يتبقى علينا تعديل خصائص الاداة و ستكون مختصرة بالكود الآتي :

كود :
Private Sub Form_Resize()
freeSizer1.MoveObjects = True
freeSizer1.ResizeObjects = True
freeSizer1.ResizeFonts = True
freeSizer1.SmartPositioning = True
freeSizer1.SmartSizing = True
End Sub
(24-03-17, 05:59 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله و بركاته


يمكنك الاستعانة بهذه الخطوات :


يمكنك الضغط على Ctrl+T
و بعد ذلك البحث عن الاداة بناء على مسارها المحدد



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



الى ان يتم وضع الاداة في شريط الادوات كما هو واضح امامنا الآن



بعد ذلك عليك سحب الاداة الى النافذة التي تريد

يتبقى علينا تعديل خصائص الاداة و ستكون مختصرة بالكود الآتي :

كود :
Private Sub Form_Resize()
freeSizer1.MoveObjects = True
freeSizer1.ResizeObjects = True
freeSizer1.ResizeFonts = True
freeSizer1.SmartPositioning = True
freeSizer1.SmartSizing = True
End Sub
يعطيك العافية على الشرح الرائع جدا
ولكن تواجهني مشكلة سأضع لك صورتها حاولت أحلها وقمت بتسجيل الاداة عن طريق برنامج smart install ولكن بدون جدوى

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

[attachment=13640]


البرنامج :
[attachment=13641]
[attachment=13645]للأسف طلع لي هذا الخطأ
السلام عليكم
جرب شغل البرنامج تسجيل الاداة كمسؤول
الصفحات : 1 2