none
Criar painel com picturebox para cada imagem em pasta RRS feed

  • Pergunta

  • Oi,

    Eu tenho um aplicativo que vai carregar imagens de uma pasta dentro de um painel e dentro desse painel tem que criar outro painel com picturebox dentro e um botao para visualizar a imagem grande. Eu preciso apenas de alguma ideia para criar esse panel para cada imagem que tem na pasta.

    Seguindo este mesmo raciocinio: https://social.msdn.microsoft.com/Forums/pt-BR/fac62e9b-d66d-49e9-af8a-794f3fba7fa3/criar-vrias-textbox-ao-clicar-em-boto-vbnet?forum=504

    Porem eu preciso que dentro de um painel crie paineis para cada imagem um embaixo do outro com picturebox e botao dentro.

    DESSE JEITO -> http://bit.ly/2u7gTNw


    sexta-feira, 30 de junho de 2017 16:57

Respostas

  • Boa tarde amigo, assim veja. :)

    Codigo

    Public Class Form1
        Dim i As Integer = 12
        Dim bb As Integer = 2
        Dim bbi As Integer = 55
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim open As New OpenFileDialog
            With open
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    addpic(.FileName)
                End If
            End With
        End Sub
        Sub addbutao()
            Dim xx As New Button
            xx.Name = "Button" & bb
            xx.Text = "Button" & bb
            xx.Location = New Point(159, bbi)
            AddHandler xx.Click, AddressOf Button1_Click
            Me.Panel1.Controls.Add(xx)
            i += 40
            bb += 1
            bbi += 40
        End Sub
        Sub addpic(ByVal piclocal As String)
            Dim x As New PictureBox
            x.Size = New Size(60, 30)
            x.Location = New Point(12, i)
            x.SizeMode = PictureBoxSizeMode.StretchImage
            x.Image = Image.FromFile(piclocal)
            Me.Panel1.Controls.Add(x)
            addbutao()
        End Sub
    End Class
    

    Imagem gif

    sexta-feira, 30 de junho de 2017 19:40

Todas as Respostas

  • Boa tarde, VIsualStudent.

    Tudo bem?

    Obrigado por usar o fórum MSDN.

    Essa seria uma questão de "Break fix/Erro" ou "How to/Customização"?

    Atenciosamente,


    Filipe B de Castro

    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 postagens 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.

    sexta-feira, 30 de junho de 2017 17:35
    Moderador
  • Boa tarde amigo, assim veja. :)

    Codigo

    Public Class Form1
        Dim i As Integer = 12
        Dim bb As Integer = 2
        Dim bbi As Integer = 55
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim open As New OpenFileDialog
            With open
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    addpic(.FileName)
                End If
            End With
        End Sub
        Sub addbutao()
            Dim xx As New Button
            xx.Name = "Button" & bb
            xx.Text = "Button" & bb
            xx.Location = New Point(159, bbi)
            AddHandler xx.Click, AddressOf Button1_Click
            Me.Panel1.Controls.Add(xx)
            i += 40
            bb += 1
            bbi += 40
        End Sub
        Sub addpic(ByVal piclocal As String)
            Dim x As New PictureBox
            x.Size = New Size(60, 30)
            x.Location = New Point(12, i)
            x.SizeMode = PictureBoxSizeMode.StretchImage
            x.Image = Image.FromFile(piclocal)
            Me.Panel1.Controls.Add(x)
            addbutao()
        End Sub
    End Class
    

    Imagem gif

    sexta-feira, 30 de junho de 2017 19:40
  • Perfeito, me ajudou muito, que rápido slk <3 Obrigado 
    sexta-feira, 30 de junho de 2017 23:25
  • De nada amigo.
    sábado, 1 de julho de 2017 20:12