I need this done in visual basic 2010, Maintain a list of movie categories. Use

Question

I need this done in visual basic 2010, Maintain a list of movie categories. Use a drop-down combo box to hold the movie types, keeping the list in alphabetic order. Use buttons or menu choices to Add a Category, Remove a Category, Clear All Categories, Print the Category List, Display the Movie Category Count, and Exit. Include appropriate access keys on your form and/or menu items. Do not allow a blank type to be added to the list. Display an error message if the user selects Remove without first selecting a movie category. Before clearing the list, display a message box to confirm the operation. The starting categories are • Comedy • Drama • Action • Sci-Fi • Horror Display the printed output in the Print Preview dialog box. Include your name and a heading at the top of the report.

Explanation / Answer

Public Class Movie_database

Private Sub count_textbox_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles count_textbox.TextChanged
End Sub

Private Sub Count_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Count.Click
count_textbox.Text = Me.movie_list_combobox.Items.Count
End Sub

Private Sub movie_categories_combobox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles movie_categories_combobox.SelectedIndexChanged
End Sub

Private Sub movie_list_combobox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles movie_list_combobox.SelectedIndexChanged
Dim Movies(,) As String = {{"Interstellar", "scientific", "Interstellar"}, {"Terminator", "action", ""}}

Dim row As Integer
Dim column As Integer

For movie_categories_combobox.SelectedIndex = 0 Then
row = 0 To 2
column = 0 To 0
movie_list_combobox.Items.Clear()
movie_list_combobox.Items.AddRange()
Next

For movie_categories_combobox.SelectedIndex = 1 Then
row = 0 To 1
column = 1 To 1
movie_list_combobox.Items.Clear()
movie_list_combobox.Items.AddRange()
Next

For movie_categories_combobox.SelectedIndex = 2 Then
row = 0 To 0
column = 2 To 2
movie_list_combobox.Items.Clear()
movie_list_combobox.Items.AddRange()
Next

For movie_categories_combobox.SelectedIndex = 3 Then
row = 0 To 0
column = 3 To 3
movie_list_combobox.Items.Clear()
movie_list_combobox.Items.AddRange()
Next

For movie_categories_combobox.SelectedIndex = 4 Then
row = 0 To 0
column = 4 To 4
movie_list_combobox.Items.Clear()
movie_list_combobox.Items.AddRange()
Next

For movie_categories_combobox.SelectedIndex = 5 Then
row = 0 To 1
column = 5 To 5
movie_list_combobox.Items.Clear()
movie_list_combobox.Items.AddRange()
Next

'//End If
'//End Select

End Sub

Related Questions

Navigate

• Browse (All)
• Browse I
• Subjects

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