1

这是需要做的。

这个项目/分配将维护一个数组中的电影标题列表。用户可以从列表中添加和删除电影标题，清除和打印列表。

该表单将包含一个组合框，该组合框初始化为以下条目：家属工资、美国居民、与傻瓜共舞、自己回家和鬼人。

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

这是我到目前为止所拥有的：

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
4

0 回答 0