Visual Basic

Public Class Assignment3

secluded lastPrinted As Integer
Private movies() As String = upstart String() { _
A Dependents Pay, _
An American resident, _
Dancing With Fools, _
Home By Yourself, _
Ghost Man}

Private Sub Assignment3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cboMovies.Items.AddRange(movies)
dlgPrint.Document = New System.Drawing.Printing.PrintDocument()
AddHandler dlgPrint.Document.PrintPage, AddressOf PrintReport
set aside Sub

Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click, mnuAdd.Click
If (txtNewMovie.Text = ) Then
MsgBox( enliven enter a movie break to add)
go bad Sub
End If

If (movies.Contains(txtNewMovie.Text)) Then
MsgBox(Movie already exists. Please enter another movie)
txtNewMovie.Focus()
txtNewMovie.SelectAll()
Exit Sub
End If

Array.Resize(movies, movies.Length + 1)
movies(movies.Length - 1) = txtNewMovie.Text
cboMovies.Items.Add(txtNewMovie.Text)
txtNewMovie.Text =
txtNewMovie.Focus()
End Sub

Private Sub Remove_Click(ByVal sender As System.



Object, ByVal e As System.EventArgs) Handles cmdRemove.Click, mnuRemove.Click
If cboMovies.SelectedIndex = -1 Then
MsgBox(Please select a movie to remove)
Exit Sub
End If

Dim tmp(movies.Length - 1) As String
Dim i As Integer = 0
For Each movie As String In movies
If Not movie = cboMovies.SelectedItem.ToString() Then
movies(i) = movie
i += 1
End If
Next
Array.Resize(movies, movies.Length - 1)
movies = tmp
cboMovies.Items.Clear()...If you want to brook a full essay, order it on our website: Ordercustompaper.com



If you want to get a full essay, wisit our page: write my paper