FAZER APARECER A IMAGEM APARECER NA PICTURE BOX

JABA 15/08/2015 18:56:20
#450050
Vinicius, quando você cria uma função dentro de um Form, ela não ficará visível para todo o projeto instantaneamente. Para fazer isso, você poderia criar uma classe e colocar essa função como publica lá dentro. Depois é só criar uma instância da classe e chamar essa função onde quiser.

Por exemplo:

Public Class Servico 

[ô]Não se esqueça de colocar o [Ô]shared[Ô] 
public [txt-color=#e80000]shared [/txt-color]sub CarregarImagem( paramentros)
   [ô] codigo
end sub

End Class


Dentro do evento tu poderia fazer assim:

If tb_produtos.CurrentRow.Cells(4).Value <> [Ô][Ô] Then
   [txt-color=#e80000]Servico[/txt-color].CarregarImagem(DataGridView1.CurrentRow.Cells(4).Value, PictureBox1)
End if
DS2T 15/08/2015 19:34:16
#450052
Só complementando o que o JABA disse. O Shared faz com que o método se torna [Ô]Estático[Ô] ... é semelhante ao [Ô]static[Ô] do C#.
Ou seja, você não precisa instanciar um objeto para poder usar ele. Lembrando que não é sempre que se deve usar isso, uma vez que a partir do momento que ela é referenciada pela primeira vez na aplicação, ela fica na memória até o fim do programa.

Abraços!
FILMAN 15/08/2015 19:40:14
#450054
Bom vamos lá!

Primeiro onde está essa imagem?
  • Dentro do banco de dados
  • Em um local especifico
    • [Ô]pasta no computador[Ô]


    Se for dentro do banco de dados você precisa converte-la recuparar os bytes gravado no banco de dados e converter-la para um aquivo stream e gerar um bitmap
    Private Sub CarregarImagem(Byval bImagem As Byte, Byval objPicture As PictureBox)
        [ô]Após ter feito o SELECT no banco e recuperado o campo da imagem
        [ô]Você vai passar o campo aqui no parametro convertido em bytes Convert.ToByte(seu_campo)

        Dim msImagem As System.IO.MemoryStream = New System.IO.MemoryStream(bImagem, True)
        msImagem.Write(bImagem, 0, bImagem.Length)

        objPicture.Image = New Bitmap(msImagem)

        msImagem.Close()
    End Sub


    Se estiver em um local especifico no computador, faça assim
    Private Sub CarregarImagem(Byval sCaminhoImagem As String, Byval objPicture As PictureBox)
        Dim img As Bitmap = New Bitmap(sCaminhoImagem)
        objPicture.Image = img
    End Sub
    VINICIUS2445 16/08/2015 10:13:29
    #450075
    Tentei isso, mais n deu certo tbm...
    JABA 16/08/2015 12:14:20
    #450082
    Vinicius, tem que criar uma Classe, e fazer como disse anteriormente.
    OMAR2011 16/08/2015 16:40:33
    #450089
    Verifique.
    Página 2 de 2 [16 registro(s)]
    Tópico encerrado , respostas não são mais permitidas
    Voltar