- 51Aspx源码必读.txt[3KB]
- Form1.Designer.vb[14KB]
- Form1.resx[486KB]
- Form1.vb[4KB]
- from.gif[4KB]
- WindowsApplication1.sln[927B]
- WindowsApplication1.vbproj[5KB]
- 最新Asp.Net源码下载.url[123B]
源码介绍
源码参数
雨中拼图游戏源码
源码描述：
用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
下单记录
| 用户名 | 源码评分 | 成交价 | 下单时间 | 订单状态 |
|---|
