COPIAR CONTEUDO DE UM PICTURE

USUARIO.EXCLUIDOS 10/05/2006 09:43:13
#145886
No sistem tem dois pictureBox, um deles o usuario pode escrever, desenhar etc (Tipo Paint) .... Como que eu passo depois todo conteudo do Picture que o usuario desenhou (cheio de setas, linhas, textos) para um Picture vazio ?? Tentei o Pic2.Picture = Pic1.Picture, mas ele copiou apenas a imagem do Pic1 para o Pic2, não copiou os desenhos
ARAUJOLIN 10/05/2006 09:58:28
#145898
Dê uma olhada neste exemplo

Exemplo

ele pode ser útil para solução de sua questão.
USUARIO.EXCLUIDOS 10/05/2006 10:07:11
#145902
Belo exemplo ... só que precisava copiar esse conteudo sem salvar a imagem ... só passar de um picture para o outro
ARAUJOLIN 10/05/2006 10:31:28
#145909 Resposta escolhida
Pois bem, partindo do princípio do exemplo citado, então



Private Sub Command1_Click()
    Picture2.AutoRedraw = True
    Picture2.PaintPicture Image1, Image1.Left, Image1.Top, Image1.Width, Image1.Height
    'Picture2.PaintPicture Label1, Label1.Left, Label1.Top, Label1.Width, Label1.Height
    Picture2.CurrentX = Label1.Left          ' Posição(Left)
    Picture2.CurrentY = Label1.Top          ' Posição(Top)
    Picture2.FontBold = True          ' Negrito ou não
    Picture2.FontSize = Label1.FontSize           ' Tamannho da Fonte
    Picture2.ForeColor = Label1.ForeColor       ' Cor da Fonte
    Picture2.FontName = Label1.FontName ' Tipo de fonte
    Picture2.Print Label1.Caption
End Sub


O picture 2 conterá todo conteúdo do picture1 sem ter que salva-lo

e se quiser inserir em um terceiro picture box, então é só:


Private Sub Command2_Click()
   Picture3.Picture = Picture2.Image
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar