شبیه سازی رویدادهای 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]

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

سلام
ممنون
جواب بسیار عالی بود