PDA

View Full Version : سوال: فاصله فرم از اطراف



behzad5952
جمعه 03 آبان 1392, 11:16 صبح
با سلام خدمت دوستان و اساتید عزیز:

من می خواستم بدونم آیا راهی هست که زمانی که یک فرم باز میشه فاصله عمومی فرم از سمت چپش و بالاش در 2 فیلد مجزا ثبت بشه .
من میخوام از این 2 فیلد برای مشخص کردن مکان باز شدن فرم دومی استفاده کنم .

با تشکر.

hasanhzd
جمعه 03 آبان 1392, 18:49 عصر
درود
اصلا مگه فرم همچین ویژگی داره که شما بخواهی اونو ست کنید؟

behzad5952
جمعه 03 آبان 1392, 18:58 عصر
درود بر شما

اگر من بتونم مختصات قرار گرفتن فرم اول رو بدست بیارم با استفاده از اون و کد نویستی در قسمت on load فرم دوم فکر می کنم عملی بشه ولی در حال حاضر مشکل بدست آوردن مختصات قرار گرفتن فرم اول در صفحه است.

اگر هم بشه مختصات قرار گرفتن یک فیلد خاص رو نسبت به سمت چپ صفحه بدست آورد باز هم خوبه. ولی منظور در مورد فیلد فاصله قرار گرفتن فیلد از چپ صفحه است نه فرم.

mmbguide
جمعه 03 آبان 1392, 22:07 عصر
سلام

Me.WindowLeft, Me.WindowTop, Me.WindowWidth, Me.WindowHeight

توجه داشته باشید که این کدها سمت چپ پنجره شما رو نسبت به Navigation Pan اندازه گیری میکنه
برای اشیاء روی صفحه هم که از گزینه های left,top اونها میتونی استفاده کنی

mmbguide
جمعه 03 آبان 1392, 22:08 عصر
واسه ابعاد خود پنجره هم از insideheight و... میتونی استفاده کنی

abdoreza57
شنبه 04 آبان 1392, 20:46 عصر
سلام

میتونید این کدها را (بسته به موقعیتی که میخواهید فرم باشید ) در on load فرم قرار دهید

DoCmd.MoveSize 800, 750, 13500, 4800


موفق باشید

mmbguide
شنبه 04 آبان 1392, 21:15 عصر
سلام دوباره

البته روش حرفه ای کد نویسی یه چیزی شبیه اینه:

1- یک فرم خالی از نوع pop Up بسازید و نام آن را Form1 بگذارید
2- یک فرم دیگه از نوع Pop Up بسازید و یک دکمه روی آن قرار دهید و کد زیر رو در رویداد کلیک آن ینویسید:
Me.Move Forms!Form1.Form.WindowLeft, Forms!Form1.Form.WindowTop
3- فرم اول را اجرا کنید.
4- فرم دوم که دکمه روی آن قرار دارد اجرا کنید
5- هر کدام از فرم ها رو به دلخواه جابجا کنید.
6- حالا روی دکمه کلیک کنید تا انتباق لبه های چپ و بالا رو ببینید.

در کد بالا می توانید بجای Form1 از نام هر فرمی که مد نظر شماست استفاده کنید

موفق باشید