VB タイマーコントロールをインデックスを使用し130個作成しました。

質問

VB タイマーコントロールをインデックスを使用し130個作成しました。
タイマーイベントの表記はどのようにするのでしょうか。
Private Sub Timer(0)_Timer() 　～　End Sub とするとエラーになります。タイマーコントロールのインデックスの使い方が分かりません。よろしくお願いします。

回答No.2

trajaa · ベストアンサー

配列にしたから正しく動作しないのでしょうか？
それとも元々動作していないのでしょうか？

質問本文では「エラーになります。」とのことで
先の回答への補足では「処理がなされません」

微妙に表現が異なるのは、状況が進展したけど完成形に至っていないと言うことでしょうか？

先程の回答で配列に関する問題はクリアになったのでしょうか？

「処理がなされません」とは具体的にどの様な状況でしょうか？
イベントが発生しない？
イベントは発生するが、思うように結果が得られない？

タイマーコントロールを１３０個も使う事の是非は別問題として
現在の状況など詳しく正確に記載してもらえないと何が起きて、何が問題なのかわかりません。

単純にEnabled属性が・・・ってな事では無いのですよね？

お礼

皆様有難うございました。　Select　Caseの条件文に誤りがありました。配列Timerのイベントが正常に処理されました。感謝、感謝です。

補足

本文のようにするとエラーが発生します。補足文のようにするとエラーは発生しませんがイベント処理がなされません。配列にせずTimer0,Timer1,・・・のように個別にタイマーを作製した場合それぞれのタイマーイベント処理が正しく行われます。130個のタイマーを使う理由は130室の空き状況、その他を常時監視し状況に応じ部屋ごとに処理をしています。EnableプロパティーはTrueです。

回答No.1

andy_kun

Private Sub Timer_Timer(Index as integer)
'タイマーの処理
End Sub

補足

Private Sub Timer_Timer(Index as Integer)
Select Case Index
Case 0 to 20　など
タイマー処理
　End select
End Sub
　と作製しましたが、各タイマーで処理がなされません。