1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command2_Click()
Me.Move Me.Left, Me.Top, 50000, 10000
t = Timer
For i = 1 To 200
Me.Width = 50000
Me.Height = 10000
Me.Width = 25000
Me.Height = 5000
DoEvents
Next
Text1 = Timer - t
Me.Move Me.Left, Me.Top, 50000, 10000
t = Timer
For i = 1 To 200
Me.Move Me.Left, Me.Top, 50000, 10000
Me.Move Me.Left, Me.Top, 25000, 5000
DoEvents
Next
Text2 = Timer - t
End Sub
'由以上测试可以看出move稍快一点。
'其实对一次动作,你用哪个无所谓