[صعب الوصول]

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

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

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , إطلع على هذا الموضوع في هذه المشاركة :
http://vb4arb.com/vb/showthread.php?tid=14574

[صعب الوصول]

يعطيك العافية أخي
ولكن هذا الموضوع غير واضح لي ممكن توضحه ربي يسعدك
وهل يخص الادوات ام النوافذ

[صعب الوصول]

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

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

[صعب الوصول]

(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 ولكن بدون جدوى

---

   
صورة المشكلة

[صعب الوصول]

    للأسف طلع لي هذا الخطأ

[sendbad100]

السلام عليكم
جرب شغل البرنامج تسجيل الاداة كمسؤول

[صعب الوصول]

اشتغل وظهرت رسالة تم التسجيل ولكن اذا ذهبت للفورم وضغطت ctrl +t
لا استطيع اضافة الاداة وتأتي رسالة الخطأ اللي في الأول بأن الاداة لم تسجل

[صعب الوصول]

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

[awidan76]

ماتقصروا شكرا لكم
احبكم في الله