Forums Últimos mensajes - Powered by IBM
 

Arrastrar formulario

15/05/2005 - 23:36 por enorso | Informe spam
Me podrían orientar sobre como desplazar un formulario, logicamente con el
controlbox desactivado.
Por ejemplo mediante un boton en el que al pinchar y arrastrar con el raton
se desplazara todo el formulario.
¿Como puedo saber las coordenadas del raton al arrastrar? Se me ocurre que
mediante diferencia de coordenadas ir actualizando la posición del formulario.

Saludos
 

Leer las respuestas

#1 José Manuel Agüero
18/05/2005 - 20:36 | Informe spam
Hola, enorso:

Puedes añadir el siguiente código al formulario:

'\\\
Private Declare Sub ReleaseCapture Lib "user32" ()

Private Declare Sub SendMessage Lib "user32" (ByVal hWnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer)

Private Const WM_NCLBUTTONDOWN As Integer = &HA1
Private Const HTCAPTION As Integer = 2
'///

Y en el evento MouseDown añades el siguiente código:
'\\\
Call ReleaseCapture()
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
'///

Y ya está.

Saludos.

"enorso" escribió en el mensaje news:
| Me podrían orientar sobre como desplazar un formulario, logicamente con el
| controlbox desactivado.
| Por ejemplo mediante un boton en el que al pinchar y arrastrar con el raton
| se desplazara todo el formulario.
| ¿Como puedo saber las coordenadas del raton al arrastrar? Se me ocurre que
| mediante diferencia de coordenadas ir actualizando la posición del formulario.
|
| Saludos

Preguntas similares