Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
デバックについて
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=2563#CommentId20067
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
つよし
 ()
投稿日時
2008/8/28 23:27:00
デバックを実行して結果を見ると
プログラムの途中までしか動きません。
エラーも警告も出ていません。
詳しい方教えて下さい。
コード
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
'While i < 10
'MsgBox("123")
Dim Reader As New IO.StreamReader("C:\sw001.log")
TextBox1.Text = Reader.ReadLine()
RichTextBox1.Text = Reader.ReadLine()
Reader.Close()
Select Case RichTextBox1.Text
Case "red"
RichTextBox1.BackColor = Color.Red
Case "blue"
RichTextBox1.BackColor = Color.Blue
Case "yellow"
RichTextBox1.BackColor = Color.Yellow
End Select
'ここまでで止まってしまいます。
Dim Reader2 As New IO.StreamReader("C:\sw002.log")
TextBox1.Text = Reader2.ReadLine()
RichTextBox1.Text = Reader2.ReadLine()
Reader.Close()
Select Case RichTextBox1.Text
Case "red"
RichTextBox1.BackColor = Color.Red
Case "blue"
RichTextBox1.BackColor = Color.Blue
Case "yellow"
RichTextBox1.BackColor = Color.Yellow
End Select
'System.Threading.Thread.Sleep(1000)
'MsgBox("123")
Dim Reader3 As New IO.StreamReader("C:\sw003.log")
TextBox1.Text = Reader3.ReadLine()
RichTextBox1.Text = Reader3.ReadLine()
Reader.Close()
Select Case RichTextBox1.Text
Case "red"
RichTextBox1.BackColor = Color.Red
Case "blue"
RichTextBox1.BackColor = Color.Blue
Case "yellow"
RichTextBox1.BackColor = Color.Yellow
End Select
i = i + 1
'System.Threading.Thread.Sleep(1000)
'End While
End Sub