1

これが実行する必要があることです。

このプロジェクト/割り当ては、配列内の映画タイトルのリストを維持します。ユーザーは、リストから映画のタイトルを追加および削除したり、リストをクリアおよび印刷したりできます。

フォームには、次のエントリで初期化されたコンボ ボックスが含まれます: 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
4

0 に答える 0