-2 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim FILE_NAME As String = "C:\KVRequest.txt"
    Dim aryText(4) As String

    aryText(0) = "TextBox4.Text"
    aryText(1) = "TextBox5.Text"
    aryText(2) = "TextBox6.Text"
    aryText(3) = "TextBox7.Text"
    aryText(4) = "TextBox8.Text"

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

    objWriter.Close()
    MsgBox("Text file created in your C drive, attach this file in an email to someone@gmail.com Please check that all of the details are correct before sending.")

End Sub

私がやろうとしているのは、テキスト ボックス (4 5 6 7 8) からテキストを取得して、テキスト ファイルに書き込むことです。私が持っているコードはファイルを作成しますが、テキストを書き込みません。これを機能させる方法について誰かヒントを教えてもらえますか?

ありがとう！

編集:また、私がここにいる間、私はそれを取得しようとしていたので、button_1.enabled はすべてのテキスト ボックスが編集された場合にのみ true でしたが、これを行うための実用的な方法は思いつきませんでした。これもとてもありがたいです！

4

1 に答える 1

0

上記のコードを考えると、ファイルに何も書き込まれていない理由は、ファイルに何も書き込むように指示していないためです。StreamWriterの作成と close メソッドを閉じる場所の間に、次のようなものを追加する必要があります。

objWriter.WriteLine(TextBox4.Text)
objWriter.WtiteLine(TextBox5.Text)
etc...

また、保存ボタンのみを有効にする最も簡単なオプションは、テキスト ボックスごとにControl.TextChangedハンドラーを作成することです (または、1 つの Sub を使用して、すべてのイベントを 1 つのハンドラー メソッドに追加することにより、すべてのテキスト ボックスに対してそれを行います)。次のようにします。

If TextBox4.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" Then
    Button1.Enabled = True
Else
    Button1.Enabled = False
End If
于 2012-08-07T06:47:48.287 に答える