How can I view pictureboxes in a panel1.control?

Question

0.00/5 (No votes)

See more:

I am wanting to be able to navigate through each picturebox in my panel1.controls through using the right and left arrow keys, not sure why the code I am using isnt allowing me to do so.

Here is the code I am using:

Sub convertPic(ByVal sender As System.Object, ByVal e As System.EventArgs)

     'CONVERT SENDER INTO PICTUREBOX, used on the images being displayed on the panel control, not used for images in database
     pic = CType(sender, PictureBox)

     ' Make new picturebox and fill it with inage data from pic, then after making dimesions fill dock with that image so that it
     ' can be streched or forshortend by dragging form.
     Dim expandpic As New PictureBox
     expandpic.Height = pic.Image.Height
     expandpic.Width = pic.Image.Width
     expandpic.Image = pic.Image
     expandpic.Dock = DockStyle.Fill
     expandpic.SizeMode = PictureBoxSizeMode.StretchImage

     ' Make a new form and add the new picture data to it
     Dim picform As New Form
     picform.Controls.Add(expandpic)
     picform.Height = 800
     picform.Width = 600
     picform.Show()


 End Sub
 Private Sub Navigate_pics(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Panel1.KeyDown


     If e.KeyCode = Keys.Right Then
         expandpic = CType(sender, PictureBox)
         picform.SelectNextControl(expandpic, True, True, True, True)
     End If




 End Sub

not sure whats going on.

What I have tried:

I tried to change picform, which is a form to panel1.controls and switched that out and it didnt work. Not sure what to do.

Posted 17-Jul-17 18:43pm

Member 11856456

Updated 19-Jul-17 3:26am

v2

Add a Solution

Comments

Ralf Meier 18-Jul-17 3:45am

Perhaps you try it like this :

Private Sub Navigate_pics(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Panel1.KeyDown
Panel1.SelectNextControl ...
End Sub

??? What is pic inside the SelectNextControl ? Where is it defined and assigned ?

Member 11856456 18-Jul-17 3:54am

Pic is the pictureboxes I have created from an array. Pic is added to panel1.controls. I am trying to use the right and left arrow keys to go back and forth between the images to that they can be displayed at a pace someone would like to go.

Ralf Meier 18-Jul-17 6:12am

That is different to the code you have posted ...
When I see the code I suppose that you have a Panel with x PictureBoxes in it. Your Panel has the Focus and you want to select the next PictureBox inside the Panel.
So ... what do you really have ? A count of PictureBoxes inside a Panel or one PictureBox which should display severall Pictures ?
If you have a count of PictureBoxes and you select one of it the Panel has no longer the Focus. So now the Keydown-Event will come from the PictureBox ...
If you have one PictureBox you should think about building a customized Version of it which has the desired behaviour ...

Member 11856456 18-Jul-17 17:52pm

I have improved the question, I thought it was going to be a simple answer that I just couldn't figure out. The reason I assume the panel holds the info I want is because the original pictureboxes, dubbed "pic" are located in the panel.

Ralf Meier 19-Jul-17 3:40am

You haven't allready answered my question(s) ...
Please remember : I don't sit beside you and I can't see what you see ...

Member 11856456 19-Jul-17 5:04am

There is no counter, images are converted per folder that they are in as an array. those pictures are placed individually into picture boxes and then displayed in panel1.control. I can go 1 image at a time, but I want to be able to scroll through each image with the right arrow key.

1. there are pictureboxes in the panel
2. I am not sure where the keydown event should be placed and how its properly used.
3. "pic" which is the array of pictureboxes is the behavior picturebox is suppose to do. I am just wanting to individually go to the next one and have it displayed. I figure it would be easier to make a new form and display them on it going to the next picture box in line. It would look like a pictureviewer in a way.

Ralf Meier 19-Jul-17 5:34am

I repeat with my words what I have understood (what you want to have) ...
- a control to which you can give a list of Pictures which were displayed
- you can/will display for example 5 Pictures
- with the left/right-Cursor you want to rotate the list foreward or backward so that different Pictures are/could be displayed

In the Moment you realized it with a Panel which contains severall PictureBoxes
- with the Cursor-Key you want to rotate the PictureBoxes or their Content

So my question (because that would be my approach) :
Why don't you create your own customized Control which has this behaviour ? This control could have a Property (type List of Image) where the Images are defined. Inside this control you do each necessary action ...
In the first moment this would seam to be a lot of work ... but once startet with it you could see that it is much easier as it seamed at the beginning ...

Member 11856456 19-Jul-17 5:53am

I see what you are saying, but I have no idea on how to approach it. I am still learning vb.net. every so often I try to advance what I have to something more efficent, or advanced. So if you could help out and show an example of what you are thinking much would be appreciated.

Ralf Meier 19-Jul-17 9:26am

see my 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)

Ralf Meier · Accepted Answer · 2017-07-19T03:26:00

This is a little Quick-and-Dirty Solution for you.
Not everything works optimal but I think you could see what basicly could be done ...

VB

Imports System.ComponentModel

Public Class myPB
    Inherits Control

    Public Sub New()
        Me.Size = New Size(640, 160)
        Me.BackColor = Color.Gainsboro
        SetStyle(ControlStyles.Selectable, True)
    End Sub

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
    ReadOnly Property Images As List(Of ImageDefinition)
        Get
            Return my_Images
        End Get
    End Property
    Private my_Images As New List(Of ImageDefinition)

 
    Property ImagesVisible As Integer
        Get
            Return my_ImagesVisible
        End Get
        Set(value As Integer)
            my_ImagesVisible = value
            my_ImageSize = New Size(Me.Width / my_ImagesVisible, Me.Height)
            Me.Invalidate()
        End Set
    End Property
    Private my_ImagesVisible As Integer = 3
    Private my_ImageSize As Size

    Property ActualImage As Integer
        Get
            Return my_ActualImage
        End Get
        Set(value As Integer)
            my_ActualImage = value '+ my_Images.Images.Count) Mod my_Images.Images.Count
            If my_ActualImage < 0 Then my_ActualImage = my_Images.Count - 1
            If my_ActualImage > my_Images.Count - 1 Then my_ActualImage = 0
              Me.Invalidate()
        End Set
    End Property
    Private my_ActualImage As Integer = 0


    Protected Overrides Sub OnResize(e As EventArgs)
        my_ImageSize = New Size(Me.Width / ImagesVisible, Me.Height)
        MyBase.OnResize(e)
        Me.Invalidate()
    End Sub

    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        Dim gr As Graphics = e.Graphics

        If my_Images.Count > 0 Then
            Dim inx As Integer
            Dim n As Integer = my_ImagesVisible : If n > my_Images.Count Then n = my_Images.Count
            Dim myImage As Image
            For i As Integer = 0 To n - 1
                inx = (i + my_ActualImage) Mod my_Images.Count
                'If inx > my_Images.Images.Count Then inx = 0
                myImage = my_Images.Item(inx).xImage
                gr.DrawImage(myImage, New Rectangle(i * my_ImageSize.Width, 0, my_ImageSize.Width, my_ImageSize.Height), New Rectangle(0, 0, myImage.Width, myImage.Height), GraphicsUnit.Pixel)
            Next
        End If

        MyBase.OnPaint(e)
    End Sub

    'Protected Overrides Sub OnKeyDown(e As KeyEventArgs)
    '    If e.KeyCode = Keys.Left Then
    '        ActualImage -= 1
    '    ElseIf e.KeyCode = Keys.Right Then
    '        ActualImage += 1
    '    Else
    '        MyBase.OnKeyDown(e)
    '    End If
    'End Sub

    Protected Overrides Sub OnMouseClick(e As MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then ActualImage += 1
        If e.Button = Windows.Forms.MouseButtons.Right Then ActualImage -= 1
          MyBase.OnMouseClick(e)
    End Sub

End Class

Public Class ImageDefinition

    Public Property xImage As Image

End Class

My Control in the moment only works with the MouseButtons. With the Keyboard is still unrealized (at the moment) ...

Additional :
to handle the Keyboard you have to add this method to the code :

VB

Protected Overrides Sub OnPreviewKeyDown(e As PreviewKeyDownEventArgs)
    If e.KeyCode = Keys.Left Then ActualImage += 1
    If e.KeyCode = Keys.Right Then ActualImage -= 1
      MyBase.OnPreviewKeyDown(e)
End Sub