これが実行する必要があることです。
このプロジェクト/割り当ては、配列内の映画タイトルのリストを維持します。ユーザーは、リストから映画のタイトルを追加および削除したり、リストをクリアおよび印刷したりできます。
フォームには、次のエントリで初期化されたコンボ ボックスが含まれます: A Dependent's Pay、An American Resident、Dancing With Fools、Home By Yourself、および Ghost Man。
フォームには 6 つのボタンがあります。入力ボックスを使用してリストにエントリを追加する追加ボタン。ユーザーは重複したタイトルをリストに追加することはできません。選択した項目をリストから削除する削除ボタン。ユーザーが最初にタイトルを選択せずに空白のタイトルを追加したり、タイトルを削除しようとすると、エラーが表示されます。すべてクリア ボタンは、リストからすべてのエントリを削除します。メッセージボックスにカウントボタンが表示され、表示できる映画タイトルの数が表示されます。印刷ボタンをクリックすると、印刷プレビュー ウィンドウに「ムービー リスト」レポートが表示されます。報告書にあなたの名前を含めてください。最後に終了ボタンです。
これは私がこれまでに持っているものです:
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