Перетаскивание формы за любое место - VB (170150)
Формулировка задачи:
привет, друзья!
приложение перетаскивается обычно за полоску названия, как и где указать что бы перетаскивать за любое место?
Решение задачи: «Перетаскивание формы за любое место»
textual
Листинг программы
Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 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 Function ReleaseCapture Lib "user32" () As Long Private Function FormMove(ByVal hWnd As Long) ReleaseCapture SendMessage hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0 End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call FormMove(Form1.hWnd) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д