分享:"猜透你的心"游戏 - 项目发布 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

"猜透你的心"游戏与前一个猜数字游戏正好相反,这一个游戏是由你先想好一个数让电脑猜,而猜数字游戏则是由电脑随机出一个数,由你来猜.
"猜透你的心"游戏所采用就是多次筛选法.请看几张图片:

图片点击可在新窗口打开查看

此主题相关图片如下：a11.jpg

此主题相关图片如下：f2.jpg

此主题相关图片如下：c7.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:猜透你的心.rar

[此贴子已经被作者于2009-9-8 15:22:12编辑过]

如要以开发者身份进去看代码,请在重新打开文件时按住:CTRL,进去后再同时按Ctrl+Shift+F12 回到系统菜单

以下是引用狐狸爸爸在2009-9-8 15:18:00的发言：
看什么？
你就发了几张图片而已。

图片点击可在新窗口打开查看

和你学的,呵呵,忘了发文件了
文件发到一楼了.

[此贴子已经被作者于2009-9-8 15:22:41编辑过]

以下是引用czy在2009-9-10 12:08:00的发言：
刚才试了下，还真能猜透。

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

本来是想用四个窗口分别倒换的的,但是感觉有些麻烦,不如分开窗口方便,呵呵,因为不光要换图片,还要分别不同的按钮代码

以下是引用czy在2009-9-10 12:39:00的发言：
我做了下修改，7个窗口合成到一个窗口中。
解决一路No后f3窗口只显示一个点的问题。

下载信息 [文件大小：1.3 MB 下载次数：1]
点击浏览该文件:猜透你的心.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代码同理。

有空学习研究一下,谢谢C版,果然是引来玉了,呵呵

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