VB.netのdatagridviewからmsgboxとして表示される検索された値

Question

データグラムをカンマ区切りの*テキストファイルから表示しています。私は検索して値を見つけ、その色とフォントを分けて変更しました。実際これで十分です。しかし、私は、検索された行の列（1）の値をmsgbox経由で、後で他の人に情報を与えるための音声合成に表示することを計画しています。 問題は、msgboxの列（1）に検索された値を表示できませんでした。私の検索条件は時間です。私のコラム（1）には、テキストがあり、それは時間によって検索され、msgboxとして表示されます。オールインワンのmsgbox。 私のプログラムは以下の通りです。それは正常に動作しています。

Private Sub Timer1_Tick(ByVal sender As  System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    Label4.Text = Format(Date.Now(), "HH:mm:ss") 
    tt = Format(Date.Now(), "HH:mm:ss") 
    For i As Integer = 0 To DGV1.RowCount - 1 
     If DGV1.Rows(i).Cells("Column3").Value.ToString = tt Then 
      DGV1.Rows(i).DefaultCellStyle.ForeColor = Color.Red 
      DGV1.Rows(i).DefaultCellStyle.Font = New Font("TAHOMA", 14, FontStyle.Bold) 
      MsgBox(DGV1.Rows(i).Cells("Column0").Value.ToString) 
     End If 
    Next i 
End Sub 

二三日は、私はそれが... 最初の選択で「行全体を選択」するのDataGridViewのプロパティを変更した

Answer 1

....あなたに感謝.....これによモード。その後 "のMsgBox（DGV1.Selectedrow（I）.Cells（" COLUMN0" ）。Value.To文字列）へのMsgBoxコマンドを変更した場合、条件文の外に置か。

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
Label4.Text = Format(Date.Now(), "HH:mm:ss") 
tt = Format(Date.Now(), "HH:mm:ss") 
For i As Integer = 0 To DGV1.RowCount - 1 
If DGV1.Rows(i).Cells("Column3").Value.ToString = tt Then 
DGV1.Rows(i).DefaultCellStyle.ForeColor = Color.Red 
DGV1.Rows(i).DefaultCellStyle.Font = New Font("TAHOMA", 14, FontStyle.Bold) 
End If 
MsgBox(DGV1.SelectedRows(i).Cells("Column0").Value.ToString) 
Next i 
End Sub 

私の次の問題を"選択された2つのデータが1つのmsgboxに入っていない...この問題を解決するのを手伝ってください。