none
Imagem aparecer AUTOMATICAMENTE em PictureBox RRS feed

  • Pergunta

  • Tenho um Form para guardar registos. Cada registo tem um foto. Já coloquei o programa a guardar o caminho da foto na BD e a PictureBox a mostrar a imagem que cada registo tem! Está a funcionar. Só que queria que ao navegar de registo em registo, que a PictureBox automaticamente muda-se a imagem, nos botoes do primeiro, anterior, seguinte, ultimo.

    'na funcao exibedados nao sei como chamar a imagem

     

    Private Sub ExibeDados()
            'A rotina ExibeDados() exibe os valores dos campos da tabela clientes nos controles TextBox do formulário conforme o código abaixo:
            TxtCliente.Text = ds.Tables(0).Rows(i)("NCliente").ToString()
            Txtnome.Text = ds.Tables(0).Rows(i)("Nome").ToString()
            Txtmorada.Text = ds.Tables(0).Rows(i)("Morada").ToString()
            TxtLocalidade.Text = ds.Tables(0).Rows(i)("Localidade").ToString()
            MTBCodigo.Text = ds.Tables(0).Rows(i)("Codigo_Postal").ToString()
            MTBTelemovel.Text = ds.Tables(0).Rows(i)("Telemovel").ToString()
            MTBContribuinte.Text = ds.Tables(0).Rows(i)("Contribuinte").ToString()
            TxtEmail.Text = ds.Tables(0).Rows(i)("Email").ToString()
            'picBlob.Image = ds.Tables(0).Rows(i)("Imagem")

            Dim contr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Desktop\Base de Dados.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

            ' Cria uma nova ligação à base de dados 
            Dim db As New SqlConnection(contr)

            Dim SQL As String = "SELECT * FROM Clientes where Nome ='" & Txtnome.Text & "'"
            db.Open()

            'Buscar a Imagem à Base de Dados
            Dim cn As New SqlConnection(contr)
            Dim cmd1 As New SqlCommand("SELECT NCliente, " & _
             "Imagem FROM Clientes Where Nome ='" & Txtnome.Text & "' ORDER BY NCliente", cn)
            Dim da As New SqlDataAdapter(cmd1)
            'Dim ds As New DataSet()
            da.Fill(ds, "Clientes")
            Dim c As Integer = ds.Tables("Clientes").Rows.Count
            If c > 0 Then
                Dim bytImagem() As Byte = _
                    ds.Tables("Clientes").Rows(0)("Imagem")
                Dim stmImagem As New MemoryStream(bytImagem)
                picBlob.Image = Image.FromStream(stmImagem)
            End If


    sexta-feira, 31 de janeiro de 2014 15:21

Respostas

  • Jota,

    Cria uma variável para cada imagem e de acordo com o clique, você faz aparecer a proxima imagem.

    if(variável == 1)pictureBox1.imagenLocation = "gato";if(variável == 2)pictureBox1.imagenLocation = "cachorro";

    • Marcado como Resposta Giovani Cr quinta-feira, 6 de fevereiro de 2014 18:56
    sexta-feira, 31 de janeiro de 2014 15:29
  • Bom dia Jota,

    A sugestão do Alexandre resolveu o seu problema?

    Caso sim não esqueça de marcar como resposta para fechar a sua Thread.

    Att,


    Giovani Cruzara – Microsoft Contingent Staff

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

    Msdn Community Support

    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Giovani Cr quinta-feira, 6 de fevereiro de 2014 18:56
    terça-feira, 4 de fevereiro de 2014 11:48

Todas as Respostas

  • Jota,

    Cria uma variável para cada imagem e de acordo com o clique, você faz aparecer a proxima imagem.

    if(variável == 1)pictureBox1.imagenLocation = "gato";if(variável == 2)pictureBox1.imagenLocation = "cachorro";

    • Marcado como Resposta Giovani Cr quinta-feira, 6 de fevereiro de 2014 18:56
    sexta-feira, 31 de janeiro de 2014 15:29
  • Bom dia Jota,

    A sugestão do Alexandre resolveu o seu problema?

    Caso sim não esqueça de marcar como resposta para fechar a sua Thread.

    Att,


    Giovani Cruzara – Microsoft Contingent Staff

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

    Msdn Community Support

    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Giovani Cr quinta-feira, 6 de fevereiro de 2014 18:56
    terça-feira, 4 de fevereiro de 2014 11:48