首页 [ 游戏娱乐 ] 雨中拼图游戏源码
一键分享

雨中拼图游戏源码

  • 共享

2014-03-28 09:09:08

  • 源码类型: B/S
  • 开发环境: VS2008 + 无数据库
  • 开发语言: VB.net
  • 标签: 拼图游戏 游戏源码
  • 评分:

10积分


交付物: 源码包
    商家已实名认证
  • 分享者:雨中的An***
  • 访问次数:   1165 次
  • 源码数量:   1 套
  • 通过比率:   100%
  • 活跃于:   三个月前
  • 最新IP属地:秦皇岛市
  • 微信扫码咨询
.net

源码介绍

源码参数

  • 源码类别:【游戏娱乐】
  • 源码类型:B/S
  • 适合人群: 菜鸟
  • 授权类型:共享版
  • 开发语言:VB.net
  • 数据库:无数据库
  • 源码大小:320KB
  • 相关网址: 【免费浏览】
  • 源码指数:
  • 完整度:
  • 拼图展示
  • 打乱拼图
  • 拼图
  • 拼图展示
  • 打乱拼图
  • 拼图
  • Aspx.Query.CodeImageQueryModel
  • Aspx.Query.CodeImageQueryModel
  • Aspx.Query.CodeImageQueryModel

雨中拼图游戏源码

源码描述:
用vb做的一款拼图游戏
开始可以打乱图片的排序,然后根据设置好的按钮组合图片
代码片段
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim temp1, temp2, temp3, temp4 As String
        Dim a, b, c, d As Integer
        a = rnd.Next(1, 5)
        b = rnd.Next(1, 5)
        c = rnd.Next(1, 5)
        d = rnd.Next(1, 5)
        Dim i As Integer
        For i = 1 To 50
            'temp1 = a & ".gif"
            If a = b Or a = c Or a = d Then
                a = rnd.Next(1, 5)
            End If
            temp1 = a & ".gif"
            Me.PictureBox1.Image = Image.FromFile(temp1)

            If b = a Or b = c Or b = d Then
                b = rnd.Next(1, 5)
            End If
            temp2 = b & ".gif"
            Me.PictureBox2.Image = Image.FromFile(temp2)

            If c = a Or c = b Or c = d Then
                c = rnd.Next(1, 5)
            End If
            temp3 = c & ".gif"
            Me.PictureBox3.Image = Image.FromFile(temp3)

            If d = c Or d = b Or d = a Then
                d = rnd.Next(1, 5)
            End If
            temp4 = d & ".gif"
            Me.PictureBox4.Image = Image.FromFile(temp4)
            i += 1
        Next
    End Sub

责任编辑:xiao

下单记录

用户名 源码评分 成交价 下单时间 订单状态

源码评论

单击更换

评论列表

全部评论
  • 暂无评论 …

最近更新

      下载排行