Question

我想用VB做一个拼图的简单游戏，分成9个就够了，用键盘上下左右键移动的，图片希望和星座有关，谢谢啊

因为不是学这个专业的，希望越简单的代码越好，不然看不懂。。。
不做上面的了。想知道怎么用鼠标移动图片，图片有很多个时需要一个一个编代码吗？急求~~

Answer 1

思路
将很多图片对应做到一组控件数组中，如img控件，或pic控件
在做拼图游戏时，肯定只能有一个空位，可以用一个变量来做空位，也可以在img控件数组中多加一个但不载入图像，作为空位
点击控件，判断是否与空位相邻，如相邻，则移动到此空位

追问

不做拼图了，就想把图片拖放在指定位置，可以帮帮忙吗？

追答

Dim Imx As Single
Dim Imy As Single

Private Sub pic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Imx = X: Imy = Y
End If
End Sub

Private Sub pic_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.pic.Left = Me.pic.Left + X - Imx
Me.pic.Top = Me.pic.Top + Y - Imy
End If
End Sub

窗体里使用一个pic控件
pic控件在拖动时不会出现闪烁的情况
如果用img,img是轻量级控件，在拖动时会有闪烁
如果图片大小不合适，要么将图片缩放到合适的大小
要么在pic控件内再嵌套一个img控件，并将img的stretch设置为true
如果需要吸附功能稍微麻烦些了，代码也多些

追问

这样就好了，谢谢~~