SALVAR SHAPE DENTRO DE UMAGEM OU PICTURE

SALIBA 24/04/2010 00:57:19
#340092

vamos la pessoal

Ajudem. estou precisando muito.

Obrigado

MARCELO.TREZE 24/04/2010 14:21:57
#340116

Vamos lá tente ser mais claro no que desja que acho ter a solução

vc deseja incluir varios chapes dentro de uma picture box, sendo cada um deles em um determinada posição, é isso que entendi?

HENDELLCARDOSO 24/04/2010 23:57:28
#340165 Resposta escolhida

OLA EU MONTEI ESSE EXPLO PARA UM AMIGO ONTEM ACHO QUE SERVIRA PARA VOCÊ TAMBEM FALTA ALGUNS AJUSTES MAS O CAMINHO DAS PEDRAS é ESSE:


[ô] Função para desenhar o shape que esta em picturebox em outro
Public Sub PaintBox(Pic As PictureBox, TShape As Shape)
Dim xLeft As Long
Select Case TShape.Shape
Case 0 [ô] RECTANGLE
Pic.DrawMode = 6
Pic.Line (TShape.Left, TShape.Top)-(TShape.Left + TShape.Width, TShape.Top + TShape.Height), , B
Case 1 [ô] SQUARE
xLeft = (TShape.Width - TShape.Height) / 2
Pic.DrawMode = 6
Pic.Line (TShape.Left + xLeft, TShape.Top)-(TShape.Left + (TShape.Width - xLeft), TShape.Top + TShape.Height), , B
[ô] Case 2 [ô] OVAL
[ô] Pic.DrawMode = 6
[ô] Pic.Circle (TShape.Width / 2 + (TShape.Left), TShape.Height / 2 + (TShape.Top)), TShape.Height , , , , 0.5
Case 3 [ô] CIRCLE
Pic.DrawMode = 6
Pic.Circle (TShape.Left / 2 + ((TShape.Height / 2) + (TShape.Left / 2)), TShape.Top / 2 + ((TShape.Width / 2) + (TShape.Top / 2))), TShape.Height / 2
End Select
End Sub


[ô]PARA CHAMAR
PaintBox Picture2, Shape1
SavePicture Picture2.Image, App.Path & [Ô]\imagem.bmp[Ô]

MICROSCHEME 25/04/2010 04:01:31
#340174

Pra resolver o teu problema

é só carregar, teclar F12, e, implementar no teu projeto

. . .