窗体点的移动
怎么在窗体上面 点Command1时 会在Image1上面画一个*号那么大的黄色的点 并且当点出现那刻起 点又下往上移动 当点超过Form的高时点消失
2007-04-21 15:02
2007-04-21 19:56
我给你写一个，看看是不是你的意思
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Shape1.BackStyle = 1
Shape1.BackColor = &HFFFF&
Shape1.Shape = 3
End Sub
Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top - 100
End Sub
[此贴子已经被作者于2007-4-21 20:44:26编辑过]
2007-04-21 20:41
2007-04-21 22:09
还行。