0

プロジェクトに保存ボタンがあり、2 つのリストボックスの内容をテキスト ファイルに保存することになっていますが、すべてが保存されているわけではありません。代わりに、リストボックスの 1 つの最後の 5 行を削除します。コードで何が間違っていますか? 

Dim loops As Integer 'Declare variable
    Dim savefile As New SaveFileDialog
    savefile.FileName = ""
    savefile.Filter = "textfiles(*.txt)|*.txt|file(*)|*|All files('.')|'.')"
    savefile.Title = "save"
    savefile.ShowDialog()
    Try
        Dim write As New System.IO.StreamWriter(savefile.FileName) 'Write and save a new file
        For loops = 1 To itemcount - 1 'loop until no lines are left in listbox
            write.WriteLine(firstname(loops)) 'Write out firstname
            write.WriteLine(lastname(loops)) 'Write out lastname
            write.WriteLine(gender(loops)) 'Write out gender 
            write.WriteLine(applicationdate(loops)) 'Write out date of regestration
            write.WriteLine(address(loops)) 'Write out address
        Next
        write.Close() 'Close file
        MsgBox("File Saved") 'Display message box
    Catch ex As Exception
    End Try
4

1 に答える 1

0

ライン上にブレークポイントを設定する必要がありますFor loops = 1 To itemcount - 1

itemcount次に、F8 キーを押して、コードの実行時に の値を調べます。vb.net でのデバッグに関するこの記事を参考にしてください。

コメントから、 の値がitemcount何らかの形で間違っているように聞こえます。

于 2012-08-13T11:05:44.777 に答える