Windowsフォームアプリケーションでのファイルへの印刷--- Visual Basic

Question

Visual Basicでブックの詳細（ISBN番号、著者........）を入力するプログラムをコーディングしています。その詳細をファイルに出力します。私はフォームとすべての入力ボックスを表示する次のコードを持っていますが、私はファイルに印刷するコードを配置する必要がどこにあるのかわかりません。

FileOpen(1, "C:\test\testbook.txt", OpenMode.Append) 
PrintLine(1, ISBN & " " & Author & " " & Title & " " & PageCount) 
FileClose() 

私はフォームのサブに置くことを試みたが、それは動作しませんでしたが、次のように

ファイルに印刷するためのコードです。

Public Class createBookform 
    Public ISBN, Author, Title As String 
    Public PageCount As Integer 

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     FileOpen(1, "C:\test\testbook.txt", OpenMode.Append) 
     PrintLine(1, ISBN & " " & Author & " " & Title & " " & PageCount) 
     FileClose() 
    End Sub 

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 
     ISBN = TextBox1.Text 
    End Sub 

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged 
     Author = TextBox3.Text 
    End Sub 

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged 
     Title = TextBox4.Text 
    End Sub 

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged 
     PageCount = TextBox2.Text 
    End Sub 

    Private Sub OKbUTTON_Click(sender As Object, e As EventArgs) Handles OKbUTTON.Click 
     MessageBox.Show("New book entered successfully", "Book confirmation") 
     Close() 
    End Sub 
End Class 

windows form that opens when code is executed

Answer 1

私は何かが欠けてるかのない限りは、ちょうどあなたの操作を行います。私の質問は、私はそれがファイルに

完全なコードを印刷するためには、このコードを配置しなければならないの場所です意味する：

Public Class createBookform 
    Public ISBN, Author, Title As String 
    Public PageCount As Integer 

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged 
     ISBN = TextBox1.Text 
    End Sub 

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged 
     Author = TextBox3.Text 
    End Sub 

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged 
     Title = TextBox4.Text 
    End Sub 

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged 
     PageCount = TextBox2.Text 
    End Sub 

    Private Sub OKbUTTON_Click(sender As Object, e As EventArgs) Handles OKbUTTON.Click 
     FileOpen(1, "C:\test\testbook.txt", OpenMode.Append) 
     PrintLine(1, ISBN & " " & Author & " " & Title & " " & PageCount) 
     FileClose() 
     MessageBox.Show("New book entered successfully", "Book confirmation") 
     Close() 
    End Sub 
End Class 

？

通常は、あなたがすべてで変数またはTextChangedイベントと気にしないだろう、とあなたはこの使用します。

Public Class createBookform  
    Private Sub OKbUTTON_Click(sender As Object, e As EventArgs) Handles OKbUTTON.Click 
     FileOpen(1, "C:\test\testbook.txt", OpenMode.Append) 
     PrintLine(1, TextBox1.Text & " " & TextBox3.Text & " " & TextBox4.Text & " " & TextBox2.Text) 
     FileClose() 
     MessageBox.Show("New book entered successfully", "Book confirmation") 
     Close() 
    End Sub 
End Class 

をそしてそれをより明確にするために、あなたのテキストボックスの名前を変更するだろう作る何かセンス（例えば、ISBNテキストボックスの場合はtxbISBN）。