tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルMonthCalendar
記事No8007
投稿日: 2008/08/24(Sun) 16:09
投稿者たなあ
MonthCalendarで日付を選択して、その日の分のデータをメモ帳から読み込めるようにしました。
一回目は表示されるのですが、続けて別の日を選択すると、メモ帳の中身が表示できません。何かいい方法はないでしょうか。
コードは下記の通りです。

  Dim er As New IO.StreamReader("seiseki.txt", True)
    Dim buffer As String
    Dim items(3) As String
    Dim i As Integer

  Private Sub MonthCalendar1_DateSelected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected 
Do Until er.EndOfStream
            buffer = er.ReadLine()
            items = buffer.Split(",,")
            If items(0) = Me.MonthCalendar1.SelectionRange.Start Then
                Label7.Text = items(0)
                Label6.Text = items(1) & vbLf & "ランク" & items(2)
                i += 1

            End If
        Loop
    End Sub

よろしくお願いします。

[ツリー表示へ]
タイトルRe: MonthCalendar
記事No8008
投稿日: 2008/08/24(Sun) 22:44
投稿者neptune
こんにちは

seiseki.txtに全ての日付のデータが行毎に同じフォーマットで並んでいるとして、
書きます。

> MonthCalendarで日付を選択して、その日の分のデータをメモ帳から読み込めるようにしました。
UPされたソースにメモ帳出てきませんけど。

> 一回目は表示されるのですが、続けて別の日を選択すると、メモ帳の中身が表示できません。何かいい方法はないでしょうか。
データがあるなら+
>If items(0) = Me.MonthCalendar1.SelectionRange.Start Then
の条件がTRUEになるなら何某か表示されるとは思いますが。
この辺りにブレークポイントを置いて変数、プロパティの内容を見てみては?

[ツリー表示へ]