テキストファイルの読み込みができない (ID:146368)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 蒸し返すようですが If i < lines - 1 Thenは If i < lines Thenの間違いですね n += 1 For i As Integer = 0 To n If i < lines - 1 Then str(i) = sr.ReadLine() TextBox1.Text += str(i) + vbCrLf Else MessageBox.Show("終了") End If