Visual Basic - Mover Formulario Sin Borde

Life is soft - evento anual de software empresarial
 
Vista:

Mover Formulario Sin Borde

Publicado por Matías freire (421 intervenciones) el 29/06/2006 21:01:24
Hola Gente...

Hice un formulario sin bordes. En la parte superior puse un shape con un label (a modo de barra de titulo) y sobre la derecha un image para poder cerrarlo. El tema es que no he podido lograr mover la ventana (intenté con el evento dragover y dragdrop del label, pero no he logrado nada). Alguien tiene idea de cómo hacerlo?

Desde ya, muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mover Formulario Sin Borde

Publicado por Jamec (231 intervenciones) el 29/06/2006 22:05:38
prueba esta Api:

1
2
3
4
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
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


En el evento Mouse Down pones esto
1
2
Call ReleaseCapture
Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)


Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Guillermo
Val: 3
Ha aumentado su posición en 41 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Mover Formulario Sin Borde

Publicado por Guillermo (35 intervenciones) el 09/12/2012 16:28:14
Gracias a Dios que existen uds.....

Muchas gracias...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar