Question

如何用vb设置一个拼图游戏啊

Answer 1

Public A, B
Private Sub Form_Load()
    A = 2
    B = 2
End Sub
Private Sub Command1_Click(Index As Integer)
    If (Command1(Index).Left / 1500 - A) ^ 2 + (Command1(Index).Top / 1500 - B) ^ 2 = 1 Then
        TEMPA = Command1(Index).Left / 1500
        TEMPB = Command1(Index).Top / 1500
        Command1(Index).Left = A * 1500
        Command1(Index).Top = B * 1500
        A = TEMPA
        B = TEMPB
    Else
        MsgBox "周围没有空格"
    End If
End Sub

这是个简单的例子。创建8个按钮组（可以根据需要修改为图片等），例子中按钮的left和top属性都是1500的整数倍。

然后创建A\B两个公共变量存储空白区域的位置。

按钮功能主要是监测临近是否有空白区域，有空白就换位置，没有弹出提示。看下是否能满足你的要求。

Answer 2

我有使用vb6.0做的拼图游戏。