LISTAR IMAGENS

THRON 19/02/2016 00:18:32
#457882
Boa noite galera,

como faço para, [Ô]listar[Ô] imagens do banco de dados, uma ao lado da outra?? carregando a partir de uma DataGridView ou direto do MySql ou se tiver como fazer direto do Datagridview, mostrar uma linha do lado da outra ao envés de mostrar em baixo
KURTGU 19/02/2016 00:33:48
#457883 Resposta escolhida
Use um flowlayout panel
THRON 19/02/2016 00:41:51
#457884
https://youtu.be/Ob8P_MXB9E4

Acho que com esse video chego onde eu quero, más e a parte do Selec Case, ele especificou 10, porque ele sabe que irá ter 10 botões, e se ele não soubesse?
THRON 19/02/2016 01:13:19
#457885
A parte do Select:

    Dim c As PictureBox = CType(sender, PictureBox)
        Dim linha As Integer = 0
        Select Case c.Text
            Case 0
                DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(2)
                MessageBox.Show([Ô]Foi?0[Ô])
                Dim bits As Byte() = CType(DataGridView1.CurrentRow.Cells(2).Value, Byte())
                Dim memorybits As New MemoryStream(bits)
                Dim bitmap As New Bitmap(memorybits)
                c.Image = bitmap
            Case 1
                MsgBox([Ô]Foi?4[Ô])
                DataGridView1.CurrentCell = DataGridView1.Rows(1).Cells(2)
                Dim bits As Byte() = CType(DataGridView1.CurrentRow.Cells(2).Value, Byte())
                Dim memorybits As New MemoryStream(bits)
                Dim bitmap As New Bitmap(memorybits)
                c.Image = bitmap
            Case 2
                MsgBox([Ô]Foi?4[Ô])
            Case 3
                MsgBox([Ô]Foi?4[Ô])
            Case 4
                MsgBox([Ô]Foi?4[Ô])
            Case 5
                MsgBox([Ô]Foi?4[Ô])
            Case 6
                MsgBox([Ô]Foi?4[Ô])

        End Select


Como faria isso em um evento Load com um For??

Eu tentei assim, más está apenas colocando a imagem no ultimo picture e a ultima imagem do Grid

   For i = 0 To 12 Step 1
            DataGridView1.CurrentCell = DataGridView1.Rows(i).Cells(2)
            Dim bits As Byte() = CType(DataGridView1.CurrentRow.Cells(2).Value, Byte())
            Dim memorybits As New MemoryStream(bits)
            Dim bitmap As New Bitmap(memorybits)

        Next

THRON 19/02/2016 01:15:06
#457886
Aqui é como crio o Picture

   For i = 0 To 12
            img = New PictureBox
            img.Text = i.ToString()
            img.Name = [Ô]PictureBox[Ô] + i.ToString()
            img.Cursor = Cursors.Hand
            img.BackColor = Color.Red
            img.Height = 88
            img.Width = 70
            img.SizeMode = PictureBoxSizeMode.StretchImage
            FlowLayoutPanel1.Controls.Add(img)
            AddHandler img.Click, AddressOf img_click
        Next
THRON 19/02/2016 01:47:39
#457887
Consegui assim:

   For i = 0 To 12
            img = New PictureBox
            img.Text = i.ToString()
            img.Name = [Ô]PictureBox[Ô] + i.ToString()
            img.Cursor = Cursors.Hand
            img.BackColor = Color.FromArgb(&HFF0000)
            img.Height = 88
            img.Width = 70
            img.SizeMode = PictureBoxSizeMode.StretchImage
            img.BorderStyle = BorderStyle.FixedSingle
            FlowLayoutPanel1.Controls.Add(img)
            AddHandler img.Click, AddressOf img_click


            DataGridView1.CurrentCell = DataGridView1.Rows(i).Cells(2)
            Dim bits As Byte() = CType(DataGridView1.CurrentRow.Cells(2).Value, Byte())
                Dim memorybits As New MemoryStream(bits)
                Dim bitmap As New Bitmap(memorybits)
            Dim c As PictureBox = img
            Dim Nome As String = DataGridView1.CurrentRow.Cells(1).Value
            Select Case c.Text
                Case i
                    img.Image = bitmap
                    img.Tag = Nome
            End Select


        Next


Agora quero fazer um esquema, de setar os nomes nas Tags, ai quando for abrir verifica qual tag é, so que a tag ta me dando o ultimo registro
THRON 19/02/2016 01:49:23
#457888
Descobri, erá so mudar de Img.Tag = Nome para C.Tag = nome


Agora sobre a parte do Select Case, como faço caso eu não sei quantos Cases eu tenho?
THRON 19/02/2016 02:00:58
#457889
Pulando de alegria aq

     Dim c As PictureBox = CType(sender, PictureBox)
        Dim sele = c.Text
        Select Case c.Text
            Case sele
                                              MsgBox(c.Tag)



        End Select


Conseguiiiiiiiiiiiiii, Vlw caraaaaaaaa
KURTGU 19/02/2016 07:29:21
#457893
Uma dica crie um usercontrol com uma picturebox VC vai ter uma efeito bacana de lista postei uma foto esses dias em um poste seu ...
KURTGU 19/02/2016 08:08:47
#457894
A sua lista ira ficar desta forma claro que fiz o meu usercontrol...
KURTGU 19/02/2016 10:42:33
#457901
[txt-color=#e80000]Se sua duvida foi Sanada Feche o Poste e Marque a Resposta Correta Abracos...[/txt-color]
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar