Picture Box double click runs event twice...

[adamarek]

I am creating aplication that displays images in many different ways using Picture Boxes. Single page with tabs, double page using fading in/out effect,
double page 'page flip' effect and single page auto scroll effect which I have problem with. I am dinamicaly creating picture boxes, loading images, placing
'path' to a file in tag and adding handler to each picture box. All fine...

Private Sub CoverPageContemp()          
             For j As Integer = 1 To numControls  
                'MAIN PICTURE VIEW AREA
                picViewer = New PictureBox
                picViewer.Height = PIC_HEIGHT             'Assign height 
                picViewer.Width = PIC_WIDTH                '& width values to picBox
                picViewer.Name = "PicView" & j.ToString             'Name the current picBox -  PicView0
                picViewer.Location = ptLbl
                picViewer.BorderStyle = BorderStyle.FixedSingle
                TabControl2.SelectedTab.Controls.Add(picViewer)     'add control
                ptLbl.Y += PIC_HEIGHT + 5    'increase ptlbl.Y to place next picturebox to the bottom

                index = DataGridView3.SelectedRows.Item(j - 1).Index
                Dim chedk As Integer
                Dim NoImage As String
                Dim level As String


             
                CoverPage = 1
                Dim myimage As Image = picViewer.Image
                Dim g As Graphics = Graphics.FromImage(myimage)
                Dim mainFont As Font
                Dim textStyle As New FontStyle
                mainFont = New Font("Pristina", 32, FontStyle.Bold) 'Times New Roman
                Dim textArea As Rectangle = New Rectangle(20, 250, 400, 100)
                Dim textFormat As StringFormat = New StringFormat
                textFormat.LineAlignment = StringAlignment.Center
                textFormat.Alignment = StringAlignment.Center
                Dim text As String = DataGridView3.Rows(index).Cells(2).Value 
                g.DrawString(text, mainFont, Brushes.Black, textArea, textFormat)

                'COMPOSER NAME

                Dim mainFont1 As Font
                Dim textStyle1 As New FontStyle
                mainFont1 = New Font("Monotype Corsiva", 48, FontStyle.Italic)
                Dim textArea1 As Rectangle = New Rectangle(0, 120, 440, 100)
                Dim textFormat1 As StringFormat = New StringFormat
                textFormat1.LineAlignment = StringAlignment.Center
                textFormat1.Alignment = StringAlignment.Center
                Dim text1 As String = DataGridView3.Rows(index).Cells(1).Value 
                g.DrawString(text1, mainFont1, Brushes.Red, textArea1, textFormat1)
                picViewer.SizeMode = PictureBoxSizeMode.StretchImage

                Dim dgv3path As String = DataGridView3.Rows(index).Cells(0).Value
                picViewer.Tag = dgv3path

                picViewer.Cursor = Cursors.Hand
                ToolTip1.SetToolTip(picViewer, "Double_Click to View Sheet Music.")
                ToolTip1.ShowAlways = True
                ToolTip1.Active = True

                AddHandler picViewer.DoubleClick, AddressOf picViewer_Clicked   'Adding handler to each picture box

                g.Dispose()
            Next
        
        SplitContainer1.Visible = True
        SplitContainer1.BringToFront()
        SplitContainer1.Dock = DockStyle.Fill


    End Sub

When double clicking on the P.Box image is loaded in first P.Box .

Private Sub picViewer_Clicked(ByVal sender As Object, ByVal e As System.EventArgs)
       
        If BookFormToolStripMenuItem1.CheckState = CheckState.Checked Then
            pathload = (DirectCast(sender, PictureBox).Tag)
            If currentpath = pathload Then
                Exit Sub
            End If
            currpage12 = 0
            currpage22 = 0
            totalPages1 = 0
            currentpath = pathload
            Call doublebookstyle()

       

        ElseIf AutoScrollToolStripMenuItem.CheckState = CheckState.Checked Then
            pathload = (DirectCast(sender, PictureBox).Tag)
            If currentpath = pathload Then
                Exit Sub
            End If

            currpage12 = 0
            currpage22 = 0
            totalPages1 = 0
            currentpath = pathload
            
            Call AutoScrollOnePage()
            
    End Sub

Every additional image (frame) from .tif file is automaticly scroll from the top.

 Private Sub AutoScrollOnePage()
        If pathload Is Nothing Then
            Exit Sub
        End If
        
        Dim extention As String = pathload
        extention = extention.Substring(extention.LastIndexOf(".") + 1).ToLower
        If extention = "tif" Then
            fs1 = File.OpenRead(pathload)
            srcBmp = CType(Bitmap.FromStream(fs1), Bitmap)
            srcBmp1 = CType(Bitmap.FromStream(fs1), Bitmap)
            totalPages1 = CInt(srcBmp.GetFrameCount(FrameDimension.Page) - 1)
        Else
           
             Exit Sub
           
        End If

        Dim Tpcount As Integer = TabControl3.TabPages.Count
        For i As Integer = Tpcount - 1 To 1 Step -1
            TabControl3.TabPages.RemoveAt(i)
        Next

        Dim autopage = New TabPage
        autopage.Name = "TabPg" & 1
        TabControl3.TabPages.Add(autopage)
        autopage.Text = "Auto_Scroll"
        autopage.BackColor = Color.Silver
        autopage.AutoScroll = True
        autopage.BorderStyle = BorderStyle.Fixed3D
        TabControl3.SelectTab(autopage.Name)
        autopage.IsAccessible = True

        TestPictureC = New PictureBox
        TestPictureD = New PictureBox

        TestPictureC.Height = Image.FromFile(pathload).Height       'Assign height 
        TestPictureC.Width = Image.FromFile(pathload).Width + 10        'Assign Width 
        TestPictureC.SizeMode = PictureBoxSizeMode.Normal
        TestPictureC.BackColor = Color.White
        Dim ptloc As Integer = (TabControl3.Width - TestPictureC.Width) / 2 - 20 '140
        Dim ptLbl As Point = New Point(ptloc, 1)  'the controls position
        TestPictureC.Location = ptLbl
        TestPictureC.BorderStyle = BorderStyle.None
        TabControl3.SelectedTab.Controls.Add(TestPictureC) 'add control

        TestPictureD.Height = Image.FromFile(pathload).Height       'Assign height 
        TestPictureD.Width = Image.FromFile(pathload).Width    '760      'Assign Width 
        TestPictureD.SizeMode = PictureBoxSizeMode.CenterImage
        TestPictureD.BackColor = Color.White
        TestPictureD.Location = TestPictureC.Location
        TestPictureD.BorderStyle = BorderStyle.FixedSingle
        TabControl3.SelectedTab.Controls.Add(TestPictureD)
        
        
       
        For j As Integer = 0 To totalPages1 - 1

            currentPage1 = j

            srcBmp1 = CType(Bitmap.FromStream(fs1), Bitmap)
            srcBmp1.SelectActiveFrame(FrameDimension.Page, currentPage1)
            TestPictureD.Image = srcBmp1

            Dim currj1 As Integer = (totalPages1 + 1) - (totalPages1 - j)
            If currj1 > totalPages1 Then
                Exit Sub
            End If

            srcBmp.SelectActiveFrame(FrameDimension.Page, currj1)

            Tpic = 0

            For i As Integer = 0 To TestPictureC.Height - 1 Step 1
                AddHandler TestPictureD.Paint, AddressOf TestPicture0_paint

                TestPictureC.Height = i
                TestPictureC.Image = srcBmp
                TestPictureC.BringToFront()
                TestPictureD.Refresh()
                TestPictureC.Refresh()
                RemoveHandler TestPictureD.Paint, AddressOf TestPicture0_paint

                Application.DoEvents()


             Next

        Next
        
        RemoveHandler TestPictureD.Paint, AddressOf TestPicture0_paint

    End Sub

I am also using Paint Event of a PictureBox to display gradiant color to imitate shadow in front of the scrolling image.

 Private Sub TestPicture0_paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)
        If AutoScrollToolStripMenuItem.CheckState = CheckState.Checked Then

            Tpic += 1
            Dim rect As Rectangle = New Rectangle(0, Tpic - 2, TestPictureC.Width, 20)
            Dim lgb As New System.Drawing.Drawing2D.LinearGradientBrush(rect, Color.Gray, Color.Transparent, Drawing2D.LinearGradientMode.Vertical)
            e.Graphics.FillRectangle(lgb, rect)
            e.Dispose()

        End If
    End Sub

The problem is: if I let the event finish displaying all pages(frames) then there is no problem with double clicking different P.Box and run different file.
However, if I double click a different P.Box when first event is still runing then
file gets open run as it should but when finish, it starts displaying the file again ?
Sorry for posting so much code, but I wanted you to check what am I doing wrong. Thanks for any help..( I had to shorten the first code_to many characters in the post..)

[weirddemon]

You know you're using the Picture Box's Click event and not DoubleClick event, right?

Well, it would appear that way at least. I don't actually see an event handler there, but the _Click is visible =/

[AirlineSim]

Private Sub picViewer_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles picViewer.DoubleClicked

[adamarek]

Please explain, by adding handler : AddHandler picViewer.DoubleClick AddressOf picViewer_Clicked ' I have to double click the Picture Box to load a file ?

 picViewer.Cursor = Cursors.Hand
                ToolTip1.SetToolTip(picViewer, "Double_Click to View Sheet Music.")
                ToolTip1.ShowAlways = True
                ToolTip1.Active = True

                AddHandler picViewer.DoubleClick, AddressOf picViewer_Clicked   'Adding handler to each picture box

                g.Dispose()
            Next
        
        SplitContainer1.Visible = True
        SplitContainer1.BringToFront()
        SplitContainer1.Dock = DockStyle.Fill

AirlineSim....
Private Sub picViewer_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) Handles picViewer.DoubleClicked '

I am getting error: ' Handles clause requires a WithEvents variable.....

[AirlineSim]

Sorry I missed that part of the code, is it because you have clicked and double click as a handler? remove one and test it.

[adamarek]

Back to square one...

[adamarek]

I still have not found solution to this problem. What I have observed is that the last image from previous double_click does not get dispose and is redrown again. I have created Boolean and placed it in Button Click event.

 Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click

        test11 = True
       
    End Sub

Then I have palaced 'test11' inside 'If' statement:

For j As Integer = 0 To totalPages1 - 1

            currentPage1 = j

            srcBmp1 = CType(Bitmap.FromStream(fs1), Bitmap)
            srcBmp1.SelectActiveFrame(FrameDimension.Page, currentPage1)
            TestPictureD.Image = srcBmp1

            Dim currj1 As Integer = (totalPages1 + 1) - (totalPages1 - j)
            If currj1 > totalPages1 Then
                Exit Sub
            End If
            srcBmp.SelectActiveFrame(FrameDimension.Page, currj1)

            Tpic = 0

            For i As Integer = 0 To TestPictureC.Height - 1 Step 1

                AddHandler TestPictureD.Paint, AddressOf TestPicture0_paint

                TestPictureC.Height = i
                TestPictureC.Image = srcBmp
                TestPictureC.BringToFront()
                TestPictureD.Refresh()
                TestPictureC.Refresh()

                RemoveHandler TestPictureD.Paint, AddressOf TestPicture0_paint
                Application.DoEvents()

                If test11 = True Then


                    test11 = False
                    MsgBox("00000 " & test11)
                    Exit Sub

                End If

            Next

        Next

Now, if I click the ToolStripButton7 and set the 'test11' to true and than double_click on different Picture Box then
all works as it should. I want to be able to do this in 'Private Sub picViewer_Clicked()' when double_clicking different P.Box. I have tryed using 'ToolStripButton7.PerformClick()' but it dosen't work. So it seem that some how I have to dispose, the last double_click or something before 'Private Sub AutoScrollOnePage()' get call again. Please help, I have been pulling my hair for couple days now....

[adamarek]

I am willing to try any suggestion, any one ?