Функция ReleaseCapture

Declare Function ReleaseCapture Lib "user32.dll" () As Long

Платформа

ReleaseCapture завершает фиксацию мыши для указанного окна. При вызове ReleaseCapture, все сообщения ввода мыши немедленно возвращаются обратно в обычный режим. Функция должна использоваться сразу же,как только вы уже не нуждаетесь в фиксации мыши после вызова SetCapture.

В успешном случае функция возвращает значение,отличное от нуля,в противном случае функция возвратит 0 (используйте GetLastError для получения кода ошибки).

Пример

' Перемещаем форму за любое место,
' а не только за заголовок
 ' Вставьте код в Form_MouseMove

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
	Dim retval As Long 'возвращаемое значение
If Button = 1 Then
        Call ReleaseCapture
        'посылаем сообщение о нажатии левой кнопки мыши на заголовке нашей формы
        retval = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If
End Sub
' код для Form_Paint
Private Sub Form_Paint()
    Me.Print "Щелкните на форме и удерживая кнопку перетаскивайте форму"
End Sub
Схожие функции
GetCapture, SetCapture
Категория
Мышь

В начало.

Семейный психолог
Помощь профессионального семейного психолога в Москве
barchenkova.com