|
Postada em 20/11/2005 12:40 hs
Veja se ajuda: Crie um form 1 Picture (pctImagem) 2 Command (cmdAbrir e cmdSalvar) 2 text (txtOrigem e txtSalvar)
Private Sub cmdAbrir_Click() pctImagem.Picture = LoadPicture(txtOrigem.Text) End Sub
Private Sub cmdSalvar_Click() SavePicture pctImagem.Picture, txtSalvar.Text End Sub
Basta vc colocar o endereço do arquivo de origem no txtOrigem (Ex: C:WINDOWSDesktopimagem.jpg) e clicar no cmdAbrir, ao vizualizar o arquivo no pctImagem, vc escreve no txtSalvar o destino(Ex: C:WINDOWSDesktopdentino.bmp) e clica em cmdSalvar e pronto !!!!!
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|