Barra improvisada

Novato.NET wrote:

Hola como puedo hacer que mi winform se pueda mover pues
la barra de titulo o control box esta deshabilitado es
decir false y e improvisado una barra mas agradable al
usuario que cumple casi todas las funciones menos claro
mover el formulario al hacerle clic y mantenerlo sostenido.

Agrega estas declaraciones:

Private Declare Auto Function ReleaseCapture Lib "user32" () As Boolean

Private Declare Auto Function SendMessage Lib "user32" ( _
ByVal hWnd As IntPtr, ByVal msg As Integer, _
ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Y este codigo en el MouseDown de la barra (donde hWnd es el valor de la
propiedad Handle del formulario):

Const WM_NCLBUTTONDOWN As Integer = &HA1
Const HTCAPTION As Integer = 2

ReleaseCapture()
SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Que se supone que haga ese codigo. ?

La esplicacion de novato no la entendi .

Novato.NET wrote:

Hola como puedo hacer que mi winform se pueda mover

pues

la barra de titulo o control box esta deshabilitado es
decir false y e improvisado una barra mas agradable al
usuario que cumple casi todas las funciones menos claro
mover el formulario al hacerle clic y mantenerlo

sostenido.

Agrega estas declaraciones:

Private Declare Auto Function ReleaseCapture

Lib "user32" () As Boolean

Private Declare Auto Function SendMessage Lib "user32" (

_

ByVal hWnd As IntPtr, ByVal msg As Integer, _
ByVal wParam As Integer, ByVal lParam As Integer) As

Integer

Y este codigo en el MouseDown de la barra (donde hWnd es

el valor de la

propiedad Handle del formulario):

Const WM_NCLBUTTONDOWN As Integer = &HA1
Const HTCAPTION As Integer = 2

ReleaseCapture()
SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo


.

Juano wrote:

Que se supone que haga ese codigo. ?

Permitir mover la ventana haciendo clic en algun lugar distinto a su barra
de titulo.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo