クラスモジュールとコレクションを使ったゲームを作りたいですけど．． (ID:104807)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 コレクションの例（固定値の場合） Const 値_01 as Long = 128 Const 値_02 as Long = 256 Const 値_03 as Long = 512 Const 値_04 as Long = 4096512 Dim Myクラス as New 自作クラス Dim col As Collection Dim itm As Variant Set col = New Collection ’コレクションの追加 col.Add 値_01 col.Add 値_02 col.Add 値_03 col.Add 値_04 For Each itm In col ’コレクションの中身を取り出しつつ、クラス側で別処理 Call Myクラス.NEW_SET_NAME(設定_01, 設定_02, 設定_03, _ 設定_04, itm, "CODE1") Next Set col = Nothing ’コレクションの開放（コレやらないと値が残ります） Set Myクラス = Nothing コレクションが変動値の場合は、ForやDoで値の入力可