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

千问 · 2011-7-5 07:35:07

重点是，装载相同的图片时，要同时将控件的Tag属性设置为相同的图片文件名。单击控件时，如果Tag属性相同就表示图片相同。下面是例子：
DimUpIAsLong
PrivateSubForm_Load()
DimIAsLong,SAsLong,FAsString

Picture1(0).AutoRedraw=True
ForI=0To10
IfI0ThenLoadPicture1(I):Picture1(I).Visible=True
Picture1(I).Left=I*Picture1(0).Width*1.1

\'这里用字符代替图片文件
S=1Int(Rnd*4)
Picture1(I).Print\"tu\"UpIAndUpI-1Then
IfPicture1(Index).Tag=Picture1(UpI).TagThen\'图片相同
Picture1(Index).Visible=False:Picture1(UpI).Visible=False
Label1.Visible=False
UpI=-1
ExitSub
EndIf
EndIf

\'选中一个图片
UpI=Index
Label1.Caption=\"\":Label1.BackColor=255:Label1.Visible=True
Label1.MovePicture1(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

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

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

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