Перетаскивание формы за любое место - VB (63043)

Узнай цену своей работы

Формулировка задачи:

Подскажите как

Решение задачи: «Перетаскивание формы за любое место»

textual
Листинг программы
Private Sub Form1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) 
Dim ReturnValue As Long 
If Button = 1 Then 
Call ReleaseCapture 
ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) 
End If 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы