Question

用VB制作拼图游戏

用VB制作拼图游戏，求代码 Visual Basic 功能要求（1）单击“分割图片”按钮，可以将原始图片等分为六部分（注：水平方向三等分，垂直方向二等分），并将图片分割后的每一小部分随机放入界面下半部分的六个小图片框中，如图3-2所示。（注意：应保证每次分割的图像块随机显示在小图片框中）。（2）按住鼠标左键拖动每个小图片框至“拼接后的图片”框中。当小图片框到达合适的位置（注意：位置由框中直线划分出的区域决定）后释放鼠标，小图片框能自动放置在指定的区域中。图3-3为拼接了四部分之后，正在拖动第五部分的示意图；图3-4为拼接完成后的用户界面示意图。（3）单击“还原”按钮后，恢复为图3-1所示的初始界面。如需要示意图片请加2441074526麻烦各位了

Answer 1

Private Declare Function SetParent Lib ″user32″ _（ByVal hWndChild As Long，ByVal hWndNewParent As Long） As Long ＇利用api函数setparent实现控件的移动
Private Sub Command1_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）
Static w ＇w为picture1控件数组的索引号（即index）
If w ＝ 3 Then w ＝ -1
w ＝ w + 1
Select Case w
Case 0 ＇把command1从第一个图片框移到第二个内
Call SetParent（Command1.hWnd，Picture1（1）.hWnd）
Case 1 ＇把command1从第二个图片框移到第三个内
Call SetParent（Command1.hWnd，Picture1（2）.hWnd）
Case 2 ＇把command1从第三个图片框移到第四个内
Call SetParent（Command1.hWnd，Picture1（3）.hWnd）
Case 3 ＇把command1从第四个图片框移到第一个内
Call SetParent（Command1.hWnd，Picture1（0）.hWnd）
End Select
End Sub

Answer 2

这个可以做，可以有偿做。如果需要可以给我百度私信。