How would I add a print method and print page event to the Video Collection prob

ID: 3828467 • Letter: H

Question

How would I add a print method and print page event to the Video Collection problem in Visual Basics so I can print a report listing all the video reocords in the file?

Here is what I have so far:

Public Class VideoCollection

'Declaration of Structure
Structure VideoCollection

        'Local variables
        Dim nameOfvideo As String           'To hold name of video
        Dim yearOfproduction As Integer     'To hold year of video production
        Dim runTime As String               'To hold video run time
        Dim ratingForvideo As String        'To hold the ratings of the video

'End Stucture
End Structure

    'Declaration of variables for file
    Dim mytextFile As StreamWriter
    Dim mysearchFile As StreamReader

Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click

'Declaration of Structure variable
Dim videoRecord As VideoCollection

'Get video name.
videoRecord.nameOfvideo = txtVideoName.Text

'Get year produced.
videoRecord.yearOfproduction = Convert.ToInt32(txtYearProduced.Text)

'Get running time.
videoRecord.runTime = txtRuntime.Text

'Get rating
videoRecord.ratingForvideo = txtRating.Text

'Open file
mytextFile = File.CreateText("D:VideoCollection.txt")

        'Write the data
        mytextFile.WriteLine(videoRecord.nameOfvideo)
        mytextFile.WriteLine(videoRecord.yearOfproduction)
        mytextFile.WriteLine(videoRecord.runTime)
        mytextFile.WriteLine(videoRecord.ratingForvideo)

'Close the file.
mytextFile.Close()

'Call function reset()
Reset()

End Sub

Private Sub ReportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReportToolStripMenuItem.Click

        'Local vairables
        Dim videoReport As String
        videoReport = "Report on Video" + vbNewLine

'Open file
mysearchFile = File.OpenText("D:VideoCollection.txt")

        Try
            'Read all the lines in the file
            While Not mysearchFile.EndOfStream
                videoReport += mysearchFile.ReadLine() + "" + vbNewLine
                videoReport += mysearchFile.ReadLine() + "" + vbNewLine
                videoReport += mysearchFile.ReadLine() + "" + vbNewLine
                videoReport += mysearchFile.ReadLine() + "" + vbNewLine
                videoReport += vbNewLine
            End While

Catch ex As Exception

End Try

'Display video content report
MessageBox.Show(videoReport)

End Sub

    Private Sub SearchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SearchToolStripMenuItem.Click
        'Open file
        mysearchFile = File.OpenText("D:VideoCollection.txt")

        'Local Variables
        Dim saveName As String
        Dim flagValue As Integer
        flagValue = 0

'Get video name
saveName = InputBox("Enter Video Name")

'Declaration of structure variable
Dim videoSearchRecord As VideoCollection

Try

'Read all the lines in the file
While Not mysearchFile.EndOfStream

                videoSearchRecord.nameOfvideo = mysearchFile.ReadLine()         'Read video name line
                videoSearchRecord.yearOfproduction = mysearchFile.ReadLine()    'Read year of production line
                videoSearchRecord.runTime = mysearchFile.ReadLine()             'Read running time line
                videoSearchRecord.ratingForvideo = mysearchFile.ReadLine()      'Read ratings for video line

                'Make sure the video searched for matches videos on file
                If videoSearchRecord.nameOfvideo.Equals(saveName) Then
                    flagValue = 1

End If

End While

            'If video found then display video information
            If flagValue.Equals(1) Then
                txtVideoName.Text = videoSearchRecord.nameOfvideo.ToString()
                txtYearProduced.Text = videoSearchRecord.yearOfproduction.ToString()
                txtRuntime.Text = videoSearchRecord.runTime.ToString()
                txtRating.Text = videoSearchRecord.ratingForvideo.ToString()

Else

MessageBox.Show("Records do not exist")

Reset()

End If

Catch ex As Exception

End Try

End Sub

Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click

        'Close VideoCollection form
        Me.Close()
    End Sub

    Private Sub HelpToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HelpToolStripMenuItem.Click
        'Display explination on how to use program
        MessageBox.Show("1. Enter the video information in the text boxes and then click save when done." +
                vbNewLine + "2. Click the Report menu to generate a video report on the saved information" +
                vbNewLine + "3. Click search to search for the video information already saved by entering" +
                " the movie title.")

End Sub

Public Sub reset()

        'Clear text boxes
        txtVideoName.Text = ""
        txtYearProduced.Text = ""
        txtRuntime.Text = ""
        txtRating.Text = ""

End Sub

End Class

Explanation / Answer

Public Class VideoCollection

'Declaration of Structure
Structure VideoCollection

'End Stucture
End Structure

    'Declaration of variables for file
    Dim mytextFile As StreamWriter
    Dim mysearchFile As StreamReader

Private Sub SaveToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveToolStripMenuItem.Click

'Declaration of Structure variable
Dim videoRecord As VideoCollection

'Get video name.
videoRecord.nameOfvideo = txtVideoName.Text

'Get year produced.
videoRecord.yearOfproduction = Convert.ToInt32(txtYearProduced.Text)

'Get running time.
videoRecord.runTime = txtRuntime.Text

'Get rating
videoRecord.ratingForvideo = txtRating.Text

'Open file
mytextFile = File.CreateText("D:VideoCollection.txt")

'Close the file.
mytextFile.Close()

'Call function reset()
Reset()

End Sub

Private Sub ReportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReportToolStripMenuItem.Click

        'Local vairables
        Dim videoReport As String
        videoReport = "Report on Video" + vbNewLine

'Open file
mysearchFile = File.OpenText("D:VideoCollection.txt")

Catch ex As Exception

End Try

'Display video content report
MessageBox.Show(videoReport)

End Sub

    Private Sub SearchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SearchToolStripMenuItem.Click
        'Open file
        mysearchFile = File.OpenText("D:VideoCollection.txt")

        'Local Variables
        Dim saveName As String
        Dim flagValue As Integer
        flagValue = 0

'Get video name
saveName = InputBox("Enter Video Name")

'Declaration of structure variable
Dim videoSearchRecord As VideoCollection

Try

'Read all the lines in the file
While Not mysearchFile.EndOfStream

                'Make sure the video searched for matches videos on file
                If videoSearchRecord.nameOfvideo.Equals(saveName) Then
                    flagValue = 1

End If

End While

Else

MessageBox.Show("Records do not exist")

Reset()

End If

Catch ex As Exception

End Try

End Sub

Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click

        'Close VideoCollection form
        Me.Close()
    End Sub

End Sub

Public Sub reset()

        'Clear text boxes
        txtVideoName.Text = ""
        txtYearProduced.Text = ""
        txtRuntime.Text = ""
        txtRating.Text = ""

End Sub

End Class

Navigate

How would I add a common semaphore, to shared1.cpp and shared2.cpp to protect th

How would I add a variable onto an image, and a specific spot on the image? This

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.

How would I add a print method and print page event to the Video Collection prob

Question

Explanation / Answer

Related Questions

Navigate