تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حل مشكلة تغير حجم النموذج
#1
كاتب الموضوع : أنس محمود


[SIZE=3]بسم الله الرحمن الرحيم ، والصلاة والسلام على أشرف المسلين ،، وبعد ،،
هناك مشكلة غالباً ما تواجهنا عند عمل برنامج وهي عدم تغير وضع الكائنات على النموذج بتغير حجمه وبعد عدة محاولات تمكنت بفضل الله من ايجاد حل لهذه المشكلة ، ولكنه ليس حل نهائي ، فقط مجرد اجتهاد مني ، شوف الصورة :[/SIZE]


[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]
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغير اللغه من خلال البرنامج RaggiTech 0 2,506 17-10-12, 12:38 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم