سوال: جابه جا کردن صفحه برنامه [بایگانی]

IntelBoy

جمعه 24 شهریور 1396, 21:02 عصر

دوستان عزیز سلام
صفحه برنامه من style اش none هست و همان طور که خوتان میدونید با این حالت نمی شود صفحه را در دسکتاپ جا به جا کرد(منظور اینکه صفحه برنامه را از مثلا بالا به پایین بیاوریم)
من می خواهم با این وجود جا به جا کنم آیا ممکن است؟

eb_343

جمعه 24 شهریور 1396, 21:21 عصر

دوستان عزیز سلام
صفحه برنامه من style اش none هست و همان طور که خوتان میدونید با این حالت نمی شود صفحه را در دسکتاپ جا به جا کرد(منظور اینکه صفحه برنامه را از مثلا بالا به پایین بیاوریم)
من می خواهم با این وجود جا به جا کنم آیا ممکن است؟

سلام
ابتدا کد های زیر را در بخش ماژول عمومی فرم وارد کن :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, LParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Const WM_NCLBUTTONDOWN = &HA1 'when left mouse button is clicked
Const HTCAPTION = 2 'signed that mouse is working on titlebar.

سپس یک نوار عنوان با استفاده از picturebox یا Image درست کن و کدزیر در رویداد MouseDown آن وارد کن :

If Button = 1 Then
Call ReleaseCapture 'tell system through mouse didn't working anymore.
Call SendMessage(Me.hwnd(), WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If

در زمان اجراء ، موس را بر روی نوار عنوان پائین نگه دار و فرم را جابجا کن
موفق باشید

IntelBoy

شنبه 25 شهریور 1396, 12:48 عصر

با تشکر از شما دوست عزیز خیلی ممنون