mover controles

02/07/2004 - 22:21 por Luis | Informe spam
Hola grupo,
como puedo hacer para mover y/o cambiar el tamaño un
control en tiempo de ejecución? si pudieran mostrarme un
ejemplo sencillo para poder revirsalo por favor.
De antemano gracias

Luis C.

Preguntas similare

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
03/07/2004 - 02:02 | Informe spam
Luis wrote:
Hola grupo,
como puedo hacer para mover y/o cambiar el tamaño un
control en tiempo de ejecución? si pudieran mostrarme un
ejemplo sencillo para poder revirsalo por favor.
De antemano gracias



' Mover. Opcion 1
Control.Left = 10
Control.Top = 10

' Mover. Opcion 2
Control.Location = New Point(10,10)

' Cambiar tamaño 1
Control.Width = 10
Control.Height = 10

' Cambiar tamaño 2
Control.Size = New Size(10, 10)

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
Respuesta Responder a este mensaje
#2 Eduardo Araujo
03/07/2004 - 05:30 | Informe spam
Hola luis

Yo tengo la misma duda

por ahora tengo esta idea

Si alguien tiene otra mejor, tal vez un limk a una pagina donde haya info

Dim fl As Boolean = False

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown

fl = True

End Sub

Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp

If fl = True Then

Dim pt As Point

pt = New Point(Me.Cursor.Position.X, Me.Cursor.Position.Y)

Me.Button1.Location = pt

fl = False

End If

End Sub
Respuesta Responder a este mensaje
#3 Luis
03/07/2004 - 15:49 | Informe spam
Gracias por las respuestas, pero no tiene que ver el
metodo dodragdrop y demas eventos para poder realizarlo?
ojo la idea no sólo es desplazarlos cambiando su ubicación
top y left sino darles el efecto de arrastre y pegado.

saludos

Luis

Hola grupo,
como puedo hacer para mover y/o cambiar el tamaño un
control en tiempo de ejecución? si pudieran mostrarme un
ejemplo sencillo para poder revirsalo por favor.
De antemano gracias

Luis C.
.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida