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

名前

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

本文 あき☆彡さん返信ありがとう御座います。 今、一生懸命自分なりに解析してますが、ビンゴカードを作る過程で、Class1とClass2を行き来する文があります。ここでビンゴカードを作っているのだなという事は分かっているのですが、何故？Class1とClass２を行き来させなければいけない理由が分かりません。 この質問で大丈夫でしょうか？ アドバイスお願いします。 Class2のビンゴカードを作るところの文 Private Sub sSheetClear() Dim clsNo As Class1 Dim i&, j& Set clsNo = New Class1 For i = 1 To mlRowCol For j = 1 To mlRowCol mlNo(j, i) = clsNo.GetNo Next j Next i If mlRowCol Mod 2 = 1 Then i = mlRowCol \ 2 + 1 mlNo(i, i) = -1 mbFlg(i, i) = True mlColor(i, i) = vbGreen End If Set clsNo = Nothing End Sub Class1のビンゴカードを作るところの文 Property Get GetNo() As Long Dim lNo As Long GetNo = 0 If mlNoCnt >= 99 Then Exit Property Randomize Do lNo = Int((99 * Rnd) + 1) Loop Until Not mbNoFlg(lNo) mbNoFlg(lNo) = True mlNoCnt = mlNoCnt + 1 GetNo = lNo End Property この文でどうしてClass1とClass2に分ける必要があるのでしょうか？ どうゆうコンセプトの元で、まっさらな白紙の状態からここまでたどり着けるのでしょうか？