如何制作一条跟随鼠标的线段，还有...........

来源：百度知道 编辑：UC知道 时间：2024/07/19 01:40:32
如何制作一条跟随鼠标的线段，还有怎样用画circle使当按下按钮一时，出现一个移动的小球，还有怎样制作一个*cio,或*cur文件？谢啦~～~

〔答案补充与修改〕
问题1、2：建一个Command1，代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim i As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Scale (-100, 100)-(100, -100)
Timer1.Enabled = False
Timer1.Interval = 100
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Line (X, Y)-Step(30, -20) '改了这里
End Sub

Private Sub Timer1_Timer()
i = i + 1
Cls
Circle (i - 100, 50), 10, vbRed
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
问题3：你下载一个图标制作工具吧。例如http://nj.onlinedown.net/soft/57753.htm