arrastrar una pantalla

20/05/2005 - 17:38 por kike | Informe spam

hola estoy haciendo un formulario pero pongo su propiedad FormBorderStyle a
None para que no se vea lo azul de arriba pero yo quiero que esa pantalla
pueda arrastrarse por donde quieras como se os ocurre que se puede hacer
eso.
Si no entendeis bien mi explicacion simplemente hacer un formulario y le
poneis esa propiedad a none ejecutais e intentar moverlo... a eso me
refiero.
Gracias

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 enorso

21/05/2005 - 13:51 | Informe spam

Hola, por cierto yo tambien me llamo como tu, bien vamos al asunto, hace tres
días yo expuse este mismo tema en este foro, la respuesta que conseguí es
esta:

Solución dada por: Juan Carlos Badiola MVP - C#

Añade a tu formulario un control cualquiera, un label con bordes, por
ejemplo con este código:

Private pos As Point

Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
If e.Button = MouseButtons.Left Then
Me.Location = New Point(e.X - pos.X + Me.Left, e.Y - pos.Y + Me.Top)
End If
End Sub

Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
pos = New Point(e.X, e.Y)
End Sub

Responder a este mensaje

#2 kike

21/05/2005 - 13:57 | Informe spam

Muchas Gracias Tocayo. Perfecto.

"enorso" escribió en el mensaje
news:

Hola, por cierto yo tambien me llamo como tu, bien vamos al asunto, hace
tres
días yo expuse este mismo tema en este foro, la respuesta que conseguí es
esta:

Solución dada por: Juan Carlos Badiola MVP - C#

Añade a tu formulario un control cualquiera, un label con bordes, por
ejemplo con este código:

Private pos As Point

Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
If e.Button = MouseButtons.Left Then
Me.Location = New Point(e.X - pos.X + Me.Left, e.Y - pos.Y +
Me.Top)
End If
End Sub

Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
pos = New Point(e.X, e.Y)
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida