タイトル : Re: カレンダーの日付がクリックされたときの処理 投稿日 : 2008/08/22(Fri) 11:19 投稿者 : もょもと
C:\test.txtに下記の記述があり(csvにしてしまった方がいいんですけどね)… 2008/8/20,スコア0 2008/8/21,スコア1 2008/8/22,スコア2 MonthCalendar1の日付が選択された場合に、 選択された日付のデータをRichTextBox1に表示させたいのでしたら… 'データ保存用構造体 Private Structure Memo Dim day As Date '日付 Dim score As String 'スコア End Structure Private mm() As Memo Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged '*************************************** '変数の宣言 '*************************************** Dim fileName As String = "C:\test.txt" 'ファイルのパス Dim fileNo As Integer = FreeFile() 'ファイル番号を取得 Dim i As Integer '*************************************** '処理開始 '*************************************** 'ファイルを入力モードで開く FileOpen(fileNo, fileName, OpenMode.Input) 'ファイルの最後までループ Do Until EOF(fileNo) ReDim Preserve mm(i) Input(fileNo, mm(i).day) Input(fileNo, mm(i).score) '選択された日付のデータをRichTextBox1に表示 If mm(i).day = Me.MonthCalendar1.SelectionRange.Start Then Me.RichTextBox1.Text = mm(i).day & vbCrLf & mm(i).score End If i += 1 Loop FileClose(fileNo) 'ファイルを閉じる End Sub 上記のような方法でいかがですか? |