用VB实现井字游戏

日期：2008年4月1日作者：自由电子软件开发社查看:[大字体中字体小字体]

           "的一方即可获得游戏的胜利，祝您好运！！", 0 + 64, "游戏规则"
End Sub

'该过程用于显示游戏开发信息
Private Sub cmdAbout_Click()
    Beep
    MsgBox "BS井字游戏" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr(13) & Chr(13) & _
           "" & Chr(13) & Chr(13) & _
           "由PigheadPrince设计制作" & Chr(13) & _
           "CopyRight(C)2002,BestSoft.TCG", 0, "关于本游戏"
End Sub

'该过程用于退出游戏
Private Sub cmdExit_Click()
    Beep
    msg = MsgBox("您要退出本游戏吗？", 4 + 32, "BS井字游戏")
    If msg = 6 Then End
End Sub

'该过程用于实现玩家向井字棋盘中下棋子
Private Sub picWells_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lngGetWells_X As Long, lngGetWells_Y As Long
    Dim blnWellsNotFull As Boolean
    If Not blnGameStart Then Exit Sub
    lngGetWells_X = Int(Y / (Me.picWells.Height / 3)) + 1
    lngGetWells_Y = Int(X / (Me.picWells.Width / 3)) + 1
    If usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_Value = 0 Then
       usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_Value = 1
       Me.picWells.PaintPicture Me.imgChequer(MAN).Picture, _
                                usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_X, _
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] 下一页
用VB实现井字游戏相关文章：
·玩对对碰游戏注意事项
·Photoshop配合Painter绘制鲁特琴演奏者戏剧场景
·QQ游戏斯诺克贴库球的打法
·对QQ游戏开发者的访谈
·史玉柱：从“首负”到“首富”的游戏玩家
·Flash AS以贪吃蛇小游戏为实例学习类编程
·警告：QQ游戏邀请大盗邀请你玩病毒
·猫猫姐姐生日快_QQ游戏
·陈艺光：网络游戏平台与游戏网站实现共赢
·浪漫游戏-诛仙恋
用VB实现井字游戏相关软件
·《葫芦娃大战蝎子王》游戏试玩
·《Toribash》游戏试玩
·变形金刚游戏GT独占宣传片
·游戏马—边锋记牌器
·游戏马-QQ记牌器
·扑克游戏 81.17
·游戏修改大师
·使命召唤4困境营救游戏视频
·《彼得大冒险》小游戏合集
·SwiftDog GameHike 游戏速度优化工具

上一篇:用VB实现类似电子表格的数据录入

下一篇:用VB实现动态文本数据到ORACLE数据库基表的迁移

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

用VB实现井字游戏

精品推荐

热点TOP10

特别推荐