Перетаскивание формы за любое место - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы