0

次のコードがあり、2 つのことを実行したいと考えています。2 つの W.writeLine コードを 1 行または 2 行で区切りたいと思います。VbCrlf が機能していないようで、エラーが発生します。Total Due と TotalDueTextBox.Text の色も赤に変更したいと思います。助言がありますか?

  Private Sub SaveAsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SaveAsToolStripMenuItem.Click
    sFile.InitialDirectory = ("C:\")
    sFile.FileName = ("Save As...")
    sFile.Filter = ("Only Text Files (*.txt)|*.txt")
    sFile.ShowDialog()

    Dim W As New IO.StreamWriter(sFile.FileName, True)  ' notes from class need messgbox
    Dim i As Integer
    For i = 0 To PurchaseListBox.Items.Count - 1
        W.WriteLine(PurchaseListBox.Items.Item(i))

    Next

    Dim TotalDue As String = TotalDueTextBox.Text
    W.WriteLine(vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "TotalDue" & TotalDueTextBox.Text.PadLeft(14, ""))
    W.Close()
End Sub
4

1 に答える 1

0

WriteLine("")空行を印刷するたびに呼び出すことができます。

于 2013-10-10T03:43:40.717 に答える