ctetrisassist1.cls

一个俄罗斯方块游戏

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CTetrisAssist1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Implements ITetrisAssist

Private m_Actions As New Collection

Private Function ITetrisAssist_GetAction(nPanel() As Long, ByVal nPanelCols As Long, ByVal nPanelRows As Long, ByVal nTetris As Long, ByVal nAngle As Long, ByVal nLeft As Long, ByVal nTop As Long) As btt_Actions
   If m_Actions.Count > 0 Then
      ITetrisAssist_GetAction = m_Actions(1)
      m_Actions.Remove 1
      Exit Function
   End If
   
   
End Function