How do I remove all picture boxes added to panel1.controls

Question

0.00/5 (No votes)

See more:

So, I am able to do close to what in the program, The problem I am having is when I go to select a new row, it adds the images along with the old one. If I add a Me.panel1.controls.clear statement it removes the picture, but it leaves empty spaces. I am trying to show only the pictures related to the row I pick.

Here is the code I am working with:

Private Sub Gridview_selectedIndexchenge(ByVal sender As Object, ByVal e As EventArgs) Handles DataGridView1.MouseClick

        For Each DGRS As DataGridViewRow In DataGridView1.SelectedRows

            Dim I As Integer = 0
            I = DataGridView1.SelectedRows(0).Index

            Dim IC As Integer = 0
            IC = DataGridView1.Columns(0).Index

            If DGRS.Selected = True Then

                Dim rowpic = (DataGridView1.Rows(I).Cells(0).Value)

                PictureBox1.Image = rowpic
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                DGRS.Dispose()

            End If
        Next

        For Each Imgdgvi As DataGridViewImageCell In DataGridView1.SelectedCells

            Dim pic As New PictureBox()
            pic.Image = Imgdgvi.Value
            pic.SizeMode = PictureBoxSizeMode.StretchImage

            pic.SetBounds(wid, 20, 200, 100)
            ' pic.Location = New Point(10, pic.Height)
            AddHandler pic.Click, AddressOf convertPic
            Me.Panel1.Controls.Add(pic)
            wid += 205
        Next



    End Sub

Could someone help me with a simple way to remove the old and add te new through a row select?

What I have tried:

I have tried to set a for each img as picturebox in panel1.control then using a remove statement, that didn't work. I have tried the obvious me.panel1.controls.clear, but it leaves empty spaces.

Posted 5-May-17 21:34pm

Member 11856456

Updated 5-May-17 22:21pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

kosmas kafataridis · Accepted Answer · 2017-05-05T22:21:00

Try this

VB

Private Sub Gridview_selectedIndexchenge(ByVal sender As Object, ByVal e As EventArgs) Handles DataGridView1.MouseClick
        me.panel1.controls.clear()
        wid = 0 
        For Each DGRS As DataGridViewRow In DataGridView1.SelectedRows
 
            Dim I As Integer = 0
            I = DataGridView1.SelectedRows(0).Index
 
            Dim IC As Integer = 0
            IC = DataGridView1.Columns(0).Index
 
            If DGRS.Selected = True Then
 
                Dim rowpic = (DataGridView1.Rows(I).Cells(0).Value)
 
                PictureBox1.Image = rowpic
                PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                DGRS.Dispose()
 
            End If
        Next
 
        For Each Imgdgvi As DataGridViewImageCell In DataGridView1.SelectedCells
 
            Dim pic As New PictureBox()
            pic.Image = Imgdgvi.Value
            pic.SizeMode = PictureBoxSizeMode.StretchImage
 
            pic.SetBounds(wid, 20, 200, 100)
            ' pic.Location = New Point(10, pic.Height)
            AddHandler pic.Click, AddressOf convertPic
            Me.Panel1.Controls.Add(pic)
            wid += 205
        Next
 

 
    End Sub