求一个VB做连连看的问题

来源：百度知道 编辑：UC知道 时间：2024/05/04 17:32:18
做一个只要单击两个一样图片就消失的命令，， 我对这个不是很懂， 请讲明白一些， 本人高分相送
两个先单击一个再哪个啊单击另外一个。。如果两个一样就小时，如果不一样，就不消失。。。不是单击哪个就消失

P.s 搜索的到详细的还来这里问吗，，这里高手比较多嘛

重点是，装载相同的图片时，要同时将控件的 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 =