A Picture Viewer Application

Write the code shown below:

'Programmer: Janet Joy
'Picture view: open and view picture
Public Class Form1
    Private Sub mnuExit_Click(sender As Object, e As EventArgs) Handles mnuExit.Click
    End Sub

    Private Sub mnuOpen_Click(sender As Object, e As EventArgs) Handles mnuOpen.Click
        Me.OpenFileDialog1.Filter = "All Pictures|*.bmp;*.gif;*.png;*.jpg|JPG|*.jpg|Bitmaps|*.bmp|GIFS|*.gif|PNG|*.png"
        Me.OpenFileDialog1.FileName = ""
        If Me.OpenFileDialog1.FileName <> "" Then
            Me.Text = Me.OpenFileDialog1.FileName
        End If
    End Sub
End Class

Test your program and try opening several different picture formats.

Save all before moving on to the next step.

NEXT: Select a folder