Question

用VB6.0的控件shape编写一个鼠标幻影的程序求大神帮助

如题,用VB,一定要是6.0的,编写一个跟随着鼠标动的幻影,只能用shape控件,最好要有几个shape控件,就像XP本来鼠标加了幻影一样,但要是shape控件里的形状!谢谢高手了

Answer 1

在窗体上添加一个Timer控件，把Interval设为10。然后再添加一个Shape控件，形状和大小自己设置，然后复制它做成控件数组，数量随意。最后输入下面的代码。 Private intX As Integer Private intY As Integer Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) intX = x intY = y End Sub Private Sub Timer1_Timer() Dim i As Integer For i = 4 To 1 Step -1 Shape1(i).Move Shape1(i - 1).Left, Shape1(i - 1).Top Next Shape1(0).Move intX, intY End Sub