redimensionar form sin bordes

[leopj]

Hola, bueno quisiera su ayuda para poder redimensionar un form pero no tiene bordes y tengo un control q uso como sizebox y quisiera q al presionar el mouse sobre el pueda dimensionar el tamaño del form como cuando tiene bordes hasta donde arrastre el mouse y cuando lo suelte el form abra cambiado de tamaño como si tubiera bordes, espero me puedan ayudar gracias de antemano...

saludos

[David]

Iniciado por leopj

Hola, bueno quisiera su ayuda para poder redimensionar un form pero no tiene bordes y tengo un control q uso como sizebox y quisiera q al presionar el mouse sobre el pueda dimensionar el tamaño del form como cuando tiene bordes hasta donde arrastre el mouse y cuando lo suelte el form abra cambiado de tamaño como si tubiera bordes, espero me puedan ayudar gracias de antemano...

saludos

SizeBox????????????????????????????????

[leopj]

Sizebox es el control de las barras de estado, pero en fin, habra manera de hacer el redimensionamiento del form apretando sobre cualquier tipo de objeto como un boton y arrastrandolo, eh logrado allgo pero no es muy preciso por eso quisiera ayuda...

[David]

Esto tal vez te sirva:

Código:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Picture1.CurrentX = X
Picture1.CurrentY = Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
Picture1.Left = X + Abs(Picture1.Left - Picture1.CurrentX)
Picture1.Top = Y + Abs(Picture1.Top - Picture1.CurrentY)
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 1 Then Exit Sub
On Error Resume Next
Width = Picture1.Left + Picture1.Width
Height = Picture1.Top + Picture1.Height
End Sub

Necesitarás un PictureBox que servirá como modificador de Tamaño, de preferencia, colocalo en la esquina inferior derecha del Form....
Nos vemos