Question

VB 图片判断窗体移动方向

VB编写，比如有一个会随机在桌面移动的窗体，窗体中有一个图片，图片为一个箭头形状。如何判断，如果窗体向右移动，图片箭头指向右？如果窗体向左移动，图片箭头指向左？还有，如果窗体是随机向4个角斜着移动呢？如何让图片指向的位置也是斜着指向的？
新手，没有分，望见谅。

Answer 1

先在通用(声明)中打
Dim RecentX,RecentY As Single
不知你是如何使窗体移动起来的。总之，找到使你窗体移动的代码，在它之前加上如下代码
RecentX=Me.Left
RecentY=Me.Top
然后在使你窗体移动的代码的后面加上如下代码
a=Me.Left-RecentX
b=Me.Top-RecentY
If a>0 Then
Select Case b
Case 0
(使图片改为右箭头的代码)
Case Is>0
(右下)
Case Is<0
(右上)
End Select
Else
If a<0 Then
Select Case b
Case 0
(左)
Case Is>0
(左下)
Case Is<0
(左上)
End Select
Else
If b>0 Then
(下)
Else
(上)
End If
End If
End If

追问

如何转动图片啊？Select Case b
Case 0
(使图片改为右箭头的代码)
就是不知道如何转动图片方向啊。。
意思是只有一张图片，可以旋转吗？
还有，我用的是GIF控件的图片，名称为ucAniGIF1
有办法吗？

Answer 2

这太Easy了,只需做好8个方向的箭头即可(别以为这很愚蠢,很多游戏都是这个原理!)