حرفه ای: تغییر سایز کنترل های فرم متناسب باتغییر سایز فرم [بایگانی]

nazanin_90

جمعه 10 خرداد 1392, 15:33 عصر

سلام
آیا راهی وجود دارد که با تغییر سایز فرم بخصوص از نظر عرضی ،کنترل های درج شده در فرم به همان نسبت ازنظر عرضی و تغییرمکان از چپ به راست تغییر پیدا کنند ؟
ناگفته نماند که این تغییر سایز فرم ارتباطی به رزولیشن ندارد و هدف این است که در هر رزولیشنی اگر فرم از نظر عرضی تغییر سایز پیدا کرد کنترل های موجود در آن هم به همان نسبت تغییر سایز داده شوند یا به عبارتی اگر عرض فرم از حالت طبیعی بزرگتر یا کوچکتر شد تمام کنترل های درج شده بر روی فرم شامل تکست باکس ، کمند باتن ، لیبل ، کمبوباکس و ... خصوصیت آنها از نظر Width و left تغییر پیدا کند .
با تشکر

mehran901

جمعه 10 خرداد 1392, 15:52 عصر

بله راهش اینه که در resize event فرمتون ، رابطه ای به کار ببرین که مختصات فرم رو بگیره و در لحظه تغییر ساز فرم ، کنترل ها رو طبق اون رابطه در جای مشخص قرار بده ...

nazanin_90

جمعه 10 خرداد 1392, 16:13 عصر

بله راهش اینه که در resize event فرمتون ، رابطه ای به کار ببرین که مختصات فرم رو بگیره و در لحظه تغییر ساز فرم ، کنترل ها رو طبق اون رابطه در جای مشخص قرار بده ...
سلام آقا مهران
مشکل بنده هم همین است که نمبدونم این رابطه را چه جوری برقرار کنم.
ممنون میشم اگر(با ارائه یک نمونه ساده ) بیشتر راهنمائی فرمائید.

mehran901

جمعه 10 خرداد 1392, 16:27 عصر

خب کار ساده ای هست ، ی مثال نوشتم از ضمیمه بگیرین، متوجه میشین

104932

alirezabahrami

جمعه 10 خرداد 1392, 19:03 عصر

سلام
آیا راهی وجود دارد که با تغییر سایز فرم بخصوص از نظر عرضی ،کنترل های درج شده در فرم به همان نسبت ازنظر عرضی و تغییرمکان از چپ به راست تغییر پیدا کنند ؟
ناگفته نماند که این تغییر سایز فرم ارتباطی به رزولیشن ندارد و هدف این است که در هر رزولیشنی اگر فرم از نظر عرضی تغییر سایز پیدا کرد کنترل های موجود در آن هم به همان نسبت تغییر سایز داده شوند یا به عبارتی اگر عرض فرم از حالت طبیعی بزرگتر یا کوچکتر شد تمام کنترل های درج شده بر روی فرم شامل تکست باکس ، کمند باتن ، لیبل ، کمبوباکس و ... خصوصیت آنها از نظر Width و left تغییر پیدا کند .
با تشکر

سلام
نمونه ضمیمه را برای همه کنترل ها ببین!
موفق باشید

nazanin_90

جمعه 10 خرداد 1392, 20:19 عصر

سلام
نمونه ضمیمه را برای همه کنترل ها ببین!
موفق باشید
با سلام و تشکر از نمونه خوب
از کد های فوق در محیط اکسس نتوانستم استفاده کنم و ظاهراً باید در آن تغییراتی داده شود، از دوستان آشنا به محیط اکسس خواهش می کنم در صورت امکان تغییرات لازم برای استفاده در محیط اکسس بدهند.
باتشکر

m.4.r.m

جمعه 10 خرداد 1392, 22:18 عصر

ببین با این کد کارت راه میوفته ؟
Private Sub Form_Resize()
Me.Command0.Left = (Me.InsideWidth - Me.Command0.Width) / 2
End Sub