投稿者 カシミヤ  (高校生) 投稿日時 2011/11/14 15:38:55
コードを乗せようかと思いましたが、出力・読み込みのしかたを全くといっていいほど理解できていないため、かなり適当なものであるかつ、ほぼ先ほどのサイトのコード・ここの「ファイル処理」にあるコードを試験的にほぼコピペしたもの、かつ、「動くわけがない。」といえるほどになってると思い敢えてのせませんでした。

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WriteStream As New StreamWriter("C:\Users\UserName\Desktop\test.txt")
        WriteStream.WriteLine(TextBox1.Text)
        WriteStream.WriteLine(TextBox2.Text)
        WriteStream.Write(TextBox3.Text)
        WriteStream.Close()
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'OpenFileDialogクラスのインスタンスを作成
        Dim ofd As New OpenFileDialog()
        
        'タイトルを設定する
        ofd.Title = "開くファイルを選択してください"
        'ダイアログボックスを閉じる前に現在のディレクトリを復元するようにする
        ofd.RestoreDirectory = True

        'ダイアログを表示する
        If ofd.ShowDialog() = DialogResult.OK Then
            'OKボタンがクリックされたとき
            '選択されたファイル名を表示する
            Console.WriteLine(ofd.FileName)
        End If
        Dim stream As System.IO.Stream
        stream = ofd.OpenFile()
        If Not (stream Is Nothing) Then
            '内容を読み込み、表示する
            Dim sr As New System.IO.StreamReader(stream)
            Console.WriteLine(sr.ReadToEnd())
            '閉じる
            sr.Close()
            stream.Close()
        End If
       '読み込んだファイルを表示させたい
        Dim Reader As IO.StreamReader ←エラー・または警告が出る
        TextBox1.Text = Reader.ReadLine
        TextBox2.Text = Reader.ReadLine
    TextBox3.Text = Reader.ReadLine
        Reader.Close()

    End Sub
End Class
「ダイアログを開く」以降どうすればいいのか全く分からないため、試行錯誤の嵐で混乱しています。

ヘルプを見ても案の定理解できません。。。