Mover ventana sin barra de titulo

[Patty D]

Pregunta de principiante:

¿Como puedo mover una ventana una vez que le quito la barra de título
(ControlBox a False, y no escribo nada en la caption del formulario)?

Gracias,
Patricia

[Isidro Pisa]

Hola, Patty D.

Te copio mi respuesta a la misma pregunta hace un tiempo:

Supongo que lo que quieres hacer es mover la ventana cuando pinchas en tu
"form" con el ratón y lo arrastras.
Si es eso, yo lo hice así en un programa mío:

' -----------------------------------------------------------------
Dim Xini, Yini as Single

Private Sub GuardarPosicionInicio(X As Single, Y As Single)
Xini = X
Yini = Y
End Sub

Private Sub MoverVentana(Button As Integer, Shift As Integer, X As Single, Y
As Single)
If (Button = 0) Then Exit Sub
Me.Move (Me.Left + X - Xini), (Me.Top + Y - Yini)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Call GuardarPosicionInicio(X, Y)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
Call MoverVentana(Button, Shift, X, Y)
End Sub
' -----------------------------------------------------------------

Saludos. Isidro.

[ignifugo]

Mira el codigo fuente que adjunto al mensaje.

------------------------------------------------------------------

¿Ya cobras por navegar?

------------------------------------------------------------------

Ahora puedes cobrar en metálico por el tiempo
que pasas conectado a Internet.

Información e Inscripciones en:

http://www.Intelisurf.com/Index.asp?RefID=29180

------------------------------------------------------------------

"Patty D" <patty_...@hotmail.com> escribió en el mensaje
news:8pb87f$4r0$1...@lola.ctv.es...

[Pedro Q]

Mediante este código podrás mover el formulario pinchando en cualquier parte
de él. (Como haría la opción easymove del Winamp).

Option Explicit

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Any) As Long

Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0&
End Sub

Saludos

Pedro Q

ped...@airtel.net

Patty D <patty_...@hotmail.com> escribió en el mensaje de noticias
8pb87f$4r0$1...@lola.ctv.es...

[Patty D]

Muchas gracias a todos por vuestra ayuda.
Ignifugo, el Zip que adjuntas está vacío, pero gracias de todas formas

Patty D

[Patty D]

Gracias por vuestra ayuda,

Un saludo,
Patty D

[Patty D]

Si, es eso Isidro, sabía que podía hacerse, pero no tenía ni idea de cómo
hacerlo. Gracias por tu ayuda e interés,

Un saludo,
Patty D