0

次のコードがあります

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
                textbox = New TextBox

                textbox.Size = New Size(50, 50)
                If Controls.Count > 0 Then
                    TextBox.Top = Controls(Controls.Count - 1).Bottom

                End If

                Me.SplitContainer2.Panel1.Controls.Add(textbox)
 End Sub

それが行うことは、テキストボックスのインスタンスを次々に追加することです。

次は、テキスト ファイルをシステムに書き込みます。

Private Sub Button6_Click_1(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        Dim FILE_NAME As String = "C:\Users\Pantheo\test2.txt"

        If File.Exists(FILE_NAME) = True Then

            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)

            objWriter.Write(textbox.Text)
            objWriter.Close()
            MsgBox("Text written to file")

        Else

            MsgBox("File Does Not Exist")

        End If
    End Sub

ただし、最後のコントロールの値のみを書き込みます。たとえば、Button5 を 2 回クリックして 2 つのテキスト ボックスを作成した場合、test2.txt には、最初のテキスト ボックスではなく、2 番目のテキスト ボックスの .Text 値のみが含まれます。

すべてのテキスト ボックスから .Text 値を同じテキスト ファイルに書き込む方法はありますか?

4

1 に答える 1

1

ボタン5をクリックするたびに、テキストボックス（ new TextBox ）に新しいインスタンスを作成します。これは、生成された最後のインスタンスのみを確実に保持します。インスタンスをコレクションに追加してから、それらを反復してみてください

于 2012-09-30T09:53:08.483 に答える