Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Kleber288

Salvar uma imagem em uma pasta

Recommended Posts

Por Favor, alguem poderia me ajudar?


O codigo abaixo salva uma imagem em uma pasta, mas o problema é que estou com problema nessa linha



If (Convert.ToInt32(Nº_de_RegistrosTextBox.Text) > 0) Then
a mensagem de erro que aparece é:
"Input string was not in a correct format"
abaixo esta o codigo completo:
Private Sub BindingNavigatorAddNewItem_Click(sender As System.Object, e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click


If (Convert.ToInt32(Nº_de_RegistrosTextBox.Text) > 0) Then

OpenFileDialog1.ShowDialog()


Dim bmp As Bitmap
Dim bmp2 As Bitmap

bmp = New Bitmap(OpenFileDialog1.FileName)
bmp2 = New Bitmap(bmp, PictureBox40.Size)

PictureBox40.Image = bmp2()

PictureBox40.Image.Save(Application.StartupPath.ToString() + "\\testemunho\\" + Nº_de_RegistrosTextBox.Text + ".png", System.Drawing.Imaging.ImageFormat.Png)

Foto_TextBox1.Text = (Application.StartupPath.ToString() + "\\testemunho\\" + Nº_de_RegistrosTextBox.Text + ".png")

Me.Validate()
Me.ClientesBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Banco_FloraisDataSet)


Else

MessageBox.Show("Salve primeiro os dados para inserir a imagem", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)

End If
End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.