Question

vb 连连看游戏代码要全部的

Answer 1

Picture1(I); F = UpI And UpI ;MyTu, Picture1(Index).Tag = Picture1(UpI);选中一个图片
UpI = Index
Label1.AutoRedraw = True
For I = 0 To 10
If I ; I S

: Label1.Width * 1;图片相同
Picture1(Index).ico.Caption = 0 Then Load Picture1(I);C.1.Height * 1。下面是例子.Print tuquot：---------------------------------
在窗体放置控件 Picture1;.Tag = quot.1;tu S
Picture1(I)、 tu3.Height * 0.Visible = False.Width * 1.Move Picture1(Index).Visible = False
UpI = -1
Exit Sub
End If
End If

.Visible = True
Label1;tuquot。单击控件时.ico
.Visible = False
Label1, Picture1(Index);.Left - Picture1(Index).Top - Picture1(Index).1

.Left = I * Picture1(0).IcoMyTu: Picture1(UpI);这里用字符代替图片文件
S = 1 + Int(Rnd * 4)
Picture1(I);tuquot, S As Long、 tu2.Visible = True
Picture1(I).BackColor = 255、 tu4: Label1, Picture1(Index).ico;，如果 Tag 属性相同就表示图片相同:.Picture = Picture1(F)
.Width * 0; 中有图片文件 tu1; -1 Then
If Picture1(Index).ico: Picture1(I):.2

End Sub
补充.Tag Then ，装载相同的图片时重点是.2;
.Tag = 下面是假设目录 C;; S
Next
UpI = -1
End Sub

Private Sub Picture1_Click(Index As Integer)

If Index lt; Picture1(I), F As String

Picture1(0)：
Dim UpI As Long
Private Sub Form_Load()
Dim I As Long，要同时将控件的 Tag 属性设置为相同的图片文件名