タイトル : プロシージャについて 投稿日 : 2009/10/14(Wed) 12:43 投稿者 : むむむ
こんにちわ。下記のような無駄なことを防ぐ方法を教えてください。とても基本的なことかもしれないのですが、調べ方が悪いのか一向に分かりません。 例えば <標準モジュール> Sub ABC_000 .... End sub : Sub ABC_999 .... End Sub と、プロシージャが1000個あるとして、メインフォームのボタンBtn(0 to 100)からインデックスによってそれぞれをコールしたい時に、 <メインフォーム> Sub Btn_Click(Index as Integer) Select Case Index Case 0: Call ABC_000 Case 1: Call ABC_001 : Case 999: Call ABC_999 End Select End sub という無駄な方法以外で何かないでしょうか? 例えば Sub Btn_Click(Index as Integer) Dim Obj as xxx Set Obj = "ABC_" & Index Call Obj End sub みたいな・・・ プロシージャABC内部で Index によって Select する方法はなしと考えてください。ひとつひとつのプロシージャが大きいものですから・・・ |