Roke_X
08 de Mayo del 2003

como puedo conseguir que cuando pincho con el mouse en cualquier parte de un form, este sea movido hasta donde suelte el boton
gracias :-))

Observador
08 de Mayo del 2003

Bien... Existen dos maneras... pero aqui solo mostrare la mas facil (con menos codigo)...

Agrega el siguente codigo en la seccion (General) (Declaraciones) de un Form...

'Declaraciones
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 Declare Function ReleaseCapture Lib "user32" () As Long

'Constantes
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

'Codigo
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

Con este codigo (probado en VB5) ya puedes mover el form, (aunque no tenga barra de titulo) solo da click en alguna parte del form, ten presionado el boton y muevelo a la nueva posicion que quieras...

Observacion, si quieres usar el codigo en varios form de tu proyecto, entonces las declaraciones haslas en un modulo general y cambiale el termino Private por Public, igual las constantes, solo que a estas cambiale el termino Private por Global, asi ya podras usar el codigo en difenrentes formularios de tu proyecto...

Bye...