Question

这是需要做的。

此项目/组合将维护数组中的电影标题列表。用户可以从列表中添加和删除电影标题，清除并打印列表。

表格将包含一个用以下条目初始化的组合框：一个受抚养人的薪水，一个美国居民，一个傻瓜跳舞，一个人自己和鬼人。

表格上会有六个按钮。添加按钮，使用输入框将条目添加到列表中。用户可能不会在列表中添加重复的标题。一个删除按钮，将从列表中删除所选项目。如果用户尝试添加空白标题或删除标题而不先选择一个标题，则会显示错误。清除所有按钮将删除列表中的所有条目。计数按钮将显示在消息框中，可以显示电影标题的数量。打印按钮将在打印预览窗口中显示“电影列表”报告。在报告中包含您的姓名。最后，退出按钮。

这是我到目前为止所做的：

Public Class frmlist

  Dim movielist(100) As String

  Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
    Me.Close()
  End Sub

  Private Sub frmlist_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    movielist(0) = "A Dependent's Pay"
    movielist(1) = "An American Resident"
    movielist(2) = "Dancing With Fools"
    movielist(3) = "Home By Yourself"
    movielist(4) = "Ghost Man"

    cboxlist.Items.AddRange(movielist)
  End Sub

  Private Sub AddToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AddToolStripMenuItem.Click
    movielist(5) = InputBox("Enter a movie title: ", "Movies")
    cboxlist.Items.AddRange(movielist)
  End Sub
End Class

添加/删除进入组合框的数组中的项目

0 个答案: