俄罗斯方块VBA.docVIP

俄罗斯方块VBA Attribute VB_Name = 俄罗斯方块 Option Explicit 如果对VBA不是很了解,请先关闭所有的Excel 程序,请修改此文件的扩展名为.bas以用于后序的导入(改名后也可用记事本打开) 1.打开Excel (2007版,其它版没有试验过)-新建工作簿(默认已经创建)-另存为启用宏的Excel工作簿文件 2.Excel 菜单栏 点 开发工具(如果没有 则进入Excel 选项-常用-钩选 在功能区显示开发工具选项卡)-宏安全性-选择启用所有宏-确定 3.Excel 菜单栏 点 开发工具-Visual Basic-进入VBA工程界面 4.工程界面左侧找到 ThisWorkbook - 右键- 导入文件..-选择此文件(文件名应为XXX.bas,如果文件扩展名不是.bas请先修改之) 5.正确导入文件后左上侧会多出 模块项 展开 模块 有 俄罗斯方块 6.双击刚才那个 ThisWorkbook - 打开一个空白代码窗口 7.窗口上方有两个下拉框,左面下拉框选择 Workbook - 右边会自动变成 Open 下方会多出代码 在private...与End...之间空行输入 init -回车后会变成 Init 8.再在右面下拉框选择 BeforeClose -下面会又多出两行代码 同上在代码之间空行输入 timeend 回车后变成 TimeEnd,最终代码如下 Private Sub Workbook_BeforeClose(Cancel As Boolean) TimeEnd End Sub Private Sub Workbook_Open() Init End Sub 9.保存-关闭Excel 然后重新打开刚才那个启用宏的Excel文件 注:对于了解VBA的可以直接用下面的代码,代码怎么用你懂的!!!! 作者:hpfrog@163.com Public Declare Function SetTimer Lib user32.dll (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib user32.dll (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Public Const DIS_X_COL As Long = 4 Public Const DIS_Y_ROW As Long = 3 Public Const DIS_W_COLS As Long = 13 Public Const DIS_H_ROWS As Long = 19 Public Const MD_COLOR As Variant = 65280 Public Const BK_COLOR As Variant =Public TimeCnt As Long Public TrgTime As Long Public Tid As Long Public CurT As Long Public Bk(0 To 27, 0 To 13) As Variant Public State As Integer Public CurBounds As Long Public CurData(0 To 3, 0 To 3) As Variant Public CurRow As Long Public CurCol As Long Public CurRnd As Long Public CurMd As Long Public NextMd As Long Public NextRnd As Long Public isBusy As Boolean 形状,方向,row,col Public Md(0 To 6, 0 To 3, 0 To 3, 0 To 3) As Variant Public Sub MkMd() Dim M, N, R, C For M