VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "creat_module_type_color"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'產(chǎn)生方塊類型和顏色
Private mdltype_memory(51) As mdltype
'對(duì)象啟動(dòng)時(shí)為產(chǎn)生方塊類型，顏色類型存儲(chǔ)賦值
Private Sub Class_Initialize()
Dim i As Integer
For i = 0 To 51
mdltype_memory(i).module_type = Int(Rnd * 20)
If mdltype_memory(i).module_type < 1 Then
mdltype_memory(i).module_type = 1
End If
mdltype_memory(i).color_type = Int(Rnd * 8)
If mdltype_memory(i).color_type < 1 Then
mdltype_memory(i).color_type = 1
End If
Next i
End Sub
'獲得方塊類型和顏色
Public Function get_mdltype_typevalue(i As Integer)
get_mdltype_typevalue = mdltype_memory(i).module_type
End Function
'獲得方塊顏色
Public Function get_mdltype_colortypevalue(i As Integer)
get_mdltype_colortypevalue = mdltype_memory(i).color_type
End Function