vba设计关灯游戏，怎么在游戏开始时计算鼠标左键的点击数

NightCricket

问题是如何在窗体做一个计时器和做一个根据游戏计算游戏步数的计步器

dongqing1998

原标准模块中的代码做了修改，并重新添加了新代码。
不知道你具体怎样操作，所以代码只是按你目前的要求写的。

NightCricket

必须先说声谢谢你！刚刚看到回复真的很高兴，不过运行的时候发生了点小问题，就是我如果运行游戏和你的代码的时候，点击数是成倍增长了。我那个游戏原理是刚开始时全黑的，点一下表示开灯，开灯颜色是绿色的，然后就是要通过游戏把这灯给熄灭。所谓的点击数就是计算一共点了多少次。能否再帮一下忙，替我解决下问题？

NightCricket

dongqing1998 发表于 2013-12-21 23:48
原标准模块中的代码做了修改，并重新添加了新代码。
不知道你具体怎样操作，所以代码只是按你目前的要求写 ...

请容我再矫情下，能不能添加下注释，真的刚学不久，真心想学习学习这vba。

dongqing1998

为什么让你上传附件？就是怕搞不明白你的意思。结果按你附件中的要求做了，仍然没能满足你的要求，还要在研究你的游戏原理.............

NightCricket

dongqing1998 发表于 2013-12-22 20:32
为什么让你上传附件？就是怕搞不明白你的意思。结果按你附件中的要求做了，仍然没能满足你的要求，还要在研 ...

真的不好意思了，实在没办法就不要那么费脑筋了，明天你还要上班吧，我还是很感谢你的

爱疯

关灯游戏是啥规律？

NightCricket

爱疯 发表于 2013-12-22 23:11
关灯游戏是啥规律？

你好，规律是这样的，就是一个格子原来是暗的，点了那个格子，那格子就变亮，周围和它相交的格子如果原来亮的变暗，暗的变亮；相反如果格子原来是亮的，点了就变暗，周围和它相交的格子如果原来亮的变暗，暗的变亮。

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range, x As Range, t As Range
    Dim r1 As Integer, c1 As Integer, r2 As Integer, c2 As Integer
    Dim t1 As Boolean, t2 As Boolean, t3 As Boolean

    Set rng = [a1:d4]
    Set t = Target
    If Application.Intersect(t, rng) Is Nothing Or t.Count > 1 Then Exit Sub
    r1 = t.Row: c1 = t.Column

    For Each x In rng
        r2 = x.Row: c2 = x.Column
        t1 = (r2 = r1) And (Abs(c2 - c1) = 1)           '左右
        t2 = (c2 = c1) And (Abs(r2 - r1) = 1)           '上下
        t3 = (Abs(r2 - r1) = 1) And (Abs(c2 - c1) = 1)  '四角
        If t1 Or t2 Or t3 Then
            x.Interior.ColorIndex = IIf(x.Interior.ColorIndex = xlNone, 4, xlNone)
        End If
    Next
End Sub
gd.rar (9.75 KB, 下载次数: 6)

2013-12-23 15:47 上传

点击文件名下载附件

这样吗

NightCricket

爱疯 发表于 2013-12-23 15:47
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range, x As Range, t As ...

我真是佩服你，这个游戏关键部分这么快就能弄出来了，我同学研究这算法几天才实现。但是这部分我已经解决，我的想弄的是在游戏里面计算鼠标的点击数（也就是用了多少步骤来完成游戏）还有就是计算相应的游戏用时。这两个效果我想在游戏开始的时候，在表格里面的单元格“q10”和单元格“q11“分别表示出来。或者我想的是能不能在窗体实现这两个功能。具体内容我上传给你，真心感谢你的帮助。