精华内容
下载资源
问答
  • VBA开发的贪吃蛇小游戏,使用VBA开发,调用Win API函数实现循环
  • Excel_VBA开发2048游戏教程——Einsphoton

    千次阅读 2017-09-20 11:19:39
    VBA游戏开发的流程帮助甚微,甚至影响游戏开发效率,本应用实例仅为消遣,切勿过分关注!   前言  抱歉,这可能是我最后的几篇文章之一了。  由于最近工作中遇到很多问题,作者现在处于自我检讨中...

    VBA对游戏开发的流程帮助甚微,甚至影响游戏开发效率,本应用实例仅为消遣,切勿过分关注!

     

    前言

             抱歉,这可能是我最后的几篇文章之一了。

             由于最近工作中遇到很多问题,作者现在处于自我检讨中,恐怕以后将要告别少年时代的装逼梦了。

             作者之后,需要洗心革面,重新做人,踏踏实实,本本分分,低调为人,从最底层做起。

             接下来,还会再分享一些有关Axure的酷炫特效技巧,然后封笔。

             感谢大家这段时间的支持,以及各路的批评。

    前期准备

    l  搭建如下图界面环境,仅需要用到Excel自带功能待见,例如单元格颜色,绘制表格等,数两个数字2的方块先不用管。

    l  按照下图指示,分别对几个对象进行命名。

    l  创建一个按钮

     Excel_VBA开发2048游戏教程——Einsphoton

    程序的流程图

             游戏过程非常简单。

             当用户点击游戏开始按钮,系统先将所有数据初始化,并且随机生成两个方块,当玩家进行上下左右移动时,方块也会随之移动,并且在移动的过程中判断是否合并是否产生新的方块,以及是否游戏结束。

     Excel_VBA开发2048游戏教程——Einsphoton

             游戏的程序逻辑共由一下几部分组成:

    逻辑方法

    作用

    StartTigger

    游戏的启动器(在游戏中,以“GameStart”按钮的形式体现),主要负责通知何时开启游戏流程。

    GameStart

    主要负责游戏的初始化

    TileController

    负责游戏方块对象的移动,以及相应的逻辑检测

    TileCreator

    负责游戏方块的生产

    GameOverChecker

    负责检测游戏是否已经达成游戏结束的条件

     

    开始编写代码

             ALT + F11打开Excel自带的代码编辑器。

     

    变量定义

    Option Explicit    ‘安全编码习惯

    Dim IsGameOver As Boolean

    Dim IsCanMove As Boolean

    Dim AnotherChance As Integer

    Dim CurrentScore, HighScore As Long

     

    CreatTile方法

             次方法主要用来生产方块,在每次移动操作以及游戏的初始化都会用到这个方法。

     

    Private Sub CreatTile()

        Dim r, c As Range

        Dim i, n As Integer

        Set r = Range("GameArea").SpecialCells(xlCellTypeBlanks)    '取出游戏区域中所有的空白方格

        n = Int(Rnd * r.Count + 1)                              '随机一个数

        For Each c In Range("GameArea").SpecialCells(xlCellTypeBlanks)

            i = i + 1

            If i = n Then Exit For                           '在空白方格中随机找一个

        Next

        c.Value = 2                                      '使它变成方格2

    End Sub

     

    GameStart方法

    GameStart方法主要用来游戏初始化

     

    Private Sub GameStart()

        Range("GameArea").ClearContents                              '清除游戏区域的所有内容

        Shapes("CurrentScore").TextEffect.Text = Format(0, "000000")        '清除当前分数

    Range("GamePad").Cells(2, 2).Activate

        Call CreatTile                                               '调用创建方块方法2

        Call CreatTile

    End Sub

     

    TileController方法集

             在这里,我们要编写控制方格移动并且合并的方法。由于游戏中我们可以上下左右移动,所以我们需要分别编写上下左右移动的方法。如下:

     

    Private Sub DownMove()

        Dim i, j As Integer

        With Range("GameArea")

            For i = 3 To 1 Step -1         '从倒数第三行开始,其上的每一行的所有小方格

                For j = 1 To 4

                    If .Cells(i + 1, j) = "" And .Cells(i, j) <> "" Then

                        .Cells(i + 1, j) = .Cells(i, j)  '遇到可以移动的情况

                        .Cells(i, j).ClearContents

                        IsCanMove = True

                    ElseIf .Cells(i + 1, j) = .Cells(i, j) And .Cells(i, j) <> "" Then

                        .Cells(i + 1, j) = .Cells(i + 1, j) * 2   '遇到可以合并的情况

                        CurrentScore = CurrentScore + .Cells(i, j) * 2

                        Shapes("CurrentScore").TextEffect.Text = CurrentScore   '加分

                        .Cells(i, j).ClearContents

                        IsCanMove = True

                    End If

                Next j

            Next i

        End With

    End Sub

     

    其他方向的同理

    Private Sub UpMove()

        Dim i, j As Integer

        With Range("GameArea")

            For i = 2 To 4

                For j = 1 To 4

                    If .Cells(i - 1, j) = "" And .Cells(i, j) <> "" Then

                        .Cells(i - 1, j) = .Cells(i, j)

                        .Cells(i, j).ClearContents

                        IsCanMove = True

                    ElseIf .Cells(i - 1, j) = .Cells(i, j) And .Cells(i, j) <> "" Then

                        .Cells(i - 1, j) = .Cells(i - 1, j) * 2

                        CurrentScore = CurrentScore + .Cells(i, j) * 2

                        Shapes("CurrentScore").TextEffect.Text = CurrentScore

                        .Cells(i, j).ClearContents

                        IsCanMove = True

                    End If

                Next j

            Next i

        End With

    End Sub

     

    Private Sub LeftMove()

        Dim i, j As Integer

        With Range("GameArea")

            For i = 2 To 4

                For j = 1 To 4

                    If .Cells(j, i - 1) = "" And .Cells(j, i) <> "" Then

                        .Cells(j, i - 1) = .Cells(j, i)

                        .Cells(j, i).ClearContents

                        IsCanMove = True

                    ElseIf .Cells(j, i - 1) = .Cells(j, i) And .Cells(j, i) <> "" Then

                        .Cells(j, i - 1) = .Cells(j, i - 1) * 2

                        CurrentScore = CurrentScore + .Cells(j, i) * 2

                        Shapes("CurrentScore").TextEffect.Text = CurrentScore

                        .Cells(j, i).ClearContents

                        IsCanMove = True

                    End If

                Next j

            Next i

        End With

    End Sub

     

    Private Sub RightMove()

        Dim i, j As Integer

        With Range("GameArea")

            For i = 3 To 1 Step -1

                For j = 1 To 4

                    If .Cells(j, i + 1) = "" And .Cells(j, i) <> "" Then

                        .Cells(j, i + 1) = .Cells(j, i)

                        .Cells(j, i).ClearContents

                        IsCanMove = True

                    ElseIf .Cells(j, i + 1) = .Cells(j, i) And .Cells(j, i) <> "" Then

                        .Cells(j, i + 1) = .Cells(j, i + 1) * 2

                        CurrentScore = CurrentScore + .Cells(j, i) * 2

                        Shapes("CurrentScore").TextEffect.Text = CurrentScore

                        .Cells(j, i).ClearContents

                        IsCanMove = True

                    End If

                Next j

            Next i

        End With

    End Sub

     

    游戏控制器的编写

             到这里,游戏大部分的机制都已经写好,但我们还需要给我们的游戏设计一个用户接口。我们可以利用Excel自带的事件监听器Worksheet_SelectionChange,来设计游戏的操控方式。思路是,我们设置一个默认的单元格,并且总是保证其焦点。每当用户操作方向键,或者点击鼠标,我们都可以抓住一个瞬间的单元格焦点位置的变化,之后又会回到默认的单元格焦点。具体方法如下:

     

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        Application.EnableEvents = False

        IsCanMove = False

        With Target

            If .Row = Range("GamePad").Cells(1, 2).Row Then

                'MsgBox ("")

                Call UpMove    '调用三次方块移动方法,为什么?大家可以思考一下!

                Call UpMove

                Call UpMove

            ElseIf .Column = Range("GamePad").Cells(2, 1).Column Then

                'MsgBox ("")

                Call LeftMove

                Call LeftMove

                Call LeftMove

            ElseIf .Row = Range("GamePad").Cells(3, 2).Row Then

                'MsgBox ("")

                Call DownMove

                Call DownMove

                Call DownMove

            ElseIf .Column = Range("GamePad").Cells(2, 3).Column Then

                'MsgBox ("")

                Call RightMove

                Call RightMove

                Call RightMove

            End If

        End With

        Range("GamePad").Cells(2, 2).Activate   '默认单元格获得焦点

        Call CheckGameOver

        If IsCanMove Then Call CreatTile        '如果发生移动了,创造一个新方块

        Application.EnableEvents = True

    End Sub

     

    GameOverChecker方法编写

             导致游戏结束的原因有两种:胜利(出现2048  ②失败(无法移动)

             在这里,我们也需要分别检测这两种情况。

     

    Private Sub CheckGameOver()

        Dim i, j As Integer

        IsGameOver = False

        If Not Range("GameArea").Find(2048) Is Nothing Then    '如果出现2048,则执行游戏胜利流程

        IsGameOver = True

        MsgBox ("You Did Splendid Job")

            If CurrentScore > HighScore Then              '交换分数

                HighScore = CurrentScore

                Shapes("HighScore").TextEffect.Text = HighScore

            End If

        End If

        If Range("GameArea").SpecialCells(xlCellTypeConstants).Count = 16 Then   '如果没有任何空位了

            IsGameOver = True

            For i = 1 To 4                             '并且也无法合并了

                For j = 1 To 4

                    If Range("GameArea").Cells(i, j) = Range("GameArea").Cells(i, j + 1) Or Range("GameArea").Cells(i, j) = Range("GameArea").Cells(i + 1, j) Then IsGameOver = False

                Next j

            Next i

            If IsGameOver = True Then

                MsgBox ("Game Over")

                If CurrentScore > HighScore Then

                    HighScore = CurrentScore

                    Shapes("HighScore").TextEffect.Text = HighScore

                End If

                Call GameStart                  '重新开始一局

            End If

        End If

    End Sub

     

     

    最后

             你以为就这样结束了么?太天真了!至此游戏虽然可以运行,但貌似缺少点什么?

             你的美术表现呢?

             起码得有点颜色吧!

             Excel里面,可以有一种超级轻松的方式实现这种美术表现。

             条件格式……………………………………

    展开全文
  • 少年时的梦 小时候家里没有钱,看到同学拿着手持式游戏机打俄罗斯方块游戏,羡慕得不行。...恰好那时领导交待的许多任务和excel有关,天天和VBA打交道,也算比较熟悉。记得那时还在图书馆看到一本...

    少年时的梦

    小时候家里没有钱,看到同学拿着手持式游戏机打俄罗斯方块游戏,羡慕得不行。当时觉得俄罗斯方块真是世界上最好玩的游戏,要是能把同学的游戏机借来玩一整天该多好。

    程序员的山赛货

    上了大学,有了属于自已的电脑,各种电脑游戏一大堆,可是有一天突发奇想,能不能用excel做一个俄罗斯方块游戏呢?恰好那时领导交待的许多任务和excel有关,天天和VBA打交道,也算比较熟悉。记得那时还在图书馆看到一本书,大慨是教怎么用excel做一个管理信息系统。还说其实是很多人不会用,execl完全可以开发任何管理系统软件。现在想起来才觉得写那本书的老外,真是一个务实的,毁人不倦的Exceler。
    撸起袖子,干了几天,竟然还真鼓捣出一个俄罗斯方块来了,当时还玩得挺开心。过了几天没兴趣,再也没有管过了。

    多年后的重逢

    在整理移动硬盘时,发现了这个老古董,当时好像是用office97做的。抱着试一试的态度,双击打开,居然还能用。不得不佩服微软公司的兼容性做得还真不错。

    这个从左向右的俄罗斯方块长这样:
    在这里插入图片描述
    这么多年过去了,VBA的语法都快忘了,还是通过百度的帮助才打开了开发者工具
    在这里插入图片描述
    青春的气息扑面而来呀,想起比尔发明的VB,又花了大力气在office上弄出了VBA.就这一个功能,让金山的WPS追了好多年。
    现在还有什么人在用VB吗? Java大行其道的今天,程序员每天都在学习新的东西,年轻人热烈地讨论着人工智能,大数据,深度学习的时候,我在一个初夏的午后,陷入了无边的回忆!

    展开全文
  • 俄罗斯方块+vba

    2019-01-04 10:44:42
    这个是一个用vba开发的关于俄罗斯方块的小游戏,主要用于作业,业余爱好等
  • 在excel中利用vba开发的三国杀游戏,单机也可以玩三国杀,欢迎大家分享交流。
  • Excel如何安装VBA

    千次阅读 2020-03-17 11:30:19
    VBA(Visual Basic for Applications) : 是微软为办公自动化而开发的语言,主要应用领域集中于Office办公软件,用VBA语言完成游戏的模型,从而更形象地验证设计是否符合预期。 新建一个Excel文件,或者打开一个需要...

    Excel如何安装VBA?

    1.VBA

    VBA(Visual Basic for Applications) : 是微软为办公自动化而开发的语言,主要应用于Office办公软件,可以用VBA语言完成游戏的模型以验证设计是否符合预期。

    2.安装

    1. 新建一个Excel文件,或者打开一个需要用VBA编程的Excel文件,点击功能栏中左上角的“文件”按钮。
      1
    2. 在左侧选择“选项”按钮。
      2
    3. 在弹出的对话框中选择“自定义功能区”按钮,然后在自定义功能区界面,在右侧的“主选项卡”中,找到“开发工具”选项,勾选该选项,点击右下角的“确定”按钮,退出对话框;
      3
    4. 回到主界面,就可以看到“开发工具”选项卡;
      4
    5. 点击“开发工具”中的Visual Basic就可以开始VBA编程了。
      5

    VBA详细介绍可参考:Excel VBA介绍和学习

    展开全文
  • Excel VBA数据导出

    千次阅读 2017-08-14 18:12:09
    游戏中很多配置文件都采用Excel保存数据。但实际使用时,可能需要对Excel数据再处理成我们需要的格式。基于此需求,学习了Excel的VBA来导出数据到文件中。 开启VBA Excel中的开发工具默认都没有打开,此处需要百度...

    游戏中很多配置文件都采用Excel保存数据。但实际使用时,可能需要对Excel数据再处理成我们需要的格式。基于此需求,学习了Excel的VBA来导出数据到文件中。

    开启VBA

    Excel中的开发工具默认都没有打开,此处需要百度一下如何打开对应版本的Excel。(注:高版本的开发工具需要专业版或商业版才能使用,最好不要使用过高版本,最低office excel 2007版)

    宏设置

    Excel默认禁用所有宏,在宏安全中可以设启用所有宏

    新建模块

    打开Visual Basic面板,选中工程面板下任意选项右键-插入-模块。

    代码示例

    Option Explicit
    Sub parseAndOutputData()
        Dim result As String
        Dim file_name As String
        Dim file_path As String
        Dim info_row As Integer
        Dim sheets_count As Integer
        
        If Len(Worksheets(1).Cells(2, 1).Value) > 0 Then
            file_name = Worksheets(1).Cells(2, 1)
        End If
        If Len(Worksheets(1).Cells(2, 2).Value) > 0 Then
            file_path = Worksheets(1).Cells(2, 2)
        End If
        If Len(Worksheets(1).Cells(2, 3).Value) > 0 Then
            info_row = Worksheets(1).Cells(2, 3)
        End If
        sheets_count = Worksheets.Count
        sheets_count = 0
        While Len(Worksheets(1).Cells(2, sheets_count + 4)) > 0
                sheets_count = sheets_count + 1
        Wend
    
        If MsgBox("It will Clear File!",VbOKCancel,"提示") = vbCancel Then
            Exit Sub
        End If
    
        Open ThisWorkbook.Path & "\" & file_name & ".txt" For Output As #1
            Write #1, ""
        Close #1
        
        
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim max_row As Integer
        Dim max_col As Integer
    
        Open ThisWorkbook.Path & "\" & file_name & ".txt" For Binary As #1
        result = "return {"
        For i = 2 To sheets_count
            max_col = 0
            While Len(Worksheets(i).Cells(info_row, (max_col + 1)).Value) > 0
                max_col = max_col + 1
            Wend
    
            max_row = info_row
            While Len(Worksheets(i).Cells((max_row + 1), 1).Value) > 0
                max_row = max_row + 1
            Wend
    
            If i <> 2 Then
                result = result & "," & Chr(10)
            Else
                result = result & Chr(10)
            End If
            result = result & Chr(9) & Worksheets(1).Cells(2, (i + 2)).Value & " = {"
    
            For j = (info_row + 1) To max_row
                If j <> (info_row + 1) Then
                    result = result & "," & Chr(10) & Chr(9) & Chr(9) & "{"
                Else
                    result = result & Chr(10) & Chr(9) & Chr(9) & "{"
                End If
                For k = 1 To max_col
                    If Len(Worksheets(i).Cells(j, k).Value) > 0 Then
                        If k <> 1 Then
                            result = result & ","
                        End If
                        result = result & Chr(10) & Chr(9) & Chr(9) & Chr(9) & Worksheets(i).Cells(info_row, k) & "=" & Worksheets(i).Cells(j, k).Value
                    End If
                Next
                result = result & Chr(10) & Chr(9) & Chr(9) & "}"
    
                Put #1, , result
                result = ""
            Next
            result = result & Chr(10) & Chr(9) & "}"
        Next
        
        result = result & Chr(10) & "}"
        
        Put #1, , result    
        Close #1
        MsgBox "OutPut Success!"
    End Sub

    Worksheets(1).Cells(2, 3)代表第一个表的第2行第3列单元格   其中Worksheets(1)代表第一个表,其指多个表中排最前面的表,只与位置有关

    Worksheets.Count代表当前xls文件中表的个数

    <> 表示不等于 &  表示连接         Chr(9)表示转义字符Tab

    在条件语句中 = 表示判断是否相等

    ThisWorkbook.Path代表当前文件路径  Output 和 Binary 代表文件打开模式

    其中Output 对应用Write写入数据  其会覆盖到文件所有内容。

    Binary对应用Put写入数据  其有三个参数,第二个代表可选字节数 ,第三个代表内容

    Binary其会覆盖掉最初写入的部分,不会修改其他数据。所以采用Output清除文件内容。

    Binary一次最多读写32kb,可以不关闭文件多次顺序写入数据。

    #1代表文件号  类似文件句柄吧

    MsgBox 弹出框控件   具体使用细节可根据需求百度


    本示例代码主要是读取第一个表,获取一些配置信息,比如需要读取多少个表,从第几行开始读取。之后的逻辑主要是为了组织数据的布局

    最后在Excel中的开发者面板中点击宏,选择模块再执行。导出文件成功

    新建一个空xlsx文件,为其开启宏并添加模块。只要与该xlsx文件在同一文件夹的,其它xlsx文件就可以直接调用其模块导出数据


    中文显示问题:

    二进制文本输出后的编码格式是ANSI

    一般代码文件都采用的是UTF-8    无BOM格式

    最简单的方法:

    Notepad++可以显示ANSI的中文,但直接将其转换编码格式,其新的格式不能显示原有中文

    使用Notepad++新建文件将其编码格式修改为UTF-8    无BOM格式   在将原来的内容拷贝到新文件中即可显示原有中文

    展开全文
  • Excel.VBA从入门到精通

    2012-06-29 11:06:10
    Excel.VBA从入门到精通,通过编程可以...例如:通过EXCEL导出XML文件或者JSON文件,对于游戏开发项目来讲,策划很多时候是通过EXCEL来配数据,通过VBA,可以直接把策划配的数据直接导出固定的格式,供程序读取使用。
  • CAA有一定的上手难度,相比较而言,Python和VBA脚本式的开发对于一些简单应用而言显得稍微亲民一些,对于一些简单项目,脚本语言的开发速度比起CAA繁琐的Workspace\Framework\Module的管理简单不少。当然,脚本式开发...
  • 移植VBA项目到OMS系统

    千次阅读 2009-09-02 13:46:00
    本文通过描述一次完整的移植VBA项目(VisualBoyAdvanced,一款高性能的GBA游戏机模拟器)项目进入OMS系统,进而了解OMS的图形系统的工作原理,希望为在做项目移植开发的读者提供相关方面有益的启发。...
  • 自动生成VBA窗体菜单

    2010-08-16 15:23:46
    自动生成VBA窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As...
  • 教学课件 ---- 诗词游戏开发

    千次阅读 2011-01-02 23:11:00
      vBA编程 <br />教学课件——诗词游戏开发      在中小学教学,尤其是小学教学中。诗词的教学如果引入游戏环节。将使教学生动、有趣。在游戏中强化了记忆。  实例描述...
  • 好玩的excel游戏

    2013-08-03 22:22:52
    excel游戏vba开发,供大家研究休闲使用。
  • 编程语言Java的应用非常广,在网页、手机系统、软件、游戏中都可以找到它的身影,岗位需求越来越大。在Java面试中,99%以上会遇到与多线程相关的问题,大多数待遇丰厚的Java开发职位对于程序员的要求更是要精通多...
  • 1. VisualBoyAdvance(简称VBA),选项->模拟器->自动使用ips补丁 2. 将ips文件名改成和游戏文件名一样,并且放在同一个文件夹里。 例如游戏文件名为“ROM.gba”,ips文件名则改为“ROM.ips” 3. 进入游戏按start键...
  • EXCEL版王者荣耀0.5.0

    2019-03-12 12:38:00
    EXCEL版的王者荣耀,纯VBA开发 全球首发,全球首款在EXCEL上做的MOBA游戏,在EXCEL上体验王者荣耀、英雄联盟的乐趣、享受技能、享受你追我逐的乐趣
  • python入门前言:受一位初学...网络数据采集爬取某电视剧的弹幕爬取小说数据分析excel文件数据处理,代替vba图像处理机器学习,深度学习,神经网络等Web 开发Django开发Web服务window窗体应用上位机开发游戏开发...
  • 手把手带你python入门

    2020-07-02 23:36:08
    python快速入门 前言:受一位初学python的朋友邀请,特写此文。来帮助各位没有编程基础的朋友快速入门python。 1. python可以干什么?...游戏开发 上述清单中如有想了解的,可以留言。有空给大家继续更新。 2. p
  • 本表格为王者荣耀中所需铭文数值表,可用于游戏开发所需的数值策划使用,已编辑好宏功能,可自动计算铭文数值,如计算不成,请自行查看EXCEL软件是否带宏编辑功能,可下载VBA软件解决。
  • 第一篇博文

    2012-05-31 12:46:00
    对于我学的专业,就如同大多数80后,都是误打误撞进的,直到我毕业后,我在一家外企做销售,期间接触到了不少windows下的VBA开发,渐渐发现编程对于我来说是多么的有乐趣,不久我便下定决心------自学游戏...
  • NPOI读取Excel

    千次阅读 2018-09-14 23:49:30
    游戏开发中免不了读取游戏配表,策划也通常会配置Excel或csv表。但游戏程序直接读取这样的表通常不是个好想法,尤其对于前端。如果把文件内容读取出来,接下来就可以为所欲为了,比如转成xml,json或自定义格式等等...
  • Python 作为一种高级语言,它能够完成现实中的各种任务,从网站和游戏开发到机器人和航天飞机控制,它可以应用于各种领域。1Python 有多热?微软在去年年底开启了一个针对 Excel 功能的话题,用以收集用户的反馈。...
  • DirectX 9.0 3D 游戏开发编程基础[MP4] Delphi基础课程[MP4] C语言高级教程 指针和结构体[MP4] C和指针[MP4] C程序设计语言[MP4] CorelDRAW 官方教程[MP4] CEGUI 游戏界面开发快速入门[MP4] CCNA 学习指南 ...
  • 猎豹网校 游戏编程快速入门[MP4] 猎豹网校 网店赢家淘宝网新手开店[MP4] 猎豹网校 透测测试 系统安全测试[MP4] 猎豹网校 淘宝卖家网店美工[MP4] 猎豹网校 搜索引擎搜索技巧[MP4] 猎豹网校 数据结构与算法_Java...
  • 部分vc源代码合集1.rar

    2012-06-11 11:20:01
    2012-06-11 10:43 0 1.txt 2012-06-11 10:10 195 1小时后关机.bat 2012-06-11 10:10 68 1小时后关机.vbs ...2012-06-11 10:18 42,719 非常好的VBA编程问答.rar 2012-06-11 10:17 4,894,598 项目专题2(MP3播放器).rar
  • vc代码合集

    2012-06-11 11:34:52
    2012-06-11 10:31 2,314,224 ArcGIS Engine开发从入门到精通源码.rar 2012-06-11 10:32 2,177,024 AS3游戏引擎框架大全(ZF).doc 2012-06-11 10:15 99,780 C++“超级玛丽”游戏的源代码.rar 2012-06-11 10:03 27,136 ...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 任务53: VBA编程实现获取网页表格写入数据表 第6章: MySQL数据库安装、配置与可视化工具 任务54: 安装MySQL 任务55: 使用CMD登录mysql 任务56: 数据库数据类型 任务57: 约束 任务58: navicat介绍 任务59: ...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...
  • 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为VBA开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两...

空空如也

空空如也

1 2
收藏数 32
精华内容 12
关键字:

vba开发游戏