VBで時刻表のようなものを作るには

はかせ 2012-07-02 13:54:09 No: 103314 IP: 192.*.*.*

VBで時刻表のようなものを作ろうと考えているのですが時間ごとに決められたものを表示させるにはどうしたらいいでしょうか？
駅の電車の電光掲示板ってどのようなプログラムが組まれているんでしょうか？
初心者ですいません。回答お願いします。

ひまじん 2012-07-05 10:11:04 No: 103315 IP: 192.*.*.*

まず、時刻表のデータを作成します。
つぎに時間になったら、表示する処理を作成。
電光掲示板のように横に文字を流すのは、別の処理を作成してください。
以下、サンプルです。

Public Type JikokuHyou_
    Jikan_ As String  '時間
    Hyouji_ As String '時間になったら表示するもの
End Type
Public JikokuHyous() As JikokuHyou_

Sub 時間になったらMsgBox表示()
Dim JikokuHyouCnt As Long

    '-データ----------------
    ReDim JikokuHyous(3)

    With JikokuHyous(1)
        .Jikan_ = "10:17"
        .Hyouji_ = "Aの列車"
    End With
    With JikokuHyous(2)
        .Jikan_ = "10:35"
        .Hyouji_ = "Bの列車"
    End With
    With JikokuHyous(3)
        .Jikan_ = "11:08"
        .Hyouji_ = "Cの列車"
    End With
    '-------------------------

    Do 'タイマーループ
        DoEvents
        JikokuHyouCnt = 1

        Do '全ての時刻表のデータループ
            '
            If Left(Right(Now, 8), 5) = JikokuHyous(JikokuHyouCnt).Jikan_ Then '時間判定
                MsgBox JikokuHyous(JikokuHyouCnt).Hyouji_ '表示
            End If
            JikokuHyouCnt = JikokuHyouCnt + 1
        Loop Until JikokuHyouCnt > UBound(JikokuHyous)

        sleep 1000 '1秒ずつループ
    Loop Until Left(Right(Now, 8), 5) = "12:00" 'とりあえず12時になったら終了

End Sub

編集削除

まりも 2012-07-18 15:32:26 No: 103316 IP: 192.*.*.*

僕も同じようなもの作ろうと思いソースをコピーしたんですが、エラーがでます。作成したときのデザインビューを見せてくれるとありがたいです。バージョンはMicrosoft Visual Studio 2010 です。

編集削除

はかせ 2012-07-19 13:47:30 No: 103317 IP: 192.*.*.*

遅れてすいません。
ありがとうございました。
とても作業が進みました。

編集削除