Question

我用vb中的line控件做了一个箭头,怎样让箭头跟着鼠标转动. 当然我的意思是箭头动,下面不动

当然我的意思是箭头原地不动,只是跟着鼠标方向转动
箭头是动的,不过只是在围着底下的一点转动
我用得是6个line控件拼成的一个箭头图形,我是希望这个箭头图形的箭头那端跟着鼠标转动,底端在原地,而且箭头必须还是原来的大小,不变形,
我做的是一个打击小游戏,箭头作用是指向鼠标移动方向

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.X1 = X
Line1.Y1 = Y
End Sub
若箭头不动，底动的话，就把上面的X1,Y1改为X2,Y2