Visual Basic.NET - mover ventas sin controlbox

   
Vista:

mover ventas sin controlbox

Publicado por Todd (7 intervenciones) el 11/02/2008 17:12:30
Hola.

Alguien sabe si existe una forma de mover ventanas que no tienen controlbox?

En visual basic 6.0 existe un api para poder hacerlo pero no logro hacerla funcionar en VB.NET

Saludos!
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 ventas sin controlbox

Publicado por QWNET (2 intervenciones) el 12/02/2008 16:15:34
en el FORM (ventana) donde no tienes el controlbox colocas que se yo un LABEL como franja por ejemplo yo utilice un label que le puse lbltitulo y en la propiedad de mousedown coloque el siguiente codigo y cada vez que presiono el mouse en el label lbltitulo se puede mover la ventana arriba abajo derecha izquierda.

Private Sub lbltitulo_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbltitulo.MouseDown
If e.Button = System.Windows.Forms.MouseButtons.Left Then
moverForm(Me)
End If
End Sub

'****este lo puse en mi modulo de rutinas publicas

#Region "Funcion para mover el form"
Public Const WM_SYSCOMMAND As Integer = &H112&
Public Const MOUSE_MOVE As Integer = &HF012&
'
' Declaraciones del API al estilo .NET
<System.Runtime.InteropServices.DllImport("user32.DLL", EntryPoint:="ReleaseCapture")> _
Public Sub ReleaseCapture()
End Sub
'
<System.Runtime.InteropServices.DllImport("user32.DLL", EntryPoint:="SendMessage")> _
Public Sub SendMessage( _
ByVal hWnd As System.IntPtr, ByVal wMsg As Integer, _
ByVal wParam As Integer, ByVal lParam As Integer _
)
End Sub

Public Sub moverForm(ByRef Miform As Form)
ReleaseCapture()
SendMessage(Miform.Handle, WM_SYSCOMMAND, MOUSE_MOVE, 0)
End Sub
#End Region
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