Question

哪位高手帮个忙，帮我用VB编一个简单的 连连看 的小游戏吧！！！感激不尽~~~~

希望答案详细点，一定增加悬赏~~~

Answer 1

重点是，装载相同的图片时，要同时将控件的 Tag 属性设置为相同的图片文件名。单击控件时，如果 Tag 属性相同就表示图片相同。下面是例子：
Dim UpI As Long
Private Sub Form_Load()
Dim I As Long, S As Long, F As String

Picture1(0).AutoRedraw = True
For I = 0 To 10
If I > 0 Then Load Picture1(I): Picture1(I).Visible = True
Picture1(I).Left = I * Picture1(0).Width * 1.1

'这里用字符代替图片文件
S = 1 + Int(Rnd * 4)
Picture1(I).Print "tu" & S
Picture1(I).Tag = "tu" & S

''下面是假设目录 C:\MyTu\ 中有图片文件 tu1.ico、 tu2.ico、 tu3.ico、 tu4.ico
' F = "C:\MyTu\tu" & I & ".Ico"
' Picture1(I).Picture = Picture1(F)
' Picture1(I).Tag = "tu" & S
Next
UpI = -1
End Sub

Private Sub Picture1_Click(Index As Integer)

If Index <> UpI And UpI > -1 Then
If Picture1(Index).Tag = Picture1(UpI).Tag Then '图片相同
Picture1(Index).Visible = False: Picture1(UpI).Visible = False
Label1.Visible = False
UpI = -1
Exit Sub
End If
End If

'选中一个图片
UpI = Index
Label1.Caption = "": Label1.BackColor = 255: Label1.Visible = True
Label1.Move Picture1(Index).Left - Picture1(Index).Width * 0.1, Picture1(Index).Top - Picture1(Index).Height * 0.1, Picture1(Index).Width * 1.2, Picture1(Index).Height * 1.2

End Sub
补充：---------------------------------
在窗体放置控件 Picture1，然后在属性窗口设置属性 Index=0

Answer 2

44545