FOrmularios moviles

[foreneo]

Jeje alguien que sepa como arrastrar formularios si la propiedad del borde esta en 0-None, pero para poder arrastrar el formulario (Moverlo con el raton por la pantalla) que solo se puede desde un label o un image

[Frehley]

Yo lo hacia con una API, pero no me acuerdo cual, voy a ver si la encuentro.

Salu2!

[David]

Código:

'--------------------------------------------------------------------
'NOTAS: 'Listado a insertar en un módulo (.bas) 'si se quiere poner en
un formulario (.frm) 'declarar la función como Private y quitar el
Global de las constantes
'--------------------------------------------------------------------
'Constantes y declaración de función: ' 'Constantes para SendMessage
Global Const WM_LBUTTONUP = &H202 Global Const WM_SYSCOMMAND = &H112
Global Const SC_MOVE = &HF010 Global Const MOUSE_MOVE = &HF012

#If Win32 Then
 Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal
 hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
 Long) As Long
#Else
 Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal
 wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
#End If
'
'
'Este código se pondrá en el Control_MouseDown...
'
Dim lngRet As Long

'Simular que se mueve la ventana, pulsando en el Control
If Button = 1 Then
 'Envía un MouseUp al Control
 lngRet = SendMessage(Control.hWnd, _
 WM_LBUTTONUP, 0, 0)
 'Envía la orden de mover el form
 lngRet = SendMessage(FormX.hWnd, _
 WM_SYSCOMMAND, MOUSE_MOVE, 0)
End If

Código Tomado de http://www.jrubi.com/, espero te sirva

[foreneo]

gracias a todos pero ya encontre una forma mas facil y sin tanto codigo gracias

[GeoAvila]

í

Iniciado por foreneo

gracias a todos pero ya encontre una forma mas facil y sin tanto codigo gracias

Sería bueno que colcoaras tu respuesta para ayudar a otros foreros..


nos vemos..