شبیه سازی رویدادهای move و size فرم

[ASedJavad]

سلام
وقتی رو نوار عنوان یک فرم راست کلیک میکنیم، یه منو رو نشون میده که جند تا گزینه داره

دوتا از اون گزینه ها عبارتند از move و size
حالا من میخوام با فشردن یک command button عینا یکی از این دو تا شبیه سازی بشه.
حالا جه با استفاده از توابعی مثل postmessage و sendmessage و چه با استفاده از توابع خود vb و چه از هر طریق دیگه
کسی راهی بلده؟

[ras-amir]

به نظر من برنامه ای بنویس که به ازای زدن کلید های فلش صفحه کلید ،جا به جایی صفحه به اندازه مثلا 5 پیکسل اضافه بشه.
یکم پیچیده شد ! ببخشید فکر کن اگه نفهمیدی توضیح بدم...
موفق باشید

[setroyd]

به چه دردی میخوره !!! میشه با 100 تابع این کارو به شکل های مختلف کرد خیلی راحته ولی کاربردش چیه ؟؟

[returnx]

این کامل شده ی همون برنامه ای که من براتون تو او تاپیک گذاشتم ، قابلیت Move و Size رو هم اظافه کردم...

[محسن واژدی]

سلام علیکم
کدهای زیر را در ماژول فرم کپی کنین:

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Const WM_SYSCOMMAND As Long = &H112
Const SC_SIZE As Long = &HF000&
Const SC_MOVE As Long = &HF010&
Const SC_RESTORE As Long = &HF120&
Const SC_MINIMIZE As Long = &HF020&
Const SC_MAXIMIZE As Long = &HF030&
Const SC_CLOSE As Long = &HF060&


رویداد Resize

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_SIZE, 0&


رویداد Move

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0&

رویداد Close

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_CLOSE, 0&


رویداد Maximize

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0&

رویداد Minimize

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0&

رویداد Restore

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_RESTORE, 0&



PostMessage نیز هم مانند SendMessage است

موفق باشید

[hrj1981]

كاربراي محترم setroyd و ras_amir اين فروم جاي آموزش دادن و ياد گرفتن خواهشن نه بار علمي خودتون به رخ همديگه بكشيد نه به هم متلك بندازيد ، حرمت علم خيلي بيشتر از اين حرفهاست

[ASedJavad]

سلام علیکم
کدهای زیر را در ماژول فرم کپی کنین:
...
موفق باشید
سلام
ممنون
جواب بسیار عالی بود