Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
JotaMax

Imagem aparecer AUTOMATICAMENTE em PictureBox

Recommended Posts

Boas pessoal!

Tenho esta 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 botões do primeiro, anterior, seguinte, ultimo.

 

'na funcao exibedados nao sei como chamar a imagem Private Sub ExibeDados()        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()        Dim ms As New MemoryStream(ObtemImagem(CInt(ds.Tables(0).Rows(i)("Imagem").value())        picBlob.Image = Image.FromStream(ms)    End Sub    Function ObtemImagem(ByVal Img As Integer) As Byte()        Dim Str As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Desktop\Base de Dados.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"        Dim sqlDa As New SqlDataAdapter        'Dim dtb As DataTable        Dim sqlCon As New SqlConnection(Str)        Dim sqlCmd As New SqlCommand        Dim Imagem() As Byte = Nothing        With sqlCmd            .CommandType = CommandType.Text            .CommandText = "Select Imagem From Clientes Where NCliente = " & Img            .Connection = sqlCon        End With        Try            sqlCon.Open()            Imagem = CType(sqlCmd.ExecuteScalar(), Byte())        Catch ex As Exception            MsgBox("Erro : " + ex.Message)        Finally            sqlCon.Close()        End Try        Return Imagem    End Function    Private Sub Primeiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Primeiro.Click        'Criamos uma instância do objeto Connection usando a string de conexão para o banco desejado;        conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Acer\Desktop\Base de Dados.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")        conn.Open()Clientes;        da = New SqlDataAdapter("select * from Clientes", conn)        ds = New DataSet()        da.Fill(ds, "Clientes")        Call ExibeDados()        If ds.Tables(0).Rows.Count > 0 Then            i = 0            Call ExibeDados()        End If    End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×