拼图游戏碰到的问题。如下是我的原代码。

Question

首先谢谢 早上给我解答的那些朋友们。我学VB不长时间 是个初学者。
现在目前做个拼图游戏希望大家帮帮忙。
我的问题是：按钮上的图片 初始化 得怎么整。
如下是我的原代码。

Answer 1

Public ss As Integer
Public i As IntegerPrivate Sub Command1_Click()
If i = 1 Then
Select Case ss
Case 2
 Command10.Caption = Command2.Caption
 Command2.Caption = Command1.Caption
 Command1.Caption = Command10.Caption
Case 3
 Command10.Caption = Command1.Caption
 Command1.Caption = Command3.Caption
 Command3.Caption = Command10.CaptionCase 4
 Command10.Caption = Command1.Caption
 Command1.Caption = Command4.Caption
 Command4.Caption = Command10.Caption
Case 5
 Command10.Caption = Command1.Caption
 Command1.Caption = Command5.Caption
 Command5.Caption = Command10.Caption
Case 6
 Command10.Caption = Command1.Caption
 Command1.Caption = Command6.Caption
 Command6.Caption = Command10.Caption
Case 7
 Command10.Caption = Command1.Caption
 Command1.Caption = Command7.Caption
 Command7.Caption = Command10.Caption
Case 8
 Command10.Caption = Command1.Caption
 Command1.Caption = Command8.Caption
 Command8.Caption = Command10.Caption
Case 9
 Command10.Caption = Command1.Caption
 Command1.Caption = Command9.Caption
 Command9.Caption = Command10.Caption
 
 
 
 
 
 
 End Select
 End If
 
 ss = 1
 If i = 2 Then
 i = 0
 End If
 
 
 i = i + 1End SubPrivate Sub Command2_Click()
If i = 1 Then
Select Case ss
Case 3
 Command10.Caption = Command2.Caption
 Command2.Caption = Command3.Caption
 Command3.Caption = Command10.Caption
Case 1
 Command10.Caption = Command1.Caption
 Command1.Caption = Command2.Caption
 Command2.Caption = Command10.Caption
Case 4
 Command10.Caption = Command4.Caption
 Command4.Caption = Command2.Caption
 Command2.Caption = Command10.Caption
Case 5
 Command10.Caption = Command5.Caption
 Command5.Caption = Command2.Caption
 Command2.Caption = Command10.Caption
Case 6
 Command10.Caption = Command6.Caption
 Command6.Caption = Command2.Caption
 Command2.Caption = Command10.Caption
Case 7
 Command10.Caption = Command7.Caption
 Command7.Caption = Command2.Caption
 Command2.Caption = Command10.Caption
    
Case 8
 Command10.Caption = Command8.Caption
 Command8.Caption = Command2.Caption
 Command2.Caption = Command10.Caption
Case 9
 Command10.Caption = Command9.Caption
 Command9.Caption = Command2.Caption
 Command2.Caption = Command10.Caption
   
End Select
End If
ss = 2If i = 2 Then
i = 0
End If
i = i + 1End Sub
Private Sub Command3_Click()
If i = 1 Then
Select Case ss
Case 2
 Command10.Caption = Command2.Caption
 Command2.Caption = Command3.Caption
 Command3.Caption = Command10.Caption
Case 1
 Command10.Caption = Command1.Caption
 Command1.Caption = Command3.Caption
 Command3.Caption = Command10.CaptionCase 4
 Command10.Caption = Command4.Caption
 Command4.Caption = Command3.Caption
 Command3.Caption = Command10.Caption
Case 5
 Command10.Caption = Command5.Caption
 Command5.Caption = Command3.Caption
 Command3.Caption = Command10.Caption
Case 6
 Command10.Caption = Command6.Caption
 Command6.Caption = Command3.Caption
 Command3.Caption = Command10.Caption
Case 7
 Command10.Caption = Command7.Caption
 Command7.Caption = Command3.Caption
 Command3.Caption = Command10.Caption
Case 8
 Command10.Caption = Command8.Caption
 Command8.Caption = Command3.Caption
 Command3.Caption = Command10.Caption
Case 9
 Command10.Caption = Command9.Caption
 Command9.Caption = Command3.Caption
 Command3.Caption = Command10.Caption
End Select
End If
ss = 3If i = 2 Then
i = 0
End If
i = i + 1End SubPrivate Sub Command4_Click()
If i = 1 Then
Select Case ss
Case 1
 Command10.Caption = Command1.Caption
 Command1.Caption = Command4.Caption
 Command4.Caption = Command10.Caption
Case 2
 Command10.Caption = Command2.Caption
 Command2.Caption = Command4.Caption
 Command4.Caption = Command10.CaptionCase 3
 Command10.Caption = Command3.Caption
 Command3.Caption = Command4.Caption
 Command4.Caption = Command10.Caption
 Case 5
 Command10.Caption = Command5.Caption
 Command5.Caption = Command4.Caption
 Command4.Caption = Command10.Caption
Case 6
 Command10.Caption = Command6.Caption
 Command6.Caption = Command4.Caption
 Command4.Caption = Command10.Caption
Case 7
 Command10.Caption = Command7.Caption
 Command7.Caption = Command4.Caption
 Command4.Caption = Command10.Caption
    
Case 8
 Command10.Caption = Command8.Caption
 Command8.Caption = Command4.Caption
 Command4.Caption = Command10.Caption
Case 9
 Command10.Caption = Command9.Caption
 Command9.Caption = Command4.Caption
 Command4.Caption = Command10.Caption
   
End Select
End If
ss = 4If i = 2 Then
i = 0
End If
i = i + 1
 
End Sub

Answer 2

Private Sub Command5_Click()
If i = 1 Then
Select Case ss
Case 1
 Command10.Caption = Command1.Caption
 Command1.Caption = Command5.Caption
 Command5.Caption = Command10.Caption
Case 2
 Command10.Caption = Command2.Caption
 Command2.Caption = Command5.Caption
 Command5.Caption = Command10.CaptionCase 3
 Command10.Caption = Command3.Caption
 Command3.Caption = Command5.Caption
 Command5.Caption = Command10.Caption
 Case 4
 Command10.Caption = Command4.Caption
 Command4.Caption = Command5.Caption
 Command5.Caption = Command10.Caption
Case 6
 Command10.Caption = Command6.Caption
 Command6.Caption = Command5.Caption
 Command5.Caption = Command10.Caption
Case 7
 Command10.Caption = Command7.Caption
 Command7.Caption = Command5.Caption
 Command5.Caption = Command10.Caption
    
Case 8
 Command10.Caption = Command8.Caption
 Command8.Caption = Command5.Caption
 Command5.Caption = Command10.Caption
Case 9
 Command10.Caption = Command9.Caption
 Command9.Caption = Command5.Caption
 Command5.Caption = Command10.Caption
   
End Select
End If
ss = 5If i = 2 Then
i = 0
End If
i = i + 1
End SubPrivate Sub Command6_Click()
If i = 1 Then
Select Case ss
Case 1
 Command10.Caption = Command1.Caption
 Command1.Caption = Command6.Caption
 Command6.Caption = Command10.Caption
Case 2
 Command10.Caption = Command2.Caption
 Command2.Caption = Command6.Caption
 Command6.Caption = Command10.CaptionCase 3
 Command10.Caption = Command3.Caption
 Command3.Caption = Command6.Caption
 Command6.Caption = Command10.Caption
 Case 5
 Command10.Caption = Command5.Caption
 Command5.Caption = Command6.Caption
 Command6.Caption = Command10.Caption
Case 4
 Command10.Caption = Command4.Caption
 Command4.Caption = Command6.Caption
 Command6.Caption = Command10.Caption
Case 7
 Command10.Caption = Command7.Caption
 Command7.Caption = Command6.Caption
 Command6.Caption = Command10.Caption
    
Case 8
 Command10.Caption = Command8.Caption
 Command8.Caption = Command6.Caption
 Command6.Caption = Command10.Caption
Case 9
 Command10.Caption = Command9.Caption
 Command9.Caption = Command6.Caption
 Command6.Caption = Command10.Caption
   
End Select
End If
ss = 6If i = 2 Then
i = 0
End If
i = i + 1
End SubPrivate Sub Command7_Click()
If i = 1 Then
Select Case ss
Case 1
 Command10.Caption = Command1.Caption
 Command1.Caption = Command7.Caption
 Command7.Caption = Command10.Caption
Case 2
 Command10.Caption = Command2.Caption
 Command2.Caption = Command7.Caption
 Command7.Caption = Command10.CaptionCase 3
 Command10.Caption = Command3.Caption
 Command3.Caption = Command7.Caption
 Command7.Caption = Command10.Caption
 Case 5
 Command10.Caption = Command5.Caption
 Command5.Caption = Command7.Caption
 Command7.Caption = Command10.Caption
Case 6
 Command10.Caption = Command6.Caption
 Command6.Caption = Command7.Caption
 Command7.Caption = Command10.Caption
Case 4
 Command10.Caption = Command4.Caption
 Command4.Caption = Command7.Caption
 Command7.Caption = Command10.Caption
    
Case 8
 Command10.Caption = Command8.Caption
 Command8.Caption = Command7.Caption
 Command7.Caption = Command10.Caption
Case 9
 Command10.Caption = Command9.Caption
 Command9.Caption = Command7.Caption
 Command7.Caption = Command10.Caption
   
End Select
End If
ss = 7If i = 2 Then
i = 0
End If
i = i + 1
End SubPrivate Sub Command8_Click()
If i = 1 Then
Select Case ss
Case 1
 Command10.Caption = Command1.Caption
 Command1.Caption = Command8.Caption
 Command8.Caption = Command10.Caption
Case 2
 Command10.Caption = Command2.Caption
 Command2.Caption = Command8.Caption
 Command8.Caption = Command10.CaptionCase 3
 Command10.Caption = Command3.Caption
 Command3.Caption = Command8.Caption
 Command8.Caption = Command10.Caption
 Case 5
 Command10.Caption = Command5.Caption
 Command5.Caption = Command8.Caption
 Command8.Caption = Command10.Caption
Case 6
 Command10.Caption = Command6.Caption
 Command6.Caption = Command8.Caption
 Command8.Caption = Command10.Caption
Case 7
 Command10.Caption = Command7.Caption
 Command7.Caption = Command8.Caption
 Command8.Caption = Command10.Caption
    
Case 4
 Command10.Caption = Command4.Caption
 Command4.Caption = Command8.Caption
 Command8.Caption = Command10.Caption
Case 9
 Command10.Caption = Command9.Caption
 Command9.Caption = Command8.Caption
 Command8.Caption = Command10.Caption
   
End Select
End If
ss = 8If i = 2 Then
i = 0
End If
i = i + 1
End SubPrivate Sub Command9_Click()
If i = 1 Then
Select Case ss
Case 1
 Command10.Caption = Command1.Caption
 Command1.Caption = Command9.Caption
 Command9.Caption = Command10.Caption
Case 2
 Command10.Caption = Command2.Caption
 Command2.Caption = Command9.Caption
 Command9.Caption = Command10.CaptionCase 3
 Command10.Caption = Command3.Caption
 Command3.Caption = Command9.Caption
 Command9.Caption = Command10.Caption
 Case 5
 Command10.Caption = Command5.Caption
 Command5.Caption = Command9.Caption
 Command9.Caption = Command10.Caption
Case 6
 Command10.Caption = Command6.Caption
 Command6.Caption = Command9.Caption
 Command9.Caption = Command10.Caption
Case 7
 Command10.Caption = Command7.Caption
 Command7.Caption = Command9.Caption
 Command9.Caption = Command10.Caption
    
Case 8
 Command10.Caption = Command8.Caption
 Command8.Caption = Command9.Caption
 Command9.Caption = Command10.Caption
Case 4
 Command10.Caption = Command4.Caption
 Command4.Caption = Command9.Caption
 Command9.Caption = Command10.Caption
   
End Select
End If
ss = 9If i = 2 Then
i = 0
End If
i = i + 1
End Sub

Answer 3

声明 我这里 所有command.caption  属性caption应该都是  picture 来代替
也就是 command.caption就是 command.piture
主要是到别的机器上运行 找不到相应的按钮上的图片。所以我呢，
希望有人帮我 写一下 初始化 的代码。这样可以到别的机器上也可以运行。谢谢。

Answer 4

你在工程中新建一个资源文件，在外接程序管理器中加载资源管理器
在资源管理器中添加你的图片，然后使用loadRES 函数来使用这些资源这样做的好处是无论路径，也不怕安装之后资源文件背误删除，都可以正常
使用图片资源具体如何使用 loadRES请搜索以前的帖子另控件多尽量使用控件数组，设置状态等都可以使用循环，快的多，也方便

Answer 5

SoHo_Andy,可以告诉我你的qq么?想和你聊聊,感觉你很厉害~

Answer 6

SoHo_Andy(冰)，你的回复构思新颖，题材独具匠心，段落清晰，情节诡异，跌宕起伏，主线分明，引人入胜，平淡中显示出不平凡的文学功底，可谓是字字珠玑，句句经典，是我辈应当学习之典范。

Answer 7

用app.path & "\文件名.jpg"调用相关图片