Jump to content
estica

[Resolvido] Salvar imagem como

Recommended Posts

estica

Boas amigos... Estou a fazer uma pequena tool para carregar imagens e grava-las em diversas resoluções. Mas elas ficam sempre gravadas em .jpg

O que eu queria era se alguém sabe como altero o código para que ao converter as imagens para a resolução selecionada me pergunte em que formato eu quero guardar as imagens.

 Public Sub ChangeImageResolution(ByVal ImageFile As String)

	newFolderPath = TxtPathName.Text & "\" & "New Images Folder"
	Directory.CreateDirectory(newFolderPath)

	Try
		Dim tempImg As New Bitmap(ImageFile)
		Dim newImg As New Bitmap(tempImg, CmboxWidth.Text, CmboxHeight.Text)
		Dim gphics As Graphics = Graphics.FromImage(newImg)
		gphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
		gphics.CompositingQuality = Drawing2D.CompositingQuality.HighQuality


		newImg.Save(newFolderPath & "\" & (countImage + 1) & ".jpg", ImageFormat.Jpeg)
		countImage += 1

	Catch ex As Exception
		MsgBox(ex.Message, Application.ProductName)
	End Try

Edited by estica

Share this post


Link to post
Share on other sites
He B TeMy

Porque não usas um savefiledialog?

Private Sub button1_Click(sender As Object, e As System.EventArgs)
Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = Image Files(*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|All files (*.*)|*.*
saveFileDialog1.RestoreDirectory = True
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
 myStream = saveFileDialog1.OpenFile()
 If (myStream IsNot Nothing) Then
	 'Código para escrever o ficheiro aqui.
	 myStream.Close()
 End If
End If
End Sub

Senão podes sempre pedir input de uma extensão ao gravar, mas claro que sem opções predefinidas terias que verificar a extensão se estava correcta.

Edited by Rui Carlos

Share this post


Link to post
Share on other sites
He B TeMy

Amigo sou novato nisto e não percebo quase nada de programação

Por isso é que te forneci o código para o SaveFileDialog, senão podes sempre ler aqui .

Quanto ao que eu disse depois, digo em vez de teres ".jpg" no código (que é por causa disso que ele está a gravar em jpg...) podias meter por exemplo & "Textbox1.text" sem aspas, e na textbox escrevias a extensão.

Share this post


Link to post
Share on other sites
estica

Por isso é que te forneci o código para o SaveFileDialog, senão podes sempre ler aqui .

Quanto ao que eu disse depois, digo em vez de teres ".jpg" no código (que é por causa disso que ele está a gravar em jpg...) podias meter por exemplo & "Textbox1.text" sem aspas, e na textbox escrevias a extensão.

Com o SaveFileDialog dava me erro.

Mas já arranjei solução amigo. Muito obrigado.

Tenho outra duvida que não sei se a posso meter aqui ou se tenho de abrir outro tópico mas cá vai.

Como mudo a SKIN da janela?

Sei que dá para mudar e meter uma feita por nos ou meter uma que já existe tipo as skins das janelas do MAC.

Uso o Visual Basic express for desktop 2012. alguém sabe como posso fazer isso?

Edited by estica

Share this post


Link to post
Share on other sites
estica

Nunca fiz isso mas talvez isto possa ajudar?

Já tentei de tudo amigo. Talvez até já tenha passado por cima disso e nem tomei atenção. Existe um programa muito bom que se chama VisualStyler que é muito bom e nós podemos criar os nossos próprios skins mas depois não sei aplicar nos meus projetos :(

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.