Total de visitas: 65963

Manipulação de imagem

Manipulação de imagem

IMAGENS

 

 Há diversas maneiras de manipular imagens, uma delas é incluindo-as diretamente no banco de dados. Mas para quem trabalha com banco de dados acess, eu, pelo menos vejo que a maneira mais prática seja nos exemplos abaixo.

INCLUIR FOTO EM UMA PASTA NO BANCO DE DADOS

    Esta Rotina salva fotos em uma pasta com o caminho especificado em um textbox ou label.

 

 

Private Sub INCLUIRFOTO ()

 

  'declara as variaveis

        Dim nomeImagem As String

        Dim destino As String

        Dim arquivo As String

        Try

            If OpenFile.ShowDialog = Windows.Forms.DialogResult.OK Then

                'obtem o caminho e nome da imagem

                nomeImagem = OpenFile.FileName

                arquivo = OpenFile.SafeFileName

    ‘Declara o destino para onde a imagem será salva

                destino = "c:CAMINHO" & arquivo

                ‘declara o textbox com o caminho da imagem

    textbox.Text = nomeImagem

    ‘copia a imagem para dentro da pasta

                FileCopy(nomeImagem, destino)

                'chama a rotina para exibir a foto

                picfoto.Image = Image.FromFile(nomeImagem & picfoto.Text             

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Erro ao abrir Foto.", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

 

   'CARREGA A FOTO

    Esta Rotina carrega uma foto com o caminho especificado em um textbox ou label.

 

Private Sub carregafoto()

        Try

            Dim nomeImagem As String

            nomeImagem = textbox.Text

            picfoto.Image = Image.FromFile(nomeImagem)

        Catch ex As Exception

            MsgBox("NÃO FOI  POSSÍVEL CARREGAR A FOTO!")

        End Try

    End Sub

 

‘CARREGAR FOTO

Private Sub carregafoto()

 

        Dim nomeImagem As String

 

        Try

 

            If OpenFile.ShowDialog = Windows.Forms.DialogResult.OK Then

 

                'obtem o caminho e nome da imagem

                nomeImagem = OpenFile.FileName

 

                'chama a rotina para exibir a foto

                FOTOPictureBox.Image = Image.FromFile(nomeImagem & FOTOPictureBox.Text)

 

            End If

 

        Catch ex As Exception

 

            MessageBox.Show(ex.Message, "Erro ao abrir Foto.", MessageBoxButtons.OK, MessageBoxIcon.Error)

 

        End Try

End sub

 

Salvar Bmp da caixa de imagem

 

Você já conhece o processo de leitura de um bmp para uma caixa de imagem ? É assim:

Image1.picture=loadpicture("c:Windowscarros.bmp")

 

Mas você também pode gravar uma imagem que está em uma caixa de imagem e converte-lo para bmp, gif, etc. É assim

 

SavePicture image1, "C:windows	este.bmp"

 

 

Não se esqueça de agradecer recomendando o Blog.


jacob samuel