Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
131
Assunto : Visual Basic
Titulo: Como editar uma imagem pelo VB

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Tirando inspiração de uma pergunta em nosso fórum, resolvi mostrar esse código de exemplo sobre como editar uma imagem no Vb.

O form em questão tem 2 botões e um objeto picture. O objeto picture pode ser pre-carregado com uma imagem qualquer. Vamos ao código :


'Inicialmente temos 2 botões, abrir e salvar.
'O abrir não traz novidades, utiliza o loadpicture normalmente
'Claro que em sistemas mais sofisticados o nome da imagem não seria fixo,
'Você poderia até mesmo usar o commomdialog.

Private Sub cmdAbrir_Click()
Picture1.Picture LoadPicture("C:\teste.bmp")
End Sub


'O salvar traz uma instrução pouco conhecida : SavePicture. O SavePicture tem 2 parâmetros : O handle de uma imagem e o nome do arquivo.
'Handle ? Isso mesmo. As propriedades picture e image dos objetos não guardam a imagem em si, só um código para sua localização em RAM. Assim sendo, ou utilizamos esse código em funções já preparadas para recebe-lo, como o savepicture, ou utilizamos API's para recuperar a imagem em si

Private Sub cmdSalvar_Click()
SavePicture Picture1.Image, "C:\teste.bmp"
End Sub

'E qual a diferenca entre image e picture ?
'O formato suportado : Image sempre gera uma saida em BMP enquanto que o picture suporta alguns outros formatos. Mas não se anime : nenhum dos 2 suporta gif ou jpg, assim uma edição nesses formatos gera saida em BMP.


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Line Step(-100, -100)-Step(200, 200), 300
Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Line Step(-100, 100)-Step(200, -200), 300

End Sub

'Por fim no mousedown criamos uma edição, um X como um exemplo. Precisamos controlar o currenty e currentx, é a partir deles que a edição será feita. Os 2 Steps do método line determinam a relação de 2 pontos em relação ao ponto atual, dai que alguns valores são negativos (esquerda e acima) e outros positivos (direita e abaixo).

'O 300 como segundo parâmetro indica a cor do desenho.

'Observe que foi necessário corrigir a posição atual após o 1o line. O line altera a posição do "cursor" por assim dizer.

'Por fim não esqueça que a propriedade autoredraw do objeto picture deverá estar setada para true, caso contrário o desenho realizado não é mantido como parte da imagem original.

Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 3/23/2006 9:25:00 AM
nome: Erivelton Kohl
email: ejkohl@hotmail.com
comentário:
Olha gostei muito deste Projeto!
queria Saber se alguem poderia me diser com salvar o BMP direto em *jpg?
ou como converter BMP em *jpg no Visul Basic 6.0?
Obrigado.


 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br