السلام عليكم ورحمة الله وبركاته
أنا صممت برنامج يا أخوان عن طريق vb6 على اللاب توب تبعي طبعا دقة الشاشة اللي عندي 1366*768
ولكن عند تشغيله على أجهزة المستخدمين الآخرين لاتظهر كافة النوافذ والايقونات بسبب اختلاف دقة الشاشة
أريد حلاً ياشباب يجعل برنامج يتناسب مع دقة أي شاشة .
يعطيك العافية أخي
ولكن هذا الموضوع غير واضح لي ممكن توضحه ربي يسعدك
وهل يخص الادوات ام النوافذ
السلام عليكم ورحمة الله و بركاته
اهلا بك اخي الكريم
هذا ردّي المتواضع على سؤالك
الهدف من المثال في مشاركة اخي احمد جزاه الله خير
هو ترك المجال للكود تكبير النافذة حسب دقة شاشة المستخدم
بالاضافة الى تنسيق الادوات كل حسب موضعه و مكانه الخاص و انما
للحفاظ على تناسق الشكل اولا و التخلص من مشكلة تآكل اطراف الشاشة
كما تلاحظ بأن النافذة في المثال السابق لم يتم تقييد حجمها و انما تركنا المجال
للمستخدم حرية التكبير و التصغير "Sizable" اما بالسحب و الافلات او من خلال الكونترول التي في الاعلى " Maximized"
و هذا مثال آخر لادة جميلة انا استخدمها و تمت تجربتها على كثير من الشاشات .
[
attachment=13624]
السلام عليكم و رحمة الله و بركاته
يمكنك الاستعانة بهذه الخطوات :
يمكنك الضغط على 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]
السلام عليكم
جرب شغل البرنامج تسجيل الاداة كمسؤول