0

だから私はメニューバーとlstboxを備えたフォームを持っています. メニュー バーには、3 つの選択肢がある [表示] オプションがあります。すべて、フィクション、またはノンフィクション。テキストファイルには、本のタイトル、著者、カテゴリ (小説または非小説)、在庫、価格がこの順序で含まれています。ユーザーが [すべて表示] をクリックすると、すべてのタイトルがリストボックスに表示されます。Nonfic をクリックすると、ノンフィクションのタイトルだけが表示され、フィクションも同じです。これまでの私のコードは次のとおりです。

Private Sub menuDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuDisplay.Click

    Dim books() As String = IO.File.ReadAllLines("Books.txt")
    Dim data() As String
    Dim allBooksTitle, allNonFicTitle, allFicTitle As String

    For i As Integer = 0 To books.Count - 1
        data = books(i).Split(","c)
        allBooksTitle = data(2)
        If data(2).Trim = "N" Then
            allNonFicTitle = data(0)
        ElseIf data(2).Trim = "F" Then
            allFicTitle = data(0)
        End If
    Next

    ' show result
    If menuDisplayAll.Checked Then
        lstBox.Items.Add(allBooksTitle)
    ElseIf menuDisplayFic.Checked Then
        lstBox.Items.Add(allFicTitle)
    ElseIf menuDisplayNonFic.Checked Then
        lstBox.Items.Add(allNonFicTitle)
    End If
End Sub

フィクションまたはノンフィクションの本のタイトルのみを表示し、リスト ボックスに追加する代わりに各ボタン間でリスト ボックスを更新するコードを記述する方法がよくわかりません。どんな助けでも大歓迎です!

4

1 に答える 1