حل مشكلة تغير حجم النموذج - نسخة قابلة للطباعة

[SIZE=3]صورة البرنامج:-

قبل وضع الكود

بعد وضع الكود

في قسم التصريحات العامة أكتب :-

[/SIZE]

كود :

[color=#000000][COLOR=#0000bb]Dim tch[/color][color=#007700], [/color][color=#0000bb]lch[/color][color=#007700], [/color][color=#0000bb]w[/color][color=#007700], [/color][color=#0000bb]h [/color][color=#007700]As [/color][COLOR=#0000bb]Integer  

[/COLOR][/COLOR]

في حدث الـ Form_Load() أكتب :-

كود :

[color=#000000][COLOR=#007700][[/color][color=#0000bb]center[/color][color=#007700]][/color][color=#0000bb]w [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Width

h [/COLOR][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Height

[/COLOR][color=#007700][/[/color][color=#0000bb]center[/color][COLOR=#007700]]  

[/COLOR][/COLOR]

في حدث الـ Form_Resize() أكتب :-

كود :

[color=#000000][COLOR=#007700][[/color][color=#0000bb]center[/color][color=#007700]][/color][color=#0000bb]lch [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]- [/color][COLOR=#0000bb]w

tch [/COLOR][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]- [/color][COLOR=#0000bb]h

w [/COLOR][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Width

h [/COLOR][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][COLOR=#0000bb]Height

[/COLOR][color=#007700][/[/color][color=#0000bb]center[/color][COLOR=#007700]]  

[/COLOR][/COLOR]

وبعدين لو عايز تخلي موقع كائن ( Command1 مثلا ) يتغير بتغير عرض النموزج أضف السطر التالي للـ Form_Resize() :-

كود :

[color=#000000][COLOR=#007700][[/color][color=#0000bb]center[/color][color=#007700]][/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Left [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Left [/color][color=#007700]+ [/color][COLOR=#0000bb]lch

[/COLOR][color=#007700][/[/color][color=#0000bb]center[/color][COLOR=#007700]]  

[/COLOR][/COLOR]

لو عايز تخليه يتغير بتغير ارتفاع النموزج أضف السطر التالي للـ Form_Resize() :-

كود :

[color=#000000][COLOR=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Top [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Top [/color][color=#007700]+ [/color][COLOR=#0000bb]tch  

[/COLOR][/COLOR]

ممكن تحط الأتنين مع بعض :-

كود :

[color=#000000][COLOR=#007700][[/color][color=#0000bb]center[/color][color=#007700]][/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Left [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Left [/color][color=#007700]+ [/color][COLOR=#0000bb]lch

Me[/COLOR][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Top [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Top [/color][color=#007700]+ [/color][COLOR=#0000bb]tch

[/COLOR][color=#007700][/[/color][color=#0000bb]center[/color][COLOR=#007700]]  

[/COLOR][/COLOR]

وممكن أيضا تخلي حجم الكائن يتغير

كود :

[color=#000000][COLOR=#007700][[/color][color=#0000bb]center[/color][color=#007700]][/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]+ [/color][COLOR=#0000bb]lch

Me[/COLOR][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]= [/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Command1[/color][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]+ [/color][COLOR=#0000bb]tch

[/COLOR][color=#007700][/[/color][color=#0000bb]center[/color][COLOR=#007700]]  

[/COLOR][/COLOR]

[SIZE=3]وآدي كمان مثال على الكود
=> هنا <=

وفي النهاية أتمنى أن تدعو لي بالتوفيق في الأمتحانات
والسلام عليكم ورحمة الله وبركاته

[/SIZE]