Перетаскивание формы за любое место - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д