ArgumentOutOfRangeExceptionというエラーがよくわかりません

Question

前提・実現したいこと

テキストファイルから特定の行を読み込んでラベルのテキストに入れようと思っています。
初心者なので、勝手にオリジナルの変数を作っていてわかりづらいかもしれませんが...

発生している問題・エラーメッセージ

System.ArgumentOutOfRangeException
  HResult=0x80131502
  Message=Index was out of range. Must be non-negative and less than the size of the collection. Arg_ParamName_Name
  Source=System.Private.CoreLib
  スタック トレース:
   場所 System.ThrowHelper.ThrowArgumentOutOfRange_IndexException()
   場所 System.SZArrayHelper.get_Item[T](Int32 index)
   場所 System.Linq.Enumerable.ElementAt[TSource](IEnumerable`1 source, Int32 index)
   場所 cdoninin.Form1.C_Tick(Object sender, EventArgs e) (C:\Users\K\Desktop\MVS\cdoninin\cdoninin\Form1.vb):行 100
   場所 System.Windows.Forms.Timer.OnTick(EventArgs e)
   場所 System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)
   場所 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, WM msg, IntPtr wparam, IntPtr lparam)

該当のソースコード

    Private Sub C_Tick(sender As Object, e As EventArgs) Handles C.Tick
        Dim LineTextv As String = Nothing

        For i As Integer = 105 + cntC To 108 + cntC
            LineTextv += vbCrLf + IO.File.ReadAllLines(file).ElementAt(i).ToString()
        Next
        nc.Text = LineTextv

        If cntCh = 10 Then
            cntCh = -1
            cntC = 0
        ElseIf cntCh = 8 Or 9 Then
            cntC += 5
        End If
        cntCh += 1
    End Sub

試したこと

数がファイルの行にでも多すぎたのかな？と考えて確認しましたが合っている気がします。

Comments

[KOZ6.0]

「気がする」ではなくてデバッグ実行して確認しては？
あと、同じファイルを ReadAllLines で For のループ分読んでいますが無駄ではないのでしょうか？

[YAmaGNZ]

超初心者でもわかるデバッグ方法
https://docs.microsoft.com/ja-jp/visualstudio/debugger/debugging-absolute-beginners?view=vs-2022&tabs=csharp

[nooni]

ファイルから複数行の文字を読み込んで繋げて使いたいんです…

Answer 1

既にクローズされていますが、コメントの中で触れた
「For のループ分読んでいますが無駄ではないのでしょうか？」
について

Dim LineTextv As String = Nothing

For i As Integer = 105 + cntC To 108 + cntC
    LineTextv += vbCrLf + IO.File.ReadAllLines(file).ElementAt(i).ToString()
Next
NC.Text = LineTextv

For ループに入る前に
Dim allLines As String() = IO.File.ReadAllLines(file)
と一回読めばいい話では？ということです。

LineTextv のとこも StringBuilder を使ったほうがいいでしょう。

Dim LineTextv As New Text.StringBuilder()
Dim allLines As String() = IO.File.ReadAllLines(file)
For i As Integer = 105 + cntC To 108 + cntC
    LineTextv.Append(vbCrLf & allLines(i))
Next
NC.Text = LineTextv.ToString()

ファイル名が変わらず、プログラムの起動中にファイルの中身が変更されないのであれば
Form_Load で一回読めば良いです。

あと、ここは

If cntCh = 10 Then
    cntCh = -1
    cntC = 0
ElseIf cntCh = 8 Or 9 Then
    cntC += 5
End If

Select Case cntCh
    Case 10
        cntCh = -1
        cntC = 0
    Case 8, 9
        cntC += 5
End Select

ですかねぇ

Option Strict On を付けるようにしたほうがいいですよ

Comments

[nooni]

ありがとうございます。
改善します。

Answer 2

配列の範囲外の要素にアクセスしたという例外です
例えば5つしか要素のない配列に対して6を指定したりすると発生します。
メソッドの引数が許容範囲外だったときに起こる例外です
この場合は配列をLinqで取り出そうとして範囲外にアクセスしています。
質問のコードではElementAt(i)が出しています。
コードの範囲ではよくわからないですが、読んでいるテキストファイルが108行もないんじゃないですかね。

Comments

[Zuishin]

その場合は IndexOutOfRange になります。

[RiaFeed]

勘違いしました

[nooni]

回答ありがとうございます。
やってみます。

[KOZ6.0]

配列の場合は、IndexOutOfRangeException、ElementAt の場合は ArgumentOutOfRangeException でいいですよ。