Dúvida - aumentar tamanho de um comando

[Guest --Daniel --]

Primeiro, vou me apresentar:

Meu nome é Daniel, tenho 14 anos e já faiz 2 anos que eu mexo com vb. Tenho conhecimento médio em VB(mesmo sem nunca ter lido uma apostila) e estou com um problemão num projeto aqui

Eu vou fazer um builder com várias opções de botão e tal. ate ai td bem, mais acontece que eu cheguei numa parte em que fiquei bem preso, faz quase um mes já...

Eu tenho um "simulador" da form que eu vou criar dentro de um form, com imagens e tudo pra simular perfeitamente um Form... Já fiz isso e quando cheguei numa parte que eu iria ter que aumentar e duminuir o tamanho do form simulado.

Como que eu poderia fazer isso?

Eu tenho imagens das bordas do form...

pensei em usar a função dragdrop pra arrastar a imagem e depois arrumar todas conforme a posição da imagem, deu certinho e tudo, só que quando eu fui fazer a segunda versão do programa, muitos tinham reclamado que ficava ruim esse jeito, principalmente por causa da borda que aparece no dragdrop.

Alguma sugestão pra eu fazer isso?

[Guest --Daniel --]

ah e outra tava quase esquecendo...

eu achei esse codigo aqui nesse fórum pra fazer dragdrop sem borda, o que eu precisava, mas ele não pode ser usado com imagems somente com picturebox

então pensei em um jeito que resolveria tudo, será que eu posso "simular" um form com uma picturebox, só uma?

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

On Error Resume Next

ReleaseCapture

SendMessage Picture1.hwnd, &HA1, 2, 0&

End Sub

PS: outra coisa que eu esqueci de falar é:

eu não quero emular um form em outro, isso não da certo pro meu programa

[kuroi]

não entendi direito, mas o q você esta precisando é arrastar uma picture box com o mouse certo??

essa funcao q você achou realmente so funciona com formularios.

mas nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=105586

você encontra um codigo alternativo pra mover formularios sem borda, e como esta escrito no proprio tópico:

a mesma logica vale pra mover objetos dentro do formulario

ou seja, se você entender o codigo fica facil de adaptar para a picturebox.

agora essa parte de aumentar e diminuir, tb não entendi direito. mostre um printscreen do form e do problema q ocorre pra gente ver se entende aqui.

[Guest --Daniel --]

Eu não quero mover objetos no formulário ou algo assim...

o que eu quero é fazer tipo uma borda de um form pra aumentar ou diminuir o tamanho de uma "form" desenhada com imagens

AI eu fiz um jeito usando a função DragDrop, com esse código:

Para entender melhor, olhe a SS

Dim Save_X As Single, Save_Y As Single
Public ultimo As String
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - Save_X, Y - Save_Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 0
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - Save_X, Y - Save_Y
On Error GoTo Err
Select Case ultimo
Case "Image8"
Image9.Left = Image8.Left
Image1.Left = Image8.Left + 60
Image2.Left = Image1.Left + 620
Image2.Width = (Image3.Left - Image2.Left) + 30
Image9.Height = (Image8.Top - Image9.Top)
Image5.Top = Image8.Top
Image7.Top = Image8.Top
Image4.Height = Image7.Top - Image4.Top
Image7.Left = Image8.Left
Image7.Width = Image5.Left - Image8.Left
Image11.Left = Image1.Left - 60
Image11.Top = Image1.Top
Image12.Left = Image11.Left
Image12.Top = Image11.Top - 45
Image13.Top = Image12.Top
Image13.Left = Image12.Left + 60
Image14.Top = Image13.Top
Image14.Left = Image13.Left + 540
Image16.Top = Image3.Top
Image16.Left = Image3.Left + 1235
Image15.Left = Image16.Left
Image15.Top = Image16.Top - 45
Image10.Top = Image15.Top
Image10.Left = Image15.Left - 475
Image14.Width = Image10.Left - Image14.Left
Case "Image5"
Image4.Left = Image5.Left
Image6.Left = Image5.Left - 345
maxenabled.Left = Image5.Left - 695
maxdisabled.Left = Image5.Left - 695
minenabled.Left = Image5.Left - 1035
mindisabled.Left = Image5.Left - 1035
Image3.Left = Image5.Left - 1235
Image2.Width = (Image3.Left - Image2.Left) + 435 + 55
Image4.Height = Image5.Top - Image4.Top
Image9.Height = Image5.Top - Image9.Top
Image8.Top = Image5.Top
Image7.Top = Image5.Top
Image7.Width = (Image5.Left - Image8.Left) - 60
Image11.Left = Image1.Left - 60
Image11.Top = Image1.Top
Image12.Left = Image11.Left
Image12.Top = Image11.Top - 45
Image13.Top = Image12.Top
Image13.Left = Image12.Left + 60
Image14.Top = Image13.Top
Image14.Left = Image13.Left + 540
Image16.Top = Image3.Top
Image16.Left = Image3.Left + 1235
Image15.Left = Image16.Left
Image15.Top = Image16.Top - 45
Image10.Top = Image15.Top
Image10.Left = Image15.Left - 475
Image14.Width = Image10.Left - Image14.Left
Case "Image9"
Image9.Top = Image1.Top + 390
Image8.Left = Image9.Left
Image1.Left = Image8.Left + 60
Image2.Left = Image1.Left + 620
Image2.Width = (Image3.Left - Image2.Left) + 30
Image9.Height = Image8.Top - Image9.Top
Image5.Top = Image8.Top
Image7.Top = Image8.Top
Image4.Height = Image7.Top - Image4.Top
Image7.Left = Image8.Left
Image7.Width = Image5.Left - Image8.Left
Image11.Left = Image1.Left - 60
Image11.Top = Image1.Top
Image12.Left = Image11.Left
Image12.Top = Image11.Top - 45
Image13.Top = Image12.Top
Image13.Left = Image12.Left + 60
Image14.Top = Image13.Top
Image14.Left = Image13.Left + 540
Image16.Top = Image3.Top
Image16.Left = Image3.Left + 1235
Image15.Left = Image16.Left
Image15.Top = Image16.Top - 45
Image10.Top = Image15.Top
Image10.Left = Image15.Left - 475
Image14.Width = Image10.Left - Image14.Left
Case "Image4"
Image4.Top = Image3.Top + 390
Image5.Left = Image4.Left
Image6.Left = Image5.Left - 345
maxenabled.Left = Image5.Left - 695
maxdisabled.Left = Image5.Left - 695
minenabled.Left = Image5.Left - 1035
mindisabled.Left = Image5.Left - 1035
Image3.Left = Image5.Left - 1235
Image2.Width = (Image3.Left - Image2.Left) + 435 + 55
Image4.Height = Image5.Top - Image4.Top
Image9.Height = Image5.Top - Image9.Top
Image8.Top = Image5.Top
Image7.Top = Image5.Top
Image7.Width = (Image5.Left - Image7.Left)
Image11.Left = Image1.Left - 60
Image11.Top = Image1.Top
Image12.Left = Image11.Left
Image12.Top = Image11.Top - 45
Image13.Top = Image12.Top
Image13.Left = Image12.Left + 60
Image14.Top = Image13.Top
Image14.Left = Image13.Left + 540
Image16.Top = Image3.Top
Image16.Left = Image3.Left + 1235
Image15.Left = Image16.Left
Image15.Top = Image16.Top - 45
Image10.Top = Image15.Top
Image10.Left = Image15.Left - 475
Image14.Width = Image10.Left - Image14.Left
Case "Image7"
Image7.Left = Image8.Left + 60
Image8.Top = Image7.Top
Image9.Left = Image8.Left
Image1.Left = Image8.Left + 60
Image2.Left = Image1.Left + 620
Image2.Width = (Image3.Left - Image2.Left) + 30
Image9.Height = Image8.Top - Image9.Top
Image5.Top = Image8.Top
Image4.Height = Image7.Top - Image4.Top
Image7.Width = (Image5.Left - Image8.Left) - 60
Image11.Left = Image1.Left - 60
Image11.Top = Image1.Top
Image12.Left = Image11.Left
Image12.Top = Image11.Top - 45
Image13.Top = Image12.Top
Image13.Left = Image12.Left + 60
Image14.Top = Image13.Top
Image14.Left = Image13.Left + 540
Image16.Top = Image3.Top
Image16.Left = Image3.Left + 1235
Image15.Left = Image16.Left
Image15.Top = Image16.Top - 45
Image10.Top = Image15.Top
Image10.Left = Image15.Left - 475
Image14.Width = Image10.Left - Image14.Left
End Select
Exit Sub
Err:
MsgBox "Largura e/ou altura muito pequena para o programa", , "Hack Designer Tool"
Exit Sub
End Sub
Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 0
End Sub
Private Sub Image4_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move Image4.Left + X - Save_X, Image4.Top + Y - Save_Y
End Sub
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Save_X = X
Save_Y = Y
Image4.Drag 1
End Sub
Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ultimo = "Image4"
End Sub
Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image9.Drag 2
End Sub
Private Sub Image5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Save_X = X
Save_Y = Y
Image5.Drag 1
End Sub
Private Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ultimo = "Image5"
End Sub
Private Sub Image5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image5.Drag 2
End Sub
Private Sub Image5_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move Image5.Left + X - Save_X, Image5.Top + Y - Save_Y
End Sub
Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Save_X = X
Save_Y = Y
Image7.Drag 1
End Sub
Private Sub Image7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ultimo = "Image7"
End Sub
Private Sub Image7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image7.Drag 2
Image7.Left = Image8.Left + 60
Image8.Top = Image7.Top
Image9.Left = Image8.Left
Image1.Left = Image8.Left + 60
Image2.Left = Image1.Left + 620
Image2.Width = (Image3.Left - Image2.Left) + 30
Image9.Height = Image8.Top - Image9.Top
Image5.Top = Image8.Top
Image4.Height = Image7.Top - Image4.Top
Image7.Width = (Image5.Left - Image8.Left) - 60
Image11.Left = Image1.Left - 60
Image11.Top = Image1.Top
Image12.Left = Image11.Left
Image12.Top = Image11.Top - 45
Image13.Top = Image12.Top
Image13.Left = Image12.Left + 60
Image14.Top = Image13.Top
Image14.Left = Image13.Left + 540
Image16.Top = Image3.Top
Image16.Left = Image3.Left + 1235
Image15.Left = Image16.Left
Image15.Top = Image16.Top - 45
Image10.Top = Image15.Top
Image10.Left = Image15.Left - 475
Image14.Width = Image10.Left - Image14.Left
End Sub
Private Sub Image7_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move Image7.Left + X - Save_X, Image7.Top + Y - Save_Y
End Sub
Private Sub Image8_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move Image8.Left + X - Save_X, Image8.Top + Y - Save_Y
End Sub
Private Sub Image8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Save_X = X
Save_Y = Y
Image8.Drag 1
End Sub
Private Sub Image8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ultimo = "Image8"
End Sub
Private Sub Image8_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image8.Drag 2
End Sub
Private Sub Image9_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move Image9.Left + X - Save_X, Image9.Top + Y - Save_Y
End Sub
Private Sub Image9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Save_X = X
Save_Y = Y
Image9.Drag 1
End Sub
Private Sub Image9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ultimo = "Image9"
End Sub
Private Sub Image9_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image9.Drag 2
End Sub

SS: http://img402.imageshack.us/img402/8150/ghfhftfhfch8.png

PS: Tem outras images, pra aumentar e diminuir o tamanho da form tambem por cima, que eu não puis na listbox...

Usa a lógica pra ver qual é qual...

Ai eu quero um outro metodo de dragdrop sem ficar aquela "sombrinha" por tras, arrastando direto que nem no windows...

ou senão outra função sem ser dragdrop

[Guest --Daniel --]

Esse seu codigo ai deu certo sim...

eu fui testa ai ele mesmo assim não faz o q eu kerua mas com umas modificações ele fez

vlws