摘  要：通过介绍拚图游戏的实现方法，揭示VB编程的技巧。

关键词： VB；滑板拚图

VB是一门具有强大功能的可视化编程软件。随着计算机的普及，VB编程爱好者越来越多。但VB开发的游戏类软件源代码及实现方法很少公开，即使互联网上搜索，也难窥全貌。在此将 “滑板拚图游戏”完整源代码及实现方法呈现出来，供大家分享。

1  窗体设计

（1）添加一个窗体，设置caption属性为滑板拚图；设置borderstyle属性为1；设置backcolor为任意颜色。

（2）在窗体中加入一个图片框picture1。

（3）在已经加入的图片框上面又加入一个图像框image1。

（4）选中picture1进行复制，然后进行粘贴，建立picture1控件数组和image1控件数组。连续粘贴9次，使窗体中共有10个图片框和10个图像框。

（5）再加1个命令按钮command1，选择它，进行复制，再进行粘贴，建立command1控件数组。

（6）在窗体中加入一个标签label1，设置autosize属性为true;设置backstyle属性为0。

（7）在窗体中加入一个时钟timer1。

2  窗体加载

Private Sub Form_Load()

Dim a As Integer

'设置窗体大小属性

Form1.Width = 6000 + 90

Form1.Height = 4500 + 480

'设置图片框和图像框大小及位置属性

a = 0

While a < 10

Picture1(a).Left = Int(a / 3) * 1500

Picture1(a).Top = (a Mod 3) * 1500

Picture1(a).Width = 1500

Picture1(a).Height = 1500

Image1(a).Stretch = True

Image1(a).Width = 4500

Image1(a).Height = 4500

Image1(a).Top = -(a Mod 3) * 1500

Image1(a).Left = -Int(a / 3) * 1500