Slide show program

10 Years Ago

I get lots of error in my program like: Warning 1 WithEvents variable 'Close' conflicts with sub 'Close' in the base class 'Form' and should be declared 'Shadows'. C:\Documents and Settings\Alina\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Form1.Designer.vb 321 23 WindowsApplication1
Error 2 Expression is not a method. C:\Documents and Settings\Alina\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Form1.vb 63 9 WindowsApplication1
Error 3 Property access must assign to the property or use its value. C:\Documents and Settings\Alina\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Form1.vb 141 9 WindowsApplication1
Please somebody help me, i can not understand why.
Here is the code:

Public Class Picture_Viewer

  Public ImageNum As Integer


Private Sub opt_image1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_image1.CheckedChanged
    mypic.Image = My.Resources.img1
End Sub

Private Sub opt_image2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_image2.CheckedChanged
    mypic.Image = My.Resources.img2
End Sub

Private Sub opt_image3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_image3.CheckedChanged
    mypic.Image = My.Resources.img3
End Sub

Private Sub opt_image4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_image4.CheckedChanged
    mypic.Image = My.Resources.img4
End Sub

Private Sub opt_image5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_image5.CheckedChanged
    mypic.Image = My.Resources.img5
End Sub
Private Sub opt_image6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_image6.CheckedChanged
    mypic.Image = My.Resources.img6
End Sub
Private Sub opt_image7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    mypic.Image = My.Resources.img7
End Sub

Private Sub opt_image8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_image8.CheckedChanged
    mypic.Image = My.Resources.img8
End Sub

Private Sub opt_image9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_image9.CheckedChanged
    mypic.Image = My.Resources.img9
End Sub

Private Sub Picture_Viewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    mypic.Image = My.Resources.img3
    opt_image3.Checked = True
End Sub

Private Sub Clear_picture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clear_picture.Click
    mypic.Image = Nothing
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If (ColorDialog1.ShowDialog() = DialogResult.OK) Then
        Me.BackColor = ColorDialog1.Color
    End If

End Sub


Private Sub Back_color_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Back_color.Click
    If (ColorDialog1.ShowDialog() = DialogResult.OK) Then
        mypic.BackColor = ColorDialog1.Color
    End If

End Sub

Private Sub Previous_pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Previous_pic.Click
    ImageNum(-1)
    If ImageNum < 1 Then ImageNum = 9 ' decreases the numbers

    Select Case ImageNum
        Case 1
            mypic.Image = My.Resources.img1
            opt_image1.Checked = True
        Case 2
            mypic.Image = My.Resources.img2
            opt_image2.Checked = True
        Case 3
            mypic.Image = My.Resources.img3
            opt_image3.Checked = True
        Case 4
            mypic.Image = My.Resources.img4
            opt_image4.Checked = True
        Case 5
            mypic.Image = My.Resources.img5
            opt_image5.Checked = True
        Case 6
            mypic.Image = My.Resources.img6
            opt_image6.Checked = True
        Case 7
            mypic.Image = My.Resources.img7
            opt_image7.Checked = True
        Case 8
            mypic.Image = My.Resources.img8
            opt_image8.Checked = True
        Case 9
            mypic.Image = My.Resources.img9
            opt_image9.Checked = True
    End Select
End Sub

Private Sub Next_pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Next_pic.Click
    ImageNum(+1)
    If ImageNum > 1 Then ImageNum = 9 ' increases the numbers

    Select Case ImageNum
        Case 1
            mypic.Image = My.Resources.img1
            opt_image1.Checked = True
        Case 2
            mypic.Image = My.Resources.img2
            opt_image2.Checked = True
        Case 3
            mypic.Image = My.Resources.img3
            opt_image3.Checked = True
        Case 4
            mypic.Image = My.Resources.img4
            opt_image4.Checked = True
        Case 5
            mypic.Image = My.Resources.img5
            opt_image5.Checked = True
        Case 6
            mypic.Image = My.Resources.img6
            opt_image6.Checked = True
        Case 7
            mypic.Image = My.Resources.img7
            opt_image7.Checked = True
        Case 8
            mypic.Image = My.Resources.img8
            opt_image8.Checked = True
        Case 9
            mypic.Image = My.Resources.img9
            opt_image9.Checked = True
    End Select
End Sub


Private Sub Select_image_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Select_image.Click
    If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then

        mypic.Load(OpenFileDialog1.FileName)
    End If
End Sub

Private Sub Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close.Click
    Close()
End Sub


Private Sub Stretch_image_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_slide_show.CheckedChanged
    If (chk_slide_show.Checked) Then
        mypic.SizeMode = PictureBoxSizeMode.StretchImage
    Else
        mypic.SizeMode = PictureBoxSizeMode.Normal
    End If
End Sub


Private Sub Slide_show_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slide_show.CheckedChanged
    If Slide_show.Checked = True Then
        Timer1.Enabled = True
    Else
        Timer1.Enabled = False
    End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Call Next_pic_Click(sender, e)
End Sub

End Class

visual-basic-6

1 Contributor
0 Replies
109 Views

Be the first to reply

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.