主题：分享:"猜透你的心"游戏

我*，心居然也能猜透。

刚才试了下，还真能猜透。

有点不明白，BackGroundImageFile既然能换背景图，杨版为何还用了7个窗口（A1-A7）？

我做了下修改，7个窗口合成到一个窗口中。
解决一路No后f3窗口只显示一个点的问题。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:猜透你的心.rar

代码其实很简单的，增加一个全局变量。

yes代码改成：

Vars("val") = Vars("val") + 1
if Vars("val") = 1 Then
    DataTables("s").DataRows.Clear()
    dim f As New Filler
    f.SourceTable = DataTables("sk") '指定数据来源
    f.DataTable = DataTables("s") '指定数据接收表
    f.Filter = "[一] Is Not Null"
    f.Fill() '填充数据
    e.Form.BackGroundImageFile = "c" & Vars("val")+1 & ".jpg"
Else
    e.Form.BackGroundImageFile = "c" & Vars("val")+1 & ".jpg"
    Dim s As String = "○一二三四五六七".Chars(Vars("val"))
    DataTables("s").DeleteFor(s & " Is Null")
    if Vars("val") = 7 Then
        Forms("f3").Show()
        e.Form.Close()
    End If
End If

No代码同理。